4.4BSD/usr/src/usr.bin/f77/tests/tests/fm007.f
c comment section
c
c fm007
c
c this routine tests the use of data initialization statements.
c data initialization statements are used to define initial values
c of integer variables. the data statements contain unsigned,
c positive signed and negative signed integer constants. the last
c data statement contains the form
c j*integer constant
c which indicates the constant is to be specified j times.
c
c the tests in this routine check the integer variables in the
c data statement for the assigned initial values.
c
c references
c american national standard programming language fortran,
c x3.9-1978
c
c section 4.3, integer type
c section 4.3.1, integer constant
c section 9, data statement
c
c
c data initialization statements
c
data ivon01,ivon02,ivon03,ivon04,ivon05/3,76,587,9999,21111/
data ivon06,ivon07,ivon08,ivon09,ivon10/+3,+76,+587,+9999,+21111/
data ivon11,ivon12,ivon13,ivon14,ivon15/-3,-76,-587,-9999,-21111/
data ivon16,ivon17,ivon18,ivon19,ivon20/ 2*119, 2*7, -427/
c
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
c tests 80 through 84 check the values initialized by the data
c statement containing ivon01,..., ivon05.
c
801 continue
ivtnum = 80
c
c **** test 80 ****
c
if (iczero) 30800, 800, 30800
800 continue
ivcomp = ivon01
go to 40800
30800 ivdele = ivdele + 1
write (i02,80003) ivtnum
if (iczero) 40800, 811, 40800
40800 if (ivcomp - 3) 20800, 10800,20800
10800 ivpass = ivpass + 1
write (i02,80001) ivtnum
go to 811
20800 ivfail = ivfail + 1
ivcorr = 3
write (i02,80004) ivtnum, ivcomp ,ivcorr
811 continue
ivtnum = 81
c
c **** test 81 ****
c
if (iczero) 30810, 810, 30810
810 continue
ivcomp = ivon02
go to 40810
30810 ivdele = ivdele + 1
write (i02,80003) ivtnum
if (iczero) 40810, 821, 40810
40810 if (ivcomp - 76) 20810, 10810, 20810
10810 ivpass = ivpass + 1
write (i02,80001) ivtnum
go to 821
20810 ivfail = ivfail + 1
ivcorr = 76
write (i02,80004) ivtnum, ivcomp ,ivcorr
821 continue
ivtnum = 82
c
c **** test 82 ****
c
if (iczero) 30820, 820, 30820
820 continue
ivcomp = ivon03
go to 40820
30820 ivdele = ivdele + 1
write (i02,80003) ivtnum
if (iczero) 40820, 831, 40820
40820 if (ivcomp - 587) 20820, 10820, 20820
10820 ivpass = ivpass + 1
write (i02,80001) ivtnum
go to 831
20820 ivfail = ivfail + 1
ivcorr = 587
write (i02,80004) ivtnum, ivcomp ,ivcorr
831 continue
ivtnum = 83
c
c **** test 83 ****
c
if (iczero) 30830, 830, 30830
830 continue
ivcomp =ivon04
go to 40830
30830 ivdele = ivdele + 1
write (i02,80003) ivtnum
if (iczero) 40830, 841, 40830
40830 if (ivcomp - 9999) 20830, 10830, 20830
10830 ivpass = ivpass + 1
write (i02,80001) ivtnum
go to 841
20830 ivfail = ivfail + 1
ivcorr = 9999
write (i02,80004) ivtnum, ivcomp ,ivcorr
841 continue
ivtnum = 84
c
c **** test 84 ****
c
if (iczero) 30840, 840, 30840
840 continue
ivcomp = ivon05
go to 40840
30840 ivdele = ivdele + 1
write (i02,80003) ivtnum
if (iczero) 40840, 851, 40840
40840 if (ivcomp - 21111) 20840, 10840, 20840
10840 ivpass = ivpass + 1
write (i02,80001) ivtnum
go to 851
20840 ivfail = ivfail + 1
ivcorr = 21111
write (i02,80004) ivtnum, ivcomp ,ivcorr
c
c tests 85 through 89 check the values initialized by the data
c statement containing ivon06,...,ivon10.
c
851 continue
ivtnum = 85
c
c **** test 85 ****
c
if (iczero) 30850, 850, 30850
850 continue
ivcomp=ivon06
go to 40850
30850 ivdele = ivdele + 1
write (i02,80003) ivtnum
if (iczero) 40850, 861, 40850
40850 if (ivcomp - 3) 20850, 10850, 20850
10850 ivpass = ivpass + 1
write (i02,80001) ivtnum
go to 861
20850 ivfail = ivfail + 1
ivcorr = 3
write (i02,80004) ivtnum, ivcomp ,ivcorr
861 continue
ivtnum = 86
c
c **** test 86 ****
c
if (iczero) 30860, 860, 30860
860 continue
ivcomp = ivon07
go to 40860
30860 ivdele = ivdele + 1
write (i02,80003) ivtnum
if (iczero) 40860, 871, 40860
40860 if (ivcomp - 76) 20860, 10860, 20860
10860 ivpass = ivpass + 1
write (i02,80001) ivtnum
go to 871
20860 ivfail = ivfail + 1
ivcorr = 76
write (i02,80004) ivtnum, ivcomp ,ivcorr
871 continue
ivtnum = 87
c
c **** test 87 ****
c
if (iczero) 30870, 870, 30870
870 continue
ivcomp = ivon08
go to 40870
30870 ivdele = ivdele + 1
write (i02,80003) ivtnum
if (iczero) 40870, 881, 40870
40870 if (ivcomp - 587) 20870, 10870, 20870
10870 ivpass = ivpass + 1
write (i02,80001) ivtnum
go to 881
20870 ivfail = ivfail + 1
ivcorr = 587
write (i02,80004) ivtnum, ivcomp ,ivcorr
881 continue
ivtnum = 88
c
c **** test 88 ****
c
if (iczero) 30880, 880, 30880
880 continue
ivcomp = ivon09
go to 40880
30880 ivdele = ivdele + 1
write (i02,80003) ivtnum
if (iczero) 40880, 891, 40880
40880 if (ivcomp - 9999) 20880, 10880, 20880
10880 ivpass = ivpass + 1
write (i02,80001) ivtnum
go to 891
20880 ivfail = ivfail + 1
ivcorr = 9999
write (i02,80004) ivtnum, ivcomp ,ivcorr
891 continue
ivtnum = 89
c
c **** test 89 ****
c
if (iczero) 30890, 890, 30890
890 continue
ivcomp = ivon10
go to 40890
30890 ivdele = ivdele + 1
write (i02,80003) ivtnum
if (iczero) 40890, 901, 40890
40890 if (ivcomp - 21111) 20890, 10890, 20890
10890 ivpass = ivpass + 1
write (i02,80001) ivtnum
go to 901
20890 ivfail = ivfail + 1
ivcorr= 21111
write (i02,80004) ivtnum, ivcomp ,ivcorr
c
c tests 90 through 94 check the values initialized by the data
c statement containing ivon11,...,ivon15.
c
901 continue
ivtnum = 90
c
c **** test 90 ****
c
if (iczero) 30900, 900, 30900
900 continue
ivcomp = ivon11
go to 40900
30900 ivdele = ivdele + 1
write (i02,80003) ivtnum
if (iczero) 40900, 911, 40900
40900 if (ivcomp + 3) 20900, 10900, 20900
10900 ivpass = ivpass + 1
write (i02,80001) ivtnum
go to 911
20900 ivfail = ivfail + 1
ivcorr = -3
write (i02,80004) ivtnum, ivcomp ,ivcorr
911 continue
ivtnum = 91
c
c **** test 91 ****
c
if (iczero) 30910, 910, 30910
910 continue
ivcomp = ivon12
go to 40910
30910 ivdele = ivdele + 1
write (i02,80003) ivtnum
if (iczero) 40910, 921, 40910
40910 if (ivcomp + 76) 20910, 10910, 20910
10910 ivpass = ivpass + 1
write (i02,80001) ivtnum
go to 921
20910 ivfail = ivfail + 1
ivcorr = -76
write (i02,80004) ivtnum, ivcomp ,ivcorr
921 continue
ivtnum = 92
c
c **** test 92 ****
c
if (iczero) 30920, 920, 30920
920 continue
ivcomp= ivon13
go to 40920
30920 ivdele = ivdele + 1
write (i02,80003) ivtnum
if (iczero) 40920, 931, 40920
40920 if (ivcomp + 587) 20920, 10920, 20920
10920 ivpass = ivpass + 1
write (i02,80001) ivtnum
go to 931
20920 ivfail = ivfail + 1
ivcorr = -587
write (i02,80004) ivtnum, ivcomp ,ivcorr
931 continue
ivtnum = 93
c
c **** test 93 ****
c
if (iczero) 30930, 930, 30930
930 continue
ivcomp = ivon14
go to 40930
30930 ivdele = ivdele + 1
write (i02,80003) ivtnum
if (iczero) 40930, 941, 40930
40930 if (ivcomp + 9999) 20930, 10930, 20930
10930 ivpass = ivpass + 1
write (i02,80001) ivtnum
go to 941
20930 ivfail = ivfail + 1
ivcorr = -9999
write (i02,80004) ivtnum, ivcomp ,ivcorr
941 continue
ivtnum = 94
c
c **** test 94 ****
c
if (iczero) 30940, 940, 30940
940 continue
ivcomp = ivon15
go to 40940
30940 ivdele = ivdele + 1
write (i02,80003) ivtnum
if (iczero) 40940, 951, 40940
40940 if (ivcomp + 21111) 20940, 10940, 20940
10940 ivpass = ivpass + 1
write (i02,80001) ivtnum
go to 951
20940 ivfail = ivfail + 1
ivcorr = -21111
write (i02,80004) ivtnum, ivcomp ,ivcorr
c
c tests 95 through 99 check the values initialized by the data
c statement containing ivon16,...,ivon20.
c
951 continue
ivtnum = 95
c
c **** test 95 ****
c
if (iczero) 30950, 950, 30950
950 continue
ivcomp =ivon16
go to 40950
30950 ivdele = ivdele + 1
write (i02,80003) ivtnum
if (iczero) 40950, 961, 40950
40950 if (ivcomp - 119) 20950, 10950, 20950
10950 ivpass = ivpass + 1
write (i02,80001) ivtnum
go to 961
20950 ivfail = ivfail + 1
ivcorr = 119
write (i02,80004) ivtnum, ivcomp ,ivcorr
961 continue
ivtnum = 96
c
c **** test 96 ****
c
if (iczero) 30960, 960, 30960
960 continue
ivcomp=ivon17
go to 40960
30960 ivdele = ivdele + 1
write (i02,80003) ivtnum
if (iczero) 40960, 971, 40960
40960 if (ivcomp - 119) 20960, 10960, 20960
10960 ivpass = ivpass + 1
write (i02,80001) ivtnum
go to 971
20960 ivfail = ivfail + 1
ivcorr = 119
write (i02,80004) ivtnum, ivcomp ,ivcorr
971 continue
ivtnum = 97
c
c **** test 97 ****
c
if (iczero) 30970, 970, 30970
970 continue
ivcomp = ivon18
go to 40970
30970 ivdele = ivdele + 1
write (i02,80003) ivtnum
if (iczero) 40970, 981, 40970
40970 if (ivcomp - 7) 20970, 10970, 20970
10970 ivpass = ivpass + 1
write (i02,80001) ivtnum
go to 981
20970 ivfail = ivfail + 1
ivcorr = 7
write (i02,80004) ivtnum, ivcomp ,ivcorr
981 continue
ivtnum = 98
c
c **** test 98 ****
c
if (iczero) 30980, 980, 30980
980 continue
ivcomp = ivon19
go to 40980
30980 ivdele = ivdele + 1
write (i02,80003) ivtnum
if (iczero) 40980, 991, 40980
40980 if (ivcomp - 7) 20980, 10980, 20980
10980 ivpass = ivpass + 1
write (i02,80001) ivtnum
go to 991
20980 ivfail = ivfail + 1
ivcorr = 7
write (i02,80004) ivtnum, ivcomp ,ivcorr
991 continue
ivtnum = 99
c
c **** test 99 ****
c
if (iczero) 30990, 990, 30990
990 continue
ivcomp = ivon20
go to 40990
30990 ivdele = ivdele + 1
write (i02,80003) ivtnum
if (iczero) 40990, 1001, 40990
40990 if (ivcomp + 427) 20990,10990,20990
10990 ivpass = ivpass + 1
write (i02,80001) ivtnum
go to 1001
20990 ivfail = ivfail + 1
ivcorr = -427
write (i02,80004) ivtnum, ivcomp ,ivcorr
1001 continue
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 fm007)
end