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