+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
projects / unix-history / commitdiff