1
           FORTRAN COMPILER VALIDATION SYSTEM
 
 
                      VERSION 2.1
 
           FOR OFFICIAL USE ONLY - COPYRIGHT 1978
 
                   SUBSET LEVEL TEST
 
 
      ----------------------------------------------
 
          TEST 33
     LAST LINE ON THIS PAGE
1     THIS IS FIRST LINE ON PAGE
 
          TEST 34
 
 THERE IS ONE BLANK LINE BEFORE THIS LINE
           
           
 THERE ARE TWO BLANK LINES BEFORE THIS LINE


 THERE ARE THREE BLANK LINES BEFORE THIS LINE
 
          TEST 35
 NEXT LINE CONTAINS 54 CHARACTERS
 123456789012345678901234567890123456789012345678901234
1
 
          TEST 36
           THIS TEST PRINTS 3 UNDER I1 DESCRIPTOR
           3
 
          TEST 37
           THIS TEST PRINTS 15 UNDER I2 DESCRIPTOR
           15
 
          TEST 38
           THIS TEST PRINTS 291 UNDER I3 DESCRIPTOR
           291
 
          TEST 39
           THIS TEST PRINTS 4321 UNDER I4 DESCRIPTOR
           4321
 
          TEST 40
           THIS TEST PRINTS 12345 UNDER I5 DESCRIPTOR
           12345
 
          TEST 41
   THIS TEST PRINTS 1, 22, 333, 4444, AND 25555 UNDER
          (10X,I1,3X,I2,3X,I3,3X,I4,3X,I5)
          1   22   333   4444   25555
 
          TEST 42
          NEXT TWO LINES ARE IDENTICAL
      IVON01 =  113   IVON02 =    8
      IVON01 =  113   IVON02 =    8
1
 
          TEST 43
           THIS TEST PRINTS -1 UNDER I2 DESCRIPTOR
           -1
 
          TEST 44
           THIS TEST PRINTS -22 UNDER I3 DESCRIPTOR
           -22
 
          TEST 45
           THIS TEST PRINTS -333 UNDER I4 DESCRIPTOR
           -333
 
          TEST 46
           THIS TEST PRINTS -4444 UNDER I5 DESCRIPTOR
           -4444
 
          TEST 47
           THIS TEST PRINTS -15555 UNDER DESCRIPTOR I6
           -15555
 
          TEST 48
        THIS TEST PRINTS -9, -88, -777, -6666, AND -25555
           UNDER FORMAT 10X,I2,3X,I3,3X,I4,3X,I5,3X,I6
          -9   -88   -777   -6666   -25555
 
          TEST 49
                  THIS TEST PRINTS 5, -54, 543, -5432, AND 32000
           UNDER I5 NUMERIC FIELD DESCRIPTOR
               5     -54     543   -5432   32000
 
      ----------------------------------------------
 
                     END OF PROGRAM FM005
exit 0