![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to fm002.f CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDTahoe / usr.bin / f77 / testf77 / tests|
Return to fm002.f CVS log | Up to [CSRG BSD Unix] / 43BSDTahoe / usr.bin / f77 / testf77 / tests |
BSD 4.3tahoe
c comment section
c
c fm002
c
c this routine checks that comment lines which have valid
c fortran statements do not affect the execution of the program
c in any way.
c
c references
c american national standard programming language fortran,
c x3.9-1978
c
c section 3.2.1, comment line
c
c **********************************************************
c
c a compiler validation system for the fortran language
c based on specifications as defined in american national standard
c programming language fortran x3.9-1978, has been developed by the
c federal cobol compiler testing service. the fortran compiler
c validation system (fcvs) consists of audit routines, their related
c data, and an executive system. each audit routine is a fortran
c program, subprogram or function which includes tests of specific
c language elements and supporting procedures indicating the result
c of executing these tests.
c
c this particular program/subprogram/function contains features
c found only in the subset as defined in x3.9-1978.
c
c suggestions and comments should be forwarded to -
c
c department of the navy
c federal cobol compiler testing service
c washington, d.c. 20376
c
c **********************************************************
c
c
c
c initialization section
c
c initialize constants
c **************
c i01 contains the logical unit number for the card reader.
i01 = 5
c i02 contains the logical unit number for the printer.
i02 = 6
c system environment section
c
cx010 this card is replaced by contents of fexec x-010 control card.
c the cx010 card is for overriding the program default i01 = 5
c (unit number for card reader).
cx011 this card is replaced by contents of fexec x-011 control card.
c the cx011 card is for systems which require additional
c fortran statements for files associated with cx010 above.
c
cx020 this card is replaced by contents of fexec x-020 control card.
c the cx020 card is for overriding the program default i02 = 6
c (unit number for printer).
cx021 this card is replaced by contents of fexec x-021 control card.
c the cx021 card is for systems which require additional
c fortran statements for files associated with cx020 above.
c
ivpass=0
ivfail=0
ivdele=0
iczero=0
c
c write page headers
write (i02,90000)
write (i02,90001)
write (i02,90002)
write (i02, 90002)
write (i02,90003)
write (i02,90002)
write (i02,90004)
write (i02,90002)
write (i02,90011)
write (i02,90002)
write (i02,90002)
write (i02,90005)
write (i02,90006)
write (i02,90002)
c test section
c
41 continue
ivtnum=4
c
c **** test 004 ****
c test 004 - blank comment line
c
if (iczero) 30040,40,30040
40 continue
ivon01=4
c
go to 40040
30040 ivdele=ivdele+1
write (i02,80003) ivtnum
if (iczero) 40040, 51, 40040
40040 if (ivon01 - 4) 20040, 10040, 20040
10040 ivpass=ivpass+1
write (i02,80001) ivtnum
go to 51
20040 ivfail=ivfail+1
ivcomp=ivon01
ivcorr=4
write (i02,80004) ivtnum,ivcomp,ivcorr
51 continue
ivtnum=5
c
c **** test 005 ****
c test 005 - go to in comment line
c
if (iczero) 30050, 50, 30050
50 continue
ivon01 = 3
c go to 20050
ivon01=5
go to 40050
30050 ivdele=ivdele+1
write (i02,80003) ivtnum
if (iczero) 40050, 61, 40050
40050 if (ivon01 - 5) 20050,10050,20050
10050 ivpass=ivpass+1
write (i02,80001) ivtnum
go to 61
20050 ivfail=ivfail+1
ivcomp=ivon01
ivcorr=5
write (i02,80004) ivtnum,ivcomp,ivcorr
61 continue
ivtnum=6
c
c **** test 006 ****
c test 006 - integer assignment statement in comment line
c
if (iczero) 30060,60,30060
60 continue
ivon01=6
c ivon01=1
go to 40060
30060 ivdele=ivdele+1
write (i02,80003) ivtnum
if (iczero) 40060,71,40060
40060 if (ivon01-6) 20060,10060,20060
10060 ivpass=ivpass+1
write (i02,80001) ivtnum
go to 71
20060 ivfail=ivfail+1
ivcomp=ivon01
ivcorr=6
write (i02,80004) ivtnum,ivcomp,ivcorr
71 continue
ivtnum=7
c
c **** test 007 ****
c test 007 - integer assignment statement in comment line
c integer expression to right of =
c
if (iczero) 30070,70,30070
70 continue
ivon02=6
ivon01=7
c ivon01= 3*ivon02
go to 40070
30070 ivdele=ivdele+1
write (i02,80003) ivtnum
if (iczero) 40070,81,40070
40070 if (ivon01-7) 20070,10070,20070
10070 ivpass=ivpass+1
write (i02,80001) ivtnum
go to 81
20070 ivfail=ivfail+1
ivcomp=ivon01
ivcorr=7
write (i02,80004) ivtnum,ivcomp,ivcorr
81 continue
ivtnum=8
c
c **** test 008 ****
c test 008 - if statement in comment line
c
if (iczero) 30080,80,30080
80 continue
ivon01=300
c if (ivon01) 20080,20080,20080
ivon01=8
go to 40080
30080 ivdele=ivdele+1
write (i02,80003) ivtnum
if (iczero) 40080,91,40080
40080 if (ivon01-8) 20080,10080,20080
10080 ivpass=ivpass+1
write (i02,80001) ivtnum
go to 91
20080 ivfail=ivfail+1
ivcomp=ivon01
ivcorr=8
write (i02,80004) ivtnum,ivcomp,ivcorr
91 continue
ivtnum=9
c
c **** test 009 ****
c test 009 - write statement in a comment line
c
if (iczero) 30090,90,30090
90 continue
ivon01=200
c 92 write (i02,80002) ivtnum
ivon01=9
go to 40090
30090 ivdele=ivdele+1
write (i02,80003) ivtnum
if (iczero) 40090,101,40090
40090 if (ivon01-9) 20090,10090,20090
10090 ivpass=ivpass+1
write (i02,80001) ivtnum
go to 101
20090 ivfail=ivfail+1
ivcomp=ivon01
ivcorr=9
write (i02,80004) ivtnum,ivcomp,ivcorr
101 ivtnum=10
c
c **** test 010 ****
c test 010 - statement label in comment line
c
if (iczero) 30100,100,30100
100 continue
go to 102
c 102 write (i02,80002)
c go to 111
102 ivon01=10
go to 40100
30100 ivdele=ivdele+1
write (i02,80003) ivtnum
if (iczero) 40100,111,40100
40100 if (ivon01-10) 20100,10100,20100
10100 ivpass=ivpass+1
write (i02,80001) ivtnum
go to 111
20100 ivfail=ivfail+1
ivcomp=ivon01
ivcorr=10
write (i02,80004) ivtnum,ivcomp,ivcorr
111 continue
ivtnum=11
c
c **** test 011 ****
c test 011 - continue in comment line
c followed by integer assignment statement in comment
c
if (iczero) 30110,110,30110
110 ivon01=11
c continue
c ivon01=7000
go to 40110
30110 ivdele=ivdele+1
write (i02,80003) ivtnum
if (iczero) 40110,121,40110
40110 if (ivon01 -11) 20110,10110,20110
10110 ivpass=ivpass+1
write (i02,80001) ivtnum
go to 121
20110 ivfail=ivfail+1
ivcomp=ivon01
ivcorr=11
write (i02,80004) ivtnum,ivcomp,ivcorr
121 continue
ivtnum=12
c
c **** test 012 ****
c test 012 - integer assignment statement in comment line
c
if (iczero) 30120,120,30120
120 continue
ivon01=12
c ivon01=ivon01+1
go to 40120
30120 ivdele=ivdele+1
write (i02,80003) ivtnum
if (iczero) 40120,99999,40120
40120 if (ivon01 - 12) 20120,10120,20120
10120 ivpass=ivpass+1
write (i02,80001) ivtnum
go to 99999
20120 ivfail=ivfail+1
ivcomp=ivon01
ivcorr=12
write (i02,80004) ivtnum,ivcomp,ivcorr
c
c write page footings and run summaries
99999 continue
write (i02,90002)
write (i02,90006)
write (i02,90002)
write (i02,90002)
write (i02,90007)
write (i02,90002)
write (i02,90008) ivfail
write (i02,90009) ivpass
write (i02,90010) ivdele
c
c
c terminate routine execution
stop
c
c format statements for page headers
90000 format (1h1)
90002 format (1h )
90001 format (1h ,10x,34hfortran compiler validation system)
90003 format (1h ,21x,11hversion 1.0)
90004 format (1h ,10x,38hfor official use only - copyright 1978)
90005 format (1h ,5x,4htest,5x,9hpass/fail, 5x,8hcomputed,8x,7hcorrect)
90006 format (1h ,5x,46h----------------------------------------------)
90011 format (1h ,18x,17hsubset level test)
c
c format statements for run summaries
90008 format (1h ,15x,i5,19h errors encountered)
90009 format (1h ,15x,i5,13h tests passed)
90010 format (1h ,15x,i5,14h tests deleted)
c
c format statements for test results
80001 format (1h ,4x,i5,7x,4hpass)
80002 format (1h ,4x,i5,7x,4hfail)
80003 format (1h ,4x,i5,7x,7hdeleted)
80004 format (1h ,4x,i5,7x,4hfail,10x,i6,9x,i6)
80005 format (1h ,4x,i5,7x,4hfail,4x,e12.5,3x,e12.5)
c
90007 format (1h ,20x,20hend of program fm002)
c comment line before end statement
end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.