
Command:#monload 1


Command:parm
0.000   ENTER called

Command:DEFINE 5,ERCS13:NBSFTESTS_PART01DATA
0.021   ENTER called

Command:F77 ERCS13:NBSFTESTS_PART01      ,FY
0.044   ENTER called
0.091   ENTER called
   main program
    99           DATA GI3B(1,1,2),GG1B(1),EP1S(15)/2HNO,2*2HAD/

Warning 193  Use of Hollerith is not standard FORTRAN77

   102           DATA  I1I(2),IAC2I(1,5),IAC2I(1,3), I1I(5),IAC2I(2,4),
                *MCA3I(1,1,2), AVI,EP1S(13),AC2S(2,6),AC2S(1,6),AC3S(1,1,1),
                *AC2S(3,6),AC3S(1,1,2),AC2S(4,6), AVD,A1D(1),DPA2D(1,1),
                *MCA3D(1,1,1),A1D(2),MCA3D(1,1,2),LL1C(29),LN3C(8,2,1),BCVC,
                *LM2C(8,4),GH2B(1,1),GI3B(1,1,1), MCVB/3*0,4*-750,2*0.,2*246.15,
                *354674.E-2,354.674E+ 1,35467.4E-01,3*-.295D5,-29.5D+3,
                *3456.78901D+01,0.345678901D+5,2*(1.11E1,+222.2E-1),(-34.5,-6.78),
                *(-.345E2,-678.E-2),2*.TRUE.,.FALSE./, I1I(3), I1I(4),
                *MCA3I(1,2,2),AC2S(5,6),JVS      ,EP1S(14),AC3S(1,1,3),IAC2I(1,4),
                *CHEVC,LL1C(31),DCVC,LM2C(8,2),A1D(3),MCA3D(1,3,1),A1D(4),
                *MCA3D(1,4,1),          MCA1B(7),GH2B(1,2)             / 2*10,+246,
                *-.75005E03,-7.5005E+02,2HBC,2H*=,2H P,2*(10.,-20.),
                *(-200.,+4000.),(-2000.E-1,+400.E1),+1122.335D-6,0.00001122335D+2,
                *34.0D11,0.034D14,2*.FALSE./

Warning 193  Use of Hollerith is not standard FORTRAN77

 1074 Statements compiled

Command:RUN FY
3.254   ENTER called
3.268   ENTER called
 F O R T R A N  T E S T  P R O G R A M S

 PREPARED BY NATIONAL BUREAU OF STANDARDS

 FOR USE ON LARGE FORTRAN PROCESSORS

 IN ACCORDANCE WITH ASA FORTRAN X3.9-1966

 VERSION 3     PART 1



  BASED ON ASA FORTRAN X3.9-1966

  TEST PROGRAMS

  FORTRAN COMPILER

 FMTRW - (008) FORMATTED I/O

 ASA REFS - 7.1.3.2.2  7.1.3.2.3  7.2.3

 RESULTS


 1010101010101010101099999999988888888
 7777777666666555554444333221

 AAA          BBB          CCC
  DDD         EEE         FFF
   GGG        HHH        III
    JJJ       KKK       LLL
     MMM      NNN      OOO
      PPP     QQQ     RRR
       SSS    TTT    UUU
        VVV   WWW   XXX
           YYY   ZZZ

 = + - * / ( ) , . $

 BEGIN VERTICAL SPACING

 FORMAT(14H   SKIP 1 LINE  /)

 FORMAT(15H   SKIP 2 LINES  //)


 FORMAT(16H   SKIP 3 LINES  ///)



 IMBEDDED SLASHES - SKIP 1 LINE

 SKIP 2 LINES


 SKIP 3 LINES



 SKIP TO NEXT LINE
 SKIP 1 LINE

 TEST NO
         /1H+,7HADVANCE
 SKIP TO NEW PAGE



 END OF VERTICAL SPACING TEST


 BEGIN I CONVERSION TEST
 EACH PAIR OF LINES SHOULD BE IDENTICAL
 LINE 1 OF EACH GROUP IS HOLLERITH INFORMATION

 999
 999

 5555 4444
 5555 4444

 666  777777  8
 666  777777  8

 333333111112222222255555444444444444
 333333111112222222255555444444444444

 BEGIN F CONVERSION TEST
 EACH PAIR OF LINES SHOULD BE IDENTICAL

 7.7123456.7
 7.7123456.7

 8.889.9997.123456
 8.889.9997.123456

 5.44446.5555533.133.133.133.1444.1
 5.44446.5555533.133.133.133.1444.1

 5555.15555.1  66666.166666.1  44.22
 5555.15555.1  66666.166666.1  44.22

 2.12.12.12.12.1666.3334.3334.3334.333
 2.12.12.12.12.1666.3334.3334.3334.333


 BEGIN E CONVERSION TEST
 EACH PAIR OF LINES SHOULD BE IDENTICAL

 -0.1E+01   0.22E-01
 -0.1E+01   0.22E-01

  0.333E+02   0.4444E+03
  0.333E+02   0.4444E+03

 -0.55555E-03   0.666666E+00
 -0.55555E-03   0.666666E+00

  0.9876543E+12
  0.9876543E+12
 BEGIN COMPLEX CONVERSION TEST
 EACH GROUP SHOULD BE IDENTICAL

 1.0  5.5
 1.0  5.5

 22.0  66.6
 22.0  66.6

 33.1234  55.0789
 33.1234  55.0789

 123.00  456.88
 123.00  456.88

  0.123E+01   0.987E+01
  0.123E+01   0.987E+01

 -0.2345E+02  -0.6879E+02
 -0.2345E+02  -0.6879E+02

  0.7E+03   0.4E+03
  0.7E+03   0.4E+03

  0.9876543E-04   0.1357913E-04
  0.9876543E-04   0.1357913E-04

 19.34   0.2468E+02
 19.34   0.2468E+02

  0.765E+02  87.6
  0.765E+02  87.6

 43.96 0.5407E+02
 43.96 0.5407E+02
 43.96 0.5407E+02
 43.96 0.5407E+02


 BEGIN D CONVERSION TEST
 EACH GROUP SHOULD BE IDENTICAL

  0.1D+06
  0.1E+06

 -0.334D-04
 -0.334E-04
 -0.334E-04

  0.7657654D+00
  0.7657654E+00

  0.12345678901D+10
  0.12345678901E+10

  0.98765432109876D-01
  0.98765432109876E-01
  0.98765432109876E-01
  0.98765432109876E-01

 -0.555555542D+03
 -0.555555542E+03
 -0.555555542E+03


 BEGIN L CONVERSION TEST
 LINES BELOW SHOULD BE IDENTICAL


    T   F   F  T T  FTF
    T   F   F  T T  FTF


 TEST UNSUBSCRIPTED ARRAY NAMES
 IN I/O LISTS. EACH GROUP OF LINES
 SHOULD BE IDENTICAL.

 9.91.19.92.29.93.39.94.4
 9.91.19.92.29.93.39.94.4
 9.91.19.92.29.93.39.94.4

 -9.9-9.9-9.9-9.9
 -9.9-9.9-9.9-9.9

 -0.99D+01-0.99D+01-0.99D+01-0.99D+01
 -0.99E+01-0.99E+01-0.99E+01-0.99E+01
 -0.99E+01-0.99E+01-0.99E+01-0.99E+01

 9999999999
 9999999999

  0.99D+01 0.99D+01 0.99D+01 0.99D+01
  0.99E+01 0.99E+01 0.99E+01 0.99E+01

 0.9 0.9 0.9 0.9 0.9 0.9 0.9 0.9 0.9
 0.9 0.9 0.9 0.9 0.9 0.9 0.9 0.9 0.9
 0.9 0.9 0.9 0.9 0.9 0.9 0.9 0.9 0.9
 0.9 0.9 0.9 0.9 0.9 0.9 0.9 0.9 0.9
 TF
 TF

 TFTFTFTF
 TFTFTFTF

 99999999
 99999999

  0.99D+01
  0.99E+01
  0.99E+01
  0.99E+01
  0.99E+01
  0.99E+01

 9.95.59.96.69.97.79.98.8
 9.95.59.96.69.97.79.98.8
 9.95.59.96.69.97.79.98.8
 9.95.59.96.69.97.79.98.8

 9999999999999999
 9999999999999999

 TFFT
 TFFT

 9.99.99.99.99.9
 9.99.99.99.99.9

 LEADING BLANK INSERTION TEST
 EACH PAIR OF LINES SHOULD BE IDENTICAL

 8
 8

 22
 22

  22
  22

   22
   22

    22
    22

 7.7
 7.7

  8.88
  8.88
   9.999
   9.999

    5.4444
    5.4444

     6.55555
     6.55555

      7.123456
      7.123456

 0.21E+01
 0.21E+01

  0.331E+02
  0.331E+02

   0.4441E+03
   0.4441E+03

    0.55551E+04
    0.55551E+04

     0.666661E+05
     0.666661E+05

      0.1234567E+06
      0.1234567E+06

 0.1D+00
 0.1E+00

  0.1D+00
  0.1E+00

   0.1D+00
   0.1E+00

    0.1D+00
    0.1E+00

 1.0  5.5
 1.0  5.5

  9.9   5.5
  9.9   5.5

   9.9    5.5
   9.9    5.5

    1.0     5.5
    1.0     5.5
 TEST LOGICAL FIELDS WITH BLANKS
 LINES BELOW SHOULD BE IDENTICAL


      T   F         T    F
      T   F         T    F


 TEST D = 0, W=D+1  (PAIRS OF LINES
 BELOW SHOULD BE IDENTICAL)


 4444.
 4444.

  .55555
  .55555

 BEGIN G CONVERSION
 EACH PAIR OF LINES SHOULD BE IDENTICAL

    .1235E+05      1235.      123.5
   0.1235E+05      1235.      123.5


    12.35          1.235      .1235
    12.35          1.235     0.1235
 SCALE FACTOR ON READ
 IN ORDER OF FORMAT OCCURRENCE

 CARD   9876.54   98.7654E2     9876.54
 DESC    2PF8.3     -2PE9.4        F9.4
 TO BE  98.7654   .9877E+04   987654.00
 IS     98.7654  0.9877E+04   987654.00

 CARD   987.654   864786D-4   86.4786E2
 DESC    0PG9.4        D9.4     -2PE9.4
 TO BE  987.654   .8648D-02   .8648E+04
 IS     987.654  0.8648E-02  0.8648E+04

 CARD   86.4786   8657.87D0     9876.54
 DESC      F9.4        D9.4      2PG9.4
 TO BE 8647.860   .8658D+04       98.77
 IS    8647.859  0.8658E+04       98.77

 SCALE FACTOR ON WRITE
 IN ORDER OF FORMAT OCCURRENCE

 CARD   9.87655   98.7654E2     9876.54
 DESC   2PF12.2    -2PE12.4       F12.4
 TO BE   987.65   .0099E+06     98.7654
 IS      987.65  0.0099E+06     98.7654

 CARD   987.654   864786D-3   86.4786E2
 DESC   1PG12.2       D12.4    -2PE12.4
 TO BE 9.88E+02  8.6479D+02   .0086E+06
 IS    9.88E+02  8.6479E+02  0.0086E+06

 CARD   86.4786   8657.86D0     9876.54
 DESC   2PF12.2     1PD12.4     2PG16.4
 TO BE  8647.86  8.6579D+03       9877.
 IS     8647.86  8.6579E+03       9877.

 THE LAST TWO LINES OF EACH
 SET SHOULD BE THE SAME

 FORMAT RESCAN - THE SECOND GROUP OF
 EACH SET SHOULD AGREE WITH THE FIRST

  1   22   333
  4   55   666
  7   88   999

  1   22   333
  4   55   666
  7   88   999

  2 **   4 $$   6 ((
  8 $$

  2 **   4 $$   6 ((
  8 $$
 AFRMT - (009) A-CONVERSION

 ASA REF - 7.2.3.8

 EACH PAIR OF LINES SHOULD BE IDENTICAL
       FOR COMPUTERS STORING FOUR
       OR MORE CHARACTERS PER WORD


 ABCDEFGHIJKLMNOPQRSTUVWX YZ
 ABCDEFGHIJKLMNOPQRSTUVWX YZ

 =-*/()+,.$
 =-*/()+,.$

 0123456789+AB2$(C)
 0123456789+AB2$(C)


 TEST A CONVERSION - ADDING BLANKS
 EACH PAIR OF LINES SHOULD BE IDENTICAL


  A
  A

  *
  *

  Q
  Q

  1
  1

  Z
  Z

 TEST A FIELD TRUNCATION
 2ND LINE SHOULD PARTIALLY MATCH 1ST


 ABCDEFGHIJKLMNOPQRSTUVWXYZ
                       WXYZ
 DATA2 - (010) DATA STATEMENT USE

 ASA REFS. - 7.2.2

 RESULTS

 LINE 1 OF EACH GROUP IS HOLLERITH
 INFORMATION. TEST IS SUCCESSFUL IF
 EACH GROUP CONTAINS THE SAME VALUES

                        0
                        0
                        0
                        0
                        0


                       10
                       10
                       10
                       10
                       10


                      246
                      246
                      246
                      246
                      246


                     -750
                     -750
                     -750
                     -750
                     -750


                     0.00
                     0.00
                     0.00
                     0.00
                     0.00


                   246.15
                   246.15
                   246.15
                   246.15
                   246.15


                  3546.74
                  3546.74
                  3546.74
                  3546.74
                  3546.74
                  -750.05
                  -750.05
                  -750.05
                  -750.05
                  -750.05


         11.1       22.22
         11.1       22.22
         11.1       22.22
         11.1       22.22
         11.1       22.22


       -34.50       -6.78
       -34.50       -6.78
       -34.50       -6.78
       -34.50       -6.78
       -34.50       -6.78


        10.00      -20.00
        10.00      -20.00
        10.00      -20.00
        10.00      -20.00
        10.00      -20.00


      -200.00     4000.00
      -200.00     4000.00
      -200.00     4000.00
      -200.00     4000.00
      -200.00     4000.00


               -0.295D+05
               -0.295E+05
               -0.295E+05
               -0.295E+05
               -0.295E+05


          0.345678901D+05
          0.345678901E+05
          0.345678901E+05
          0.345678901E+05
          0.345678901E+05


            0.1122335D-02
            0.1122335E-02
            0.1122335E-02
            0.1122335E-02
            0.1122335E-02
                 0.34D+13
                 0.34E+13
                 0.34E+13
                 0.34E+13
                 0.34E+13



                      T
                      T
                      T
                      T
                      T


                      F
                      F
                      F
                      F
                      F


                     AD
                     AD
                     AD

                     NO
                     NO

                     BC
                     BC

                     *=
                     *=

                      P
                      P
 AASGN - (011) SIMPLE REAL AND INTEGER
         ARITHMETIC ASSIGNMENT STATEMENTS
 ASA REF. - 7.1.1

 LINE 1 OF EACH PAIR IS HOLLERITH
 INFORMATION

 INTEGER RESULTS

      1       12345             0
      1       12345             0

      2          -3         -8765
      2          -3         -8765

   6912           0           -23
   6912           0           -23

   4444        4321            45
   4444        4321            45

   2468       -3123             0
   2468       -3123             0

 REAL RESULTS

  1.0          358.6724      -2.0
  1.0          358.6724      -2.0

  3.0        -2714.250       29.30542
  3.0        -2714.250       29.30542

 86.27        1034.2          0.0
 86.27        1034.2          0.0

  0.0          345.678       -2.5
  0.0          345.678       -2.5

 -5.66           1.111111     1.0
 -5.66           1.111111     1.0

 -2.0            3.0          4.0
 -2.0            3.0          4.0

  5.0           -6.0          0.0
  5.0           -6.0          0.0

  0.23          -0.716       -0.7
  0.23          -0.716       -0.7

  0.81           0.9
  0.81           0.9
  0.105E+03   -0.76E+02     0.3324E+03
  0.105E+03   -0.76E+02     0.3324E+03

  0.5132E+01   0.534E-02   -0.1419E+00
  0.5132E+01   0.534E-02   -0.1419E+00

 -0.99E+03     0.105210E+05 0.456E+02
 -0.99E+03     0.105210E+05 0.456E+02

  0.6652E+03  -0.529E+03    0.78564E+04
  0.6652E+03  -0.529E+03    0.78564E+04

 -0.34567E+04  0.6162E+04   0.23E+00
 -0.34567E+04  0.6162E+04   0.23E+00

  0.94333E+01  0.3524E-02  -0.7432E+00
  0.94333E+01  0.3524E-02  -0.7432E+00

  0.1E+01      0.123E+05   -0.11E+05
  0.1E+01      0.123E+05   -0.11E+05

  0.144E+02   -0.12E+00     0.3645E+01
  0.144E+02   -0.12E+00     0.3645E+01

 -0.200E+04    0.99E+04     0.0E+00
 -0.200E+04    0.99E+04     0.0E+00

 -0.1512E+06   0.214E+06    0.34E+01
 -0.1512E+06   0.214E+06    0.34E+01

 -0.4E-01      0.53214E+01  0.6E+04
 -0.4E-01      0.53214E+01  0.6E+04

  0.72E+06    -0.813E+04    0.234E+00
  0.72E+06    -0.813E+04    0.234E+00

 -0.3E+02      0.44E+01     0.1E+05
 -0.3E+02      0.44E+01     0.1E+05

  0.36E-03     0.9E-04     -0.10E-02
  0.36E-03     0.9E-04     -0.10E-02

  0.777E+01   -0.29E+03     0.4E+01
  0.777E+01   -0.29E+03     0.4E+01

  0.90E+01     0.810E+00   -0.7E+03
  0.90E+01     0.810E+00   -0.7E+03

  0.62E+03     0.5310E+01  -0.442E+02
  0.62E+03     0.5310E+01  -0.442E+02

  0.3E-04      0.25E-03    -0.163E-02
  0.3E-04      0.25E-03    -0.163E-02

  0.709E+06    0.81842E+05 -0.9E+06
  0.709E+06    0.81842E+05 -0.9E+06

  0.627E+05    0.53E+05    -0.4E+05
  0.627E+05    0.53E+05    -0.4E+05

  0.1463E+02   0.2E-02     -0.355E+02
  0.1463E+02   0.2E-02     -0.355E+02

  0.29E+07     0.4072E+07  -0.61835E+07
  0.29E+07     0.4072E+07  -0.61835E+07

  0.829E+04    0.3E+03     -0.1E+04
  0.829E+04    0.3E+03     -0.1E+04

  0.3404E+00   0.55E-03    -0.761E+02
  0.3404E+00   0.55E-03    -0.761E+02



Command:#n


Command:F77 ERCS13:NBSFTESTS_PART02      ,FY
   main program
 926 Statements compiled

Command:RUN FY
 F O R T R A N  T E S T  P R O G R A M S

 PREPARED BY NATIONAL BUREAU OF STANDARDS

 FOR USE ON LARGE FORTRAN PROCESSORS

 IN ACCORDANCE WITH ASA FORTRAN X3.9-1966

 VERSION 3     PART 2



  BASED ON ASA FO-TRAN X3.9-1966

  TEST PROGRAMS

  FORTRAN COMPILER

 DASGN - (013) SIMPLE D.P. ARITHMETIC
               ASSIGNMENT STMNTS.
 ASA REFS. - 7.1.1.1  5.1.1.3

 RESULTS

 LINE 1 OF EACH GROUP IS
 HOLLERITH INFORMATION

     0.34D+02
     0.34E+02
     0.34E+02
     0.34E+02
     0.34E+02

     0.1234567891011D+08
     0.1234567891011E+08
     0.1234567891011E+08
     0.1234567891011E+08
     0.1234567891011E+08

     0.298765234D-01
     0.298765234E-01
     0.298765234E-01
     0.298765234E-01
     0.298765234E-01

     0.34510000555D+07
     0.34510000555E+07
     0.34510000555E+07
     0.34510000555E+07
     0.34510000555E+07

     0.22232425D+08
     0.22232425E+08
     0.22232425E+08
     0.22232425E+08
     0.22232425E+08

     0.281420D+05
     0.281420E+05
     0.281420E+05
     0.281420E+05
     0.281420E+05

     0.4455667788D+16
     0.4455667788E+16
     0.4455667788E+16
     0.4455667788E+16
     0.4455667788E+16
     0.35692483569248D+12
     0.35692483569248E+12
     0.35692483569248E+12
     0.35692483569248E+12
     0.35692483569248E+12

     0.6549876D-03
     0.6549876E-03
     0.6549876E-03
     0.6549876E-03
     0.6549876E-03

     0.78D+10
     0.78E+10
     0.78E+10
     0.78E+10
     0.78E+10

     0.0D+00
     0.0E+00
     0.0E+00
     0.0E+00
     0.0E+00

    -0.172635445D+11
    -0.172635445E+11
    -0.172635445E+11
    -0.172635445E+11
    -0.172635445E+11

     0.198762D+05
     0.198762E+05
     0.198762E+05
     0.198762E+05
     0.198762E+05

    -0.254396621D+03
    -0.254396621E+03
    -0.254396621E+03
    -0.254396621E+03
    -0.254396621E+03

     0.34786529910234D-05
     0.34786529910234E-05
     0.34786529910234E-05
     0.34786529910234E-05
     0.34786529910234E-05

    -0.444D-08
    -0.444E-08
    -0.444E-08
    -0.444E-08
    -0.444E-08
     0.0D+00
     0.0E+00
     0.0E+00
     0.0E+00
     0.0E+00

    -0.123D+20
    -0.123E+20
    -0.123E+20
    -0.123E+20
    -0.123E+20

     0.3692468D-01
     0.3692468E-01
     0.3692468E-01
     0.3692468E-01
     0.3692468E-01

    -0.147937824967D+07
    -0.147937824967E+07
    -0.147937824967E+07
    -0.147937824967E+07
    -0.147937824967E+07

     0.927786174985D+02
     0.927786174985E+02
     0.927786174985E+02
     0.927786174985E+02
     0.927786174985E+02

    -0.59354914223619D+00
    -0.59354914223619E+00
    -0.59354914223619E+00
    -0.59354914223619E+00
    -0.59354914223619E+00

     0.98663271D-03
     0.98663271E-03
     0.98663271E-03
     0.98663271E-03
     0.98663271E-03

    -0.1D-15
    -0.1E-15
    -0.1E-15
    -0.1E-15
    -0.1E-15

     0.3261294675D+22
     0.3261294675E+22
     0.3261294675E+22
     0.3261294675E+22
     0.3261294675E+22
    -0.969492909D+13
    -0.969492909E+13
    -0.969492909E+13
    -0.969492909E+13
    -0.969492909E+13

     0.1246085D+01
     0.1246085E+01
     0.1246085E+01
     0.1246085E+01
     0.1246085E+01

    -0.59D+02
    -0.59E+02
    -0.59E+02
    -0.59E+02
    -0.59E+02

     0.798281392253D+12
     0.798281392253E+12
     0.798281392253E+12
     0.798281392253E+12
     0.798281392253E+12

     0.42921D+11
     0.42921E+11
     0.42921E+11
     0.42921E+11
     0.42921E+11

     0.793685443D+05
     0.793685443E+05
     0.793685443E+05
     0.793685443E+05
     0.793685443E+05

     0.33344455566D+13
     0.33344455566E+13
     0.33344455566E+13
     0.33344455566E+13
     0.33344455566E+13

    -0.222333444D+10
    -0.222333444E+10
    -0.222333444E+10
    -0.222333444E+10
    -0.222333444E+10

     0.1D+02
     0.1E+02
     0.1E+02
     0.1E+02
     0.1E+02
    -0.2D+03
    -0.2E+03
    -0.2E+03
    -0.2E+03
    -0.2E+03

     0.33333333333333D+11
     0.33333333333333E+11
     0.33333333333333E+11
     0.33333333333333E+11
     0.33333333333333E+11

    -0.444444444D+05
    -0.444444444E+05
    -0.444444444E+05
    -0.444444444E+05
    -0.444444444E+05

     0.34000000000000D+02
     0.34000000000000E+02
     0.34000000000000E+02
     0.34000000000000E+02
     0.34000000000000E+02
     0.34000000000000E+02

    -0.17263544500000D+11
    -0.17263544500000E+11
    -0.17263544500000E+11
    -0.17263544500000E+11
    -0.17263544500000E+11
    -0.17263544500000E+11

     0.00000000000000D+00
     0.00000000000000E+00
     0.00000000000000E+00
     0.00000000000000E+00
     0.00000000000000E+00
     0.00000000000000E+00

    -0.17263544500000D+11
    -0.17263544500000E+11
    -0.17263544500000E+11
    -0.17263544500000E+11
    -0.17263544500000E+11
    -0.17263544500000E+11

     0.65498760000000D-03
     0.65498760000000E-03
     0.65498760000000E-03
     0.65498760000000E-03
     0.65498760000000E-03
     0.65498760000000E-03
     0.00000000000000D+00
     0.00000000000000E+00
     0.00000000000000E+00
     0.00000000000000E+00
     0.00000000000000E+00
     0.00000000000000E+00

     0.29876523400000D-01
     0.29876523400000E-01
     0.29876523400000E-01
     0.29876523400000E-01
     0.29876523400000E-01
     0.29876523400000E-01

    -0.25439662100000D+03
    -0.25439662100000E+03
    -0.25439662100000E+03
    -0.25439662100000E+03
    -0.25439662100000E+03
    -0.25439662100000E+03
 EACH GROUP SHOULD BE IDENTICAL EXCEPT
 FOR THE SIGNS OF THE FIRST TWO LINES

     0.34786529910234D-05
     0.34786529910234E-05
    -0.34786529910234E-05
    -0.34786529910234E-05
    -0.34786529910234E-05
    -0.34786529910234E-05

    -0.14793782496700D+07
    -0.14793782496700E+07
     0.14793782496700E+07
     0.14793782496700E+07
     0.14793782496700E+07
     0.14793782496700E+07

     0.29876523400000D-01
     0.29876523400000E-01
    -0.29876523400000E-01
    -0.29876523400000E-01
    -0.29876523400000E-01
    -0.29876523400000E-01

    -0.14793782496700D+07
    -0.14793782496700E+07
     0.14793782496700E+07
     0.14793782496700E+07
     0.14793782496700E+07
     0.14793782496700E+07

     0.29876523400000D-01
     0.29876523400000E-01
    -0.29876523400000E-01
    -0.29876523400000E-01
    -0.29876523400000E-01
    -0.29876523400000E-01

     0.98663271000000D-03
     0.98663271000000E-03
    -0.98663271000000E-03
    -0.98663271000000E-03
    -0.98663271000000E-03
    -0.98663271000000E-03

     0.12345678910110D+08
     0.12345678910110E+08
    -0.12345678910110E+08
    -0.12345678910110E+08
    -0.12345678910110E+08
    -0.12345678910110E+08
    -0.44400000000000D-08
    -0.44400000000000E-08
     0.44400000000000E-08
     0.44400000000000E-08
     0.44400000000000E-08
     0.44400000000000E-08

 CASGN - (015) COMPLEX ASSIGNMENT
               STATEMENTS
 ASA REFS. - 5.1.1.4  7.1.1.1

 RESULTS

 LINE 1 OF EACH GROUP IS
 HOLLERITH INFORMATION

 VALUES IN A GROUP SHOULD BE THE SAME

     0.222E+02         0.3333E+02
     0.222E+02         0.3333E+02
     0.222E+02         0.3333E+02
     0.222E+02         0.3333E+02
     0.222E+02         0.3333E+02

     0.3956E+03        0.41067E+04
     0.3956E+03        0.41067E+04
     0.3956E+03        0.41067E+04
     0.3956E+03        0.41067E+04
     0.3956E+03        0.41067E+04

    -0.1234567E+05    -0.1234567E+04
    -0.1234567E+05    -0.1234567E+04
    -0.1234567E+05    -0.1234567E+04
    -0.1234567E+05    -0.1234567E+04
    -0.1234567E+05    -0.1234567E+04

     0.89E+01         -0.91E+01
     0.89E+01         -0.91E+01
     0.89E+01         -0.91E+01
     0.89E+01         -0.91E+01
     0.89E+01         -0.91E+01

    -0.263512E+04      0.4621E+02
    -0.263512E+04      0.4621E+02
    -0.263512E+04      0.4621E+02
    -0.263512E+04      0.4621E+02
    -0.263512E+04      0.4621E+02

     0.1E+02           0.2E+02
     0.1E+02           0.2E+02
     0.1E+02           0.2E+02

     0.3E+03           0.4E+04
     0.3E+03           0.4E+04
     0.3E+03           0.4E+04

    -0.5E+02          -0.6E+03
    -0.5E+02          -0.6E+03
    -0.5E+02          -0.6E+03

     0.71E+02         -0.92E+02
     0.71E+02         -0.92E+02
     0.71E+02         -0.92E+02

    -0.883E+03         0.1414E+04
    -0.883E+03         0.1414E+04
    -0.883E+03         0.1414E+04

     0.1E+02           0.562E+03
     0.1E+02           0.562E+03
     0.1E+02           0.562E+03

     0.2002E+04       -0.983E+03
     0.2002E+04       -0.983E+03
     0.2002E+04       -0.983E+03

     0.461E+03        -0.165E+03
     0.461E+03        -0.165E+03
     0.461E+03        -0.165E+03

    -0.21E+02          0.122E+03
    -0.21E+02          0.122E+03
    -0.21E+02          0.122E+03

     0.1E-02           0.2E-02
     0.1E-02           0.2E-02
     0.1E-02           0.2E-02

     0.562E+00         0.562E+00
     0.562E+00         0.562E+00
     0.562E+00         0.562E+00

    -0.3E+00          -0.3333333E+00
    -0.3E+00          -0.3333333E+00
    -0.3E+00          -0.3333333E+00

     0.4E+00          -0.445E+00
     0.4E+00          -0.445E+00
     0.4E+00          -0.445E+00

    -0.95E+00          0.95E+00
    -0.95E+00          0.95E+00
    -0.95E+00          0.95E+00

     0.164239E-01      0.36E+00
     0.164239E-01      0.36E+00
     0.164239E-01      0.36E+00

     0.21E+00         -0.3963E+00
     0.21E+00         -0.3963E+00
     0.21E+00         -0.3963E+00

     0.3398E+00        0.3398E+00
     0.3398E+00        0.3398E+00
     0.3398E+00        0.3398E+00

    -0.6E+00           0.6E+00
    -0.6E+00           0.6E+00
    -0.6E+00           0.6E+00

     0.0E+00           0.1E+01
     0.0E+00           0.1E+01

     0.4562311E+07     0.789453E+06
     0.4562311E+07     0.789453E+06

     0.449E+06         0.25E+04
     0.449E+06         0.25E+04

     0.22223E+07       0.3332E+05
     0.22223E+07       0.3332E+05

     0.3E+01           0.3E+01
     0.3E+01           0.3E+01
     0.3E+01           0.3E+01

     0.9876543E+05     0.8765432E+04
     0.9876544E+05     0.8765434E+04
     0.9876544E+05     0.8765434E+04

     0.4444E+04        0.55555E-02
     0.4444E+04        0.55555E-02
     0.4444E+04        0.55555E-02

     0.6E-04           0.77E+07
     0.6E-04           0.77E+07
     0.6E-04           0.77E+07

     0.142E+03         0.2667E+02
     0.142E+03         0.2667E+02
     0.142E+03         0.2667E+02

    -0.36923E+06      -0.234E+03
    -0.36923E+06      -0.234E+03
    -0.36923E+06      -0.234E+03

     0.21E+03         -0.21E+03
     0.21E+03         -0.21E+03
     0.21E+03         -0.21E+03

    -0.5959E+03        0.4967E+03
    -0.5959E+03        0.4967E+03
    -0.5959E+03        0.4967E+03

     0.1E+01           0.1E+01
     0.1E+01           0.1E+01
     0.1E+01           0.1E+01

    -0.2E+01          -0.2E+01
    -0.2E+01          -0.2E+01
    -0.2E+01          -0.2E+01

     0.492E+01        -0.6527E+04
     0.492E+01        -0.6527E+04
     0.492E+01        -0.6527E+04
    -0.7371E+06        0.998E-01
    -0.7371E+06        0.998E-01
    -0.7371E+06        0.998E-01

     0.477447E+07     -0.93624E+00
     0.477447E+07     -0.93624E+00
     0.477447E+07     -0.93624E+00

    -0.846200E-02      0.13330E+03
    -0.846200E-02      0.13330E+03
    -0.846200E-02      0.13330E+03

     0.770000E+09      0.81625E+08
     0.770000E+09      0.81625E+08
     0.770000E+09      0.81625E+08

     0.133400E+05      0.37900E+06
     0.133400E+05      0.37900E+06
     0.133400E+05      0.37900E+06

     0.300000E+06      0.30000E+06
     0.300000E+06      0.30000E+06
     0.300000E+06      0.30000E+06

     0.299E-01         0.299E+02
     0.299E-01         0.299E+02
     0.299E-01         0.299E+02

     0.1419E+06        0.1419E+02
     0.1419E+06        0.1419E+02
     0.1419E+06        0.1419E+02

     0.76E-01          0.987E+03
     0.76E-01          0.987E+03
     0.76E-01          0.987E+03

     0.31E+02          0.4659E+05
     0.31E+02          0.4659E+05
     0.31E+02          0.4659E+05

    -0.728E+05        -0.93296E+08
    -0.728E+05        -0.93296E+08
    -0.728E+05        -0.93296E+08

     0.6E+07          -0.6E+07
     0.6E+07          -0.6E+07
     0.6E+07          -0.6E+07

    -0.7914E+07        0.16E+07
    -0.7914E+07        0.16E+07
    -0.7914E+07        0.16E+07

     0.1E+02           0.1E+02
     0.1E+02           0.1E+02
     0.1E+02           0.1E+02
    -0.2E-01          -0.2E-01
    -0.2E-01          -0.2E-01
    -0.2E-01          -0.2E-01

     0.3E-02          -0.3E+04
     0.3E-02          -0.3E+04
     0.3E-02          -0.3E+04

    -0.4E+05           0.4E-03
    -0.4E+05           0.4E-03
    -0.4E+05           0.4E-03

     0.5E+06          -0.5E-04
     0.5E+06          -0.5E-04
     0.5E+06          -0.5E-04

    -0.6E-05           0.6E+07
    -0.6E-05           0.6E+07
    -0.6E-05           0.6E+07

     0.39393E+01       0.62E+04
     0.39393E+01       0.62E+04
     0.39393E+01       0.62E+04

     0.9E+00           0.765765E+03
     0.9E+00           0.765765E+03
     0.9E+00           0.765765E+03

     0.352E+09         0.35E+03
     0.352E+09         0.35E+03
     0.352E+09         0.35E+03

     0.147626E+00      0.891E-14
     0.147626E+00      0.891E-14
     0.147626E+00      0.891E-14

     0.9E-07           0.9999E+08
     0.9E-07           0.9999E+08
     0.9E-07           0.9999E+08

     0.13E-04          0.13E-04
     0.13E-04          0.13E-04
     0.13E-04          0.13E-04

     0.77E+00          0.77E+00
     0.77E+00          0.77E+00
     0.77E+00          0.77E+00

     0.878E+01        -0.878E+01
     0.878E+01        -0.878E+01
     0.878E+01        -0.878E+01

    -0.9797E+02        0.9797E+02
    -0.9797E+02        0.9797E+02
    -0.9797E+02        0.9797E+02
    -0.10101E+15      -0.10101E+15
    -0.10101E+15      -0.10101E+15
    -0.10101E+15      -0.10101E+15

     0.68E+12          0.357628E+00
     0.68E+12          0.357628E+00
     0.68E+12          0.357628E+00

     0.798E-03         0.76444E+00
     0.798E-03         0.76444E+00
     0.798E-03         0.76444E+00

    -0.3247E+20       -0.2594E+05
    -0.3247E+20       -0.2594E+05
    -0.3247E+20       -0.2594E+05

    -0.43599E-19      -0.12E-04
    -0.43599E-19      -0.12E-04
    -0.43599E-19      -0.12E-04

    -0.6E-09          -0.6E+09
    -0.6E-09          -0.6E+09
    -0.6E-09          -0.6E+09

    -0.9119E+06        0.9119E-06
    -0.9119E+06        0.9119E-06
    -0.9119E+06        0.9119E-06

     0.39426E+02      -0.39426E-02
     0.39426E+02      -0.39426E-02
     0.39426E+02      -0.39426E-02

     0.45E-12          0.45E+12
     0.45E-12          0.45E+12
     0.45E-12          0.45E+12

     0.4793E+06        0.3479E+06
     0.4793E+06        0.3479E+06
     0.4793E+06        0.3479E+06
     0.4793E+06        0.3479E+06

     0.3682E+01        0.8236E+02
     0.3682E+01        0.8236E+02
     0.3682E+01        0.8236E+02
     0.3682E+01        0.8236E+02

    -0.2571E+09        0.1752E+09
    -0.2571E+09        0.1752E+09
    -0.2571E+09        0.1752E+09
    -0.2571E+09        0.1752E+09

     0.1460E+00       -0.1064E+05
     0.1460E+00       -0.1064E+05
     0.1460E+00       -0.1064E+05
     0.1460E+00       -0.1064E+05

     0.1642390E-01     0.3600000E+00
     0.1642390E-01     0.3600000E+00
     0.1642390E-01     0.3600000E+00
     0.1642390E-01     0.3600000E+00
     0.1642390E-01     0.3600000E+00
     0.1642390E-01     0.3600000E+00

     0.4562311E+07     0.7894530E+06
     0.4562311E+07     0.7894530E+06
     0.4562311E+07     0.7894530E+06
     0.4562311E+07     0.7894530E+06
     0.4562311E+07     0.7894530E+06
     0.4562311E+07     0.7894530E+06

    -0.6000000E-05     0.6000000E+07
    -0.6000000E-05     0.6000000E+07
    -0.6000000E-05     0.6000000E+07
    -0.6000000E-05     0.6000000E+07
    -0.6000000E-05     0.6000000E+07
    -0.6000000E-05     0.6000000E+07

    -0.9119000E+06     0.9119000E-06
    -0.9119000E+06     0.9119000E-06
    -0.9119000E+06     0.9119000E-06
    -0.9119000E+06     0.9119000E-06
    -0.9119000E+06     0.9119000E-06
    -0.9119000E+06     0.9119000E-06
 EACH GROUP SHOULD BE IDENTICAL EXCEPT
 FOR THE SIGN  OF THE FIRST TWO LINES

     0.3000000E+03     0.4000000E+04
     0.3000000E+03     0.4000000E+04
    -0.3000000E+03    -0.4000000E+04
    -0.3000000E+03    -0.4000000E+04
    -0.3000000E+03    -0.4000000E+04
    -0.3000000E+03    -0.4000000E+04

    -0.5000000E+02    -0.6000000E+03
    -0.5000000E+02    -0.6000000E+03
     0.5000000E+02     0.6000000E+03
     0.5000000E+02     0.6000000E+03
     0.5000000E+02     0.6000000E+03
     0.5000000E+02     0.6000000E+03

     0.7700000E+00     0.7700000E+00
     0.7700000E+00     0.7700000E+00
    -0.7700000E+00    -0.7700000E+00
    -0.7700000E+00    -0.7700000E+00
    -0.7700000E+00    -0.7700000E+00
    -0.7700000E+00    -0.7700000E+00

     0.5000000E+06    -0.5000000E-04
     0.5000000E+06    -0.5000000E-04
    -0.5000000E+06     0.5000000E-04
    -0.5000000E+06     0.5000000E-04
    -0.5000000E+06     0.5000000E-04
    -0.5000000E+06     0.5000000E-04

     0.4920000E+01    -0.6527000E+04
     0.4920000E+01    -0.6527000E+04
    -0.4920000E+01     0.6527000E+04
    -0.4920000E+01     0.6527000E+04
    -0.4920000E+01     0.6527000E+04
    -0.4920000E+01     0.6527000E+04

    -0.6000000E-05     0.6000000E+07
    -0.6000000E-05     0.6000000E+07
     0.6000000E-05    -0.6000000E+07
     0.6000000E-05    -0.6000000E+07
     0.6000000E-05    -0.6000000E+07
     0.6000000E-05    -0.6000000E+07

     0.4444000E+04     0.5555500E-02
     0.4444000E+04     0.5555499E-02
    -0.4444000E+04    -0.5555499E-02
    -0.4444000E+04    -0.5555499E-02
    -0.4444000E+04    -0.5555499E-02
    -0.4444000E+04    -0.5555499E-02

    -0.3692300E+06    -0.2340000E+03
    -0.3692300E+06    -0.2340000E+03
     0.3692300E+06     0.2340000E+03
     0.3692300E+06     0.2340000E+03
     0.3692300E+06     0.2340000E+03
     0.3692300E+06     0.2340000E+03




Command:F77 ERCS13:NBSFTESTS_PART03      ,FY
   main program
 1070 Statements compiled

Command:RUN FY
 F O R T R A N  T E S T  P R O G R A M S

 PREPARED BY NATIONAL BUREAU OF STANDARDS

 FOR USE ON LARGE FORTRAN PROCESSORS

 IN ACCORDANCE WITH ASA FORTRAN X3.9-1966

 VERSION 3     PART 3



  BASED ON ASA FORTRAN X3.9-1966

  TEST PROGRAMS

  FORTRAN COMPILER

 LASGN - (016) ASSIGNMENT OF
               LOGIGAL VARIABLES
 ASA REFS. - 7.1.1.2

 RESULTS


 ALL ANSWERS BELOW MUST BE TRUE

              T
              T
              T
              T
              T
              T
              T
              T
              T
              T
              T
              T
              T
              T
              T
              T
              T
              T
              T
              T
              T



 ALL ANSWERS BELOW MUST BE FALSE

              F
              F
              F
              F
              F
              F
              F
              F
              F
              F
              F
              F
              F
              F
              F

 INTRL - (017) ASSIGN INTEGER, REAL, AND
               DOUBLE PRECISION VALUES
 ASA REFS. - 7.1.1.1.  5.1.1.2
 RESULTS


 ASSIGN INTEGER VARIABLES

  1 - TO REAL VARIABLES

        111.0 *
        111.0

      -1111.0 *
      -1111.0

     -11111.0 *
     -11111.0

          1.0 *
          1.0

  2 - TO DOUBLE PRECISION VARIABLES

     -0.11111D 05 *
     -0.11111E+05

          0.1D 01 *
          0.1E+01

        0.111D 03 *
        0.111E+03

      -0.1111D 04 *
      -0.1111E+04


 ASSIGN INTEGER CONSTANTS

  1 - TO REAL VARIABLES

     -2222.0 *
     -2222.0

       222.0 *
       222.0

    -22222.0 *
    -22222.0

         2.0 *
         2.0
 2 - TO DOUBLE PRECISION VARIABLES

           0.2D 01 *
           0.2E+01

      -0.22222D 05 *
      -0.22222E+05

       -0.2222D 04 *
       -0.2222E+04

         0.222D 03 *
         0.222E+03


 ASSIGN BASIC REAL CONSTANTS

  1 - TO INTEGER VARIABLES

        3 *
        3
        3
        3

       -3 *
       -3

  2 - TO DOUBLE PRECISION VARIABLES

       0.33333D 01 *
       0.33333E+01

     0.3333333D 01 *
     0.3333333E+01

    -0.3333333D 01 *
    -0.3333333E+01

     -0.333333D 01 *
     -0.333333E+01


 ASSIGN REAL VARIABLES

  1 - TO INTEGER VARIABLES

      -44 *
      -44
      -44

       44 *
       44
       44
 2 - TO DOUBLE PRECISION VARIABLES

     -0.444D 02 *
     -0.444E+02

    -0.4444D 02 *
    -0.4444E+02

    0.44444D 02 *
    0.44444E+02

    0.44444D 02 *
    0.44444E+02


 ASSIGN DOUBLE PRECISION VARIABLES

  1 - TO INTEGER VARIABLES

     5555 *
     5555

        5 *
        5

       -5 *
       -5
       -5

  2 - TO REAL VARIABLES

  -0.5555556E 01 *
  -0.5555555E+01

  -0.5555556E 01 *
  -0.5555555E+01

   0.5555556E 01 *
   0.5555555E+01

    0.555555E 04 *
    0.555555E+04

 ASSIGN DOUBLE PRECISION CONSTANTS

  1 - TO INTEGER VARIABLES

        6 *
        6

       -6 *
       -6
       -6

     6666 *
     6666

  2 - TO REAL VARIABLES

   0.6666667E 14 *
   0.6666667E+14

     0.66666E 01 *
     0.66666E+01

  -0.6666666E 01 *
  -0.6666666E+01

  -0.6666667E 01 *
  -0.6666667E+01



ALL TEST OUTPUT SHOULD BE CHECKED
AGAINST THE ASTERISKED (*) FIGURE
WHICH PRECEDES IT
 UGOTO - (020) UNCONDITIONAL GO TO
               STATEMENT

 ASA REFS. - 7.1.2.1.1

 RESULTS

   1

   2

   3

   4

   5

   6

   7

   8


 THIS TEST IS SUCCESSFUL ONLY IF THE
 NUMBERS LISTED ABOVE ARE SEQUENTIALLY
 IN ORDER FROM 1 TO 8
 AGOTO - (021) ASSIGN AND ASSIGNED
               GO TO

 ASA REFS. - 7.1.1.3 AND 7.1.2.1

 RESULTS

      1

      2

      3

      4

      5

      6

      7

      8

      9

     10

     11

     12

     13

     14

     15

     16

     17

     18

     19

     20

  THIS TEST IS SUCCESSFUL ONLY IF THE
 NUMBERS LISTED ABOVE ARE SEQUENTIALLY
 IN ORDER FROM 1 TO 20
 CGOTO - (022) COMPUTED GO TO

 ASA REF. - 7.1.2.1.3

 RESULTS

      1

      2

      3

      4

      5

      6

      7

      8

      9

     10

     11

     12

     13

     14

     15

     16

     17

     18

     19

     20

  THIS TEST IS SUCCESSFUL ONLY IF THE
 NUMBERS LISTED ABOVE ARE SEQUENTIALLY
 IN ORDER FROM 1 TO 20
 ARBAD - (030) BASIC ADDITION

 ASA REF. - 6.1

 RESULTS


 INTEGER ADDITION

 TEST  1     0

 TEST  2     0

 TEST  3     0

 TEST  4     0

 TEST  5     0

 TEST  6     0


 REAL ADDITION

 TEST  7    0.0

 TEST  8    0.0

 TEST  9    0.0

 TEST 10    0.0

 TEST 11    0.0

 TEST 12    0.0


 ALL ABOVE ANSWERS SHOULD BE 0 FOR
 THIS SEGMENT TO BE SUCCESSFUL
 ARFAD - (031) D.P. ADDITION

 ASA REF. - 6.1

 RESULTS


     0.0000000000E+00

     0.0000000000E+00

     0.0000000000E+00

     0.0000000000E+00

     0.2220446049E-15



 THE 5 ANSWERS ABOVE SHOULD BE 0 PLUS
 OR MINUS AN ERROR FACTOR OF 0.1D-13
 ARBSB - (032) BASIC SUBTRACTION

 ASA REFS. - 6.1

 RESULTS


 TEST1 INTEGER SUBTRACTION

         0
         0
         0
         0
         0



 TEST2 REAL SUBTRACTION

       0.0
       0.0
       0.0
       0.0

ALL ABOVE ANSWERS SHOULD BE 0 FOR
 THIS SEGMENT TO BE SUCCESSFUL
 ARFSB - (033) D.P. SUBTRACTION

 ASA REF. - 6.1

 RESULTS


     0.0000000000E+00
     0.0000000000E+00
     0.0000000000E+00



     0.0000000000E+00
     0.0000000000E+00
     0.0000000000E+00



     0.0000000000E+00
     0.0000000000E+00
    -0.2220446049E-15


 THE ANSWERS ABOVE SHOULD BE 0 PLUS
 OR MINUS AN ERROR FACTOR OF 0.1D-13
 ARBAS - (034) BASIC ADDITION AND
               SUBTRACTION

 ASA REF. - 6.4

 RESULTS


 TEST1 INTEGER ADD AND SUBT

         0
         0
         0
         0


 TEST2 REAL ADD AND SUBTR


       0.0
       0.0
       0.0
       0.0

 ALL ABOVE ANSWERS SHOULD BE 0 FOR
 THIS SEGMENT TO BE SUCCESSFUL



Command:F77 ERCS13:NBSFTESTS_PART04      ,FY
   main program
 1117 Statements compiled

Command:RUN FY
 F O R T R A N  T E S T  P R O G R A M S

 PREPARED BY NATIONAL BUREAU OF STANDARDS

 FOR USE ON LARGE FORTRAN PROCESSORS

 IN ACCORDANCE WITH ASA FORTRAN X3.9-1966

 VERSION 3     PART 4



  BASED ON ASA FORTRAN X3.9-1966

  TEST PROGRAMS

  FORTRAN COMPILER

 ARFAS - (035) D.P. ADD AND SUBTR

 ASA REF. - 6.1

 RESULTS


     0.0000000000E+00
     0.0000000000E+00
     0.0000000000E+00
     0.0000000000E+00
     0.9094947018E-12


 THE ANSWERS ABOVE SHOULD BE 0 FOR
 THIS SEGMENT TO BE SUCCESSFUL.
 VALUES WITH EXPONENTS LESS THAN
 10**(-14) ARE CONSIDERED ZERO
 ARBMI - (036) INTEGER MULTIPLICATION

 ASA REF. - 6.1

 RESULTS


        0
        0
        0
        0
        0
        0
        0


 ALL ABOVE ANSWERS SHOULD BE 0 FOR
 THIS SEGMENT TO BE SUCCESSFUL
 ARBMR - (037) REAL MULTIPLICATION

 ASA REF. - 6.1

 RESULTS


       0.0
       0.0
       0.0
       0.0
       0.0
       0.0
       0.0


 ALL ABOVE ANSWERS SHOULD BE 0 FOR
 THIS SEGMENT TO BE SUCCESSFUL
 ARFMD - (038) D.P. MULTIPLICATION

  ASA REF. - 6.1

 RESULTS


     0.0000000000E+00
     0.0000000000E+00
     0.0000000000E+00
     0.0000000000E+00
     0.0000000000E+00
     0.0000000000E+00
     0.0000000000E+00
     0.0000000000E+00


 THE ANSWERS ABOVE SHOULD BE 0 FOR
 THIS SEGMENT TO BE SUCCESSFUL
 ARBDV - (039) INTEGER AND REAL
               DIVISION

 ASA REF. - 6.1

 RESULTS


 TEST1 INTEGER DIVISION


        0
        0
        0
        0
        0



 TEST2 REAL DIVISION


       0.0
       0.0
       0.0
       0.0
       0.0


 ALL ABOVE ANSWERS SHOULD BE 0 FOR
 THIS SEGMENT TO BE SUCCESSFUL
 ARFDV - (040) D.P. DIVISION

 ASA REF. - 6.1

 RESULTS


     0.0000000000E+00
     0.0000000000E+00
     0.0000000000E+00
     0.0000000000E+00
     0.0000000000E+00
     0.0000000000E+00


 THE ANSWERS ABOVE SHOULD BE 0 FOR
 THIS SEGMENT TO BE SUCCESSFUL
 ARBEX - (041) BASIC EXPONENTIATION

 ASA REFS. - 6.1

 RESULTS


 INTEGER BY INTEGER


        0
        0
        0
        0
        0



 REAL BY INT, REAL BY REAL


       0.0
       0.0
       0.0
       0.0
       0.0
       0.0
       0.0


 ALL ABOVE ANSWERS SHOULD BE 0 FOR
 THIS SEGMENT TO BE SUCCESSFUL
 ARFEX - (042) EXPONENTIATION

 ASA REF. - 6.1

 RESULTS


     0.0000000000E+00
     0.0000000000E+00
     0.0000000000E+00
     0.0000000000E+00
     0.0000000000E+00


 THE ANSWERS ABOVE SHOULD BE 0 FOR
 THIS SEGMENT TO BE SUCCESSFUL.
 VALUES WITH EXPONENTS LESS THAN
 10**(-14) ARE CONSIDERED ZERO
 ARBHI - (043) HIERARCHY, PARENTHESES

 ASA REFS. - 6.1 AND 6.4

 RESULTS

 TEST   1     0

 TEST   2     0

 TEST   3     0

 TEST   4     0

 TEST   5     0

 TEST   6     0

 TEST   7     0
              0
              0

 TEST   8     0

 TEST   9     0
              0
              0

 TEST  10     0
              0
              0

 TEST  11     0
              0
              0

 TEST  12     0
              0
              0
              0
              0
              0
              0
              0

 TEST  13     0
              0
   THE ANSWERS ABOVE SHOULD BE 0 FOR
 THIS SEGMENT TO BE SUCCESSFUL
 SBB67 - (050) SUBSCRIPTS FOR INTEGER
               AND REAL ARRAYS, V, K

 ASA REF. 5.1.3

 RESULTS


       0

       0.0


       0
       0

       0.0
       0.0

 THE ANSWERS ABOVE SHOULD BE 0 FOR
 THIS SEGMENT TO BE SUCCESSFUL
 SBB45 - (051) SUBSCRIPTS FOR INTEGER
               AND REAL ARRAYS,V+K, V-K

 ASA REF. 5.1.3.3

 RESULTS


       0
       0
       0

       0.0
       0.0
       0.0

 THE ANSWERS ABOVE SHOULD BE 0 FOR
 THIS SEGMENT TO BE SUCCESSFUL
 SBB13 - (052) SUBSCRIPTS INTEGER AND
               REAL, C*V, C*V-K, C*V+K

 ASA REF. 5.1.3.3

 RESULTS


       0
       0

       0.0
       0.0



       0
       0

       0.0
       0.0



       0

       0.0


 THE ANSWERS ABOVE SHOULD BE 0 FOR
 THIS SEGMENT TO BE SUCCESSFUL
 SBF17 - (053) SUBSCRIPTS FOR D.P.
               ARRAYS, ALL FORMS

 ASA REF. - 5.1.3.3

 RESULTS


      0.00000E+00
      0.00000E+00
      0.00000E+00
      0.00000E+00

 THE ANSWERS ABOVE SHOULD BE 0 FOR
 THIS SEGMENT TO BE SUCCESSFUL



Command:F77 ERCS13:NBSFTESTS_PART05      ,FY
   main program
 1147 Statements compiled

Command:RUN FY
 F O R T R A N  T E S T  P R O G R A M S

 PREPARED BY NATIONAL BUREAU OF STANDARDS

 FOR USE ON LARGE FORTRAN PROCESSORS

 IN ACCORDANCE WITH ASA FORTRAN X3.9-1966

 VERSION 3     PART 5



  BASED ON ASA FORTRAN X3.9-1966

  TEST PROGRAMS

  FORTRAN COMPILER

 SIMIF - (054) SIMPLE ARITH. IF
                  AND LOGICAL IF

 ASA REF. - 7.1.2.2
            7.1.2.3

 RESULTS

  T

  T

  T

  T

  T

  T

  T

  T

  T

  T

 THE TEN ANSWERS ABOVE MUST BE TRUE
 IFABS - (055) INTRINSIC FUNCTIONS--
         ABS, IABS (ABSOLUTE VALUE)

 ASA REFS. - 8.2

 RESULTS

             0.0

             0.0

             0.0

             0.0

             0

             0

             0

 THE ABOVE ANSWERS SHOULD ALL BE 0 FOR
 THIS TEST SEGMENT TO BE SUCCESSFUL.
 IFFLT - (056) INTRINSIC FUNCTION--
               FLOAT
 ASA REF. - 8.2
 RESULTS

             0.0

             0.0

             0.0

 THE ABOVE ANSWERS SHOULD ALL BE 0 FOR
 THIS TEST SEGMENT TO BE SUCCESSFUL.
 IFFIX - (057) INTRINSIC FUNCTION--
               IFIX

 ASA REF. - 8.2

 RESULTS

              0

              0

              0

              0

              0

              0

 THE ABOVE ANSWERS SHOULD ALL BE 0 FOR
 THIS TEST SEGMENT TO BE SUCCESSFUL.
 IFSGN - (058) INTRINSIC FUNCTIONS--
               SIGN, ISIGN (TRANSFER OF
               ARGUMENT SIGN)

 ASA REF. - 8.2

 RESULTS

             0.0

             0.0

             0.0

             0.0

             0.0

             0

             0

             0

             0

             0

 THE ABOVE ANSWERS SHOULD ALL BE 0 FOR
 THIS TEST SEGMENT TO BE SUCCESSFUL.
 IFDAB - (059) INTRINSIC FUNCTION--
               DABS (ABSOLUTE VALUE OF
               A D.P. ARGUMENT)
 ASA REF. - 8.2

 RESULTS

     0.0000000000E+00

     0.0000000000E+00

     0.0000000000E+00

     0.0000000000E+00

 THE ABOVE ANSWERS SHOULD ALL BE 0 FOR
 THIS TEST SEGMENT TO BE SUCCESSFUL
 IFTRN - (060) INTRINSIC FUNCTION--
         AINT, INT, IDINT (TRUNCATION)

 ASA REF. - 8.2

 RESULTS

       0.0

       0.0

       0.0

       0.0
 END OF AINT TEST

        0

        0

        0

        0
 END OF INT TEST

        0

        0

        0

        0
 END OF IDINT TEST
 ALL ABOVE ANSWERS SHOULD BE 0 FOR THIS
 TEST SEGMENT TO BE SUCCESSFUL
 IFMOD - (061) INTRINSIC FUNCTION--
               AMOD, MOD (REMAINDERING)

 ASA REF. - 8.2

 RESULTS

       0.0

       0.0

       0.0

       0.0


 END OF AMOD TEST.

        0

        0

        0

        0


 END OF MOD TEST.

 ALL ABOVE ANSWERS SHOULD BE 0 FOR THIS
 TEST SEGMENT TO BE SUCCESSFUL.
 IFMAX - (062) INTRINSIC FUNCTIONS--
            AMAX0,AMAX1,MAX0, MAX1,DMAX1
 ASA REF. - 8.2

 RESULTS

 TEST OF AMAX0--
       0.0
       0.0
       0.0
       0.0
       0.0
                END OF  2-ARGUMENT TEST.
       0.0
       0.0
       0.0
                END OF  3-ARGUMENT TEST.
       0.0
       0.0
                END OF 4- OR 5-ARGUMENT TEST.

 TEST OF AMAX1--
       0.0
       0.0
       0.0
                END OF  2-ARGUMENT TEST.
       0.0
       0.0
       0.0
                END OF  3-ARGUMENT TEST.
       0.0
       0.0
                END OF 4- OR 5-ARGUMENT TEST.
 TEST OF MAX0--
        0
        0
        0
        0
                END OF  2-ARGUMENT TEST.
        0
        0
                END OF  3-ARGUMENT TEST.
        0
        0
                END OF 4- OR 5-ARGUMENT TEST.

 TEST OF MAX1--
        0
        0
        0
                END OF  2-ARGUMENT TEST.
        0
        0
                END OF  3-ARGUMENT TEST.
        0
        0
                END OF 4- OR 5-ARGUMENT TEST.

 TEST OF DMAX1--
     0.0000000000E+00
     0.0000000000E+00
     0.0000000000E+00
     0.0000000000E+00
                END OF  2-ARGUMENT TEST.
     0.0000000000E+00
     0.0000000000E+00
     0.0000000000E+00
                END OF  3-ARGUMENT TEST.
     0.0000000000E+00
     0.0000000000E+00
                END OF 4- OR 5-ARGUMENT TEST.

 THE ABOVE ANSWERS SHOULD ALL BE 0 FOR
 THIS TEST SEGMENT TO BE SUCCESSFUL.
 IFMIN - (063) INTRINSIC FUNCTIONS--
            AMIN0,AMIN1,MIN0,MIN1,DMIN1
 ASA REF. - 8.2

 RESULTS

 TEST OF AMIN0
       0.0
       0.0
       0.0
                END OF 2-ARGUMENT TEST.
       0.0
       0.0
                END OF 3-ARGUMENT TEST.
       0.0
       0.0
                END OF 4 OR 5-ARGUMENT TEST.

 TEST OF AMIN1
       0.0
       0.0
       0.0
       0.0
                END OF 2-ARGUMENT TEST.
       0.0
       0.0
       0.0
                END OF 3-ARGUMENT TEST.
       0.0
       0.0
                END OF 4 OR 5-ARGUMENT TEST.

 TEST OF MIN0
        0
        0
        0
        0
                END OF 2-ARGUMENT TEST.
        0
        0
                END OF 3-ARGUMENT TEST.
        0
        0
                END OF 4 OR 5-ARGUMENT TEST.
 TEST OF MIN1
        0
        0
        0
                END OF 2-ARGUMENT TEST.
        0
        0
                END OF 3-ARGUMENT TEST.
        0
        0
                END OF 4 OR 5-ARGUMENT TEST.

 TEST OF DMIN1
     0.0000000000E+00
     0.0000000000E+00
     0.0000000000E+00
                END OF 2-ARGUMENT TEST.
     0.0000000000E+00
     0.0000000000E+00
                END OF 3-ARGUMENT TEST.
     0.0000000000E+00
     0.0000000000E+00
                END OF 4 OR 5-ARGUMENT TEST.

 THE ABOVE ANSWERS SHOULD ALL BE 0 FOR
 THIS TEST SEGMENT TO BE SUCCESSFUL.
 IFDSG - (064) INTRINSIC FUNCTION--
               DSIGN (TRANSFER OF SIGN)
 ASA REF. - 8.2

 RESULTS

      0.000000000000000000E+00

      0.000000000000000000E+00

      0.000000000000000000E+00

      0.000000000000000000E+00

 ALL ABOVE ANSWERS SHOULD BE 0 FOR THIS
 TEST SEGMENT TO BE SUCCESSFUL.



Command:F77 ERCS13:NBSFTESTS_PART06      ,FY
   main program
 906 Statements compiled

Command:RUN FY
 F O R T R A N  T E S T  P R O G R A M S

 PREPARED BY NATIONAL BUREAU OF STANDARDS

 FOR USE ON LARGE FORTRAN PROCESSORS

 IN ACCORDANCE WITH ASA FORTRAN X3.9-1966

 VERSION 3     PART 6



  BASED ON ASA FORTRAN X3.9-1966

  TEST PROGRAMS

  FORTRAN COMPILER

 IFDIM - (065) INTRINSIC FUNCTIONS - DIM
           AND IDIM (POSITIVE DIFFERENCE)
 ASA REF. - 8.2

 RESULTS

             0.00

             0.00

             0.00

             0.00

              0

              0

              0

              0

              0

  ALL ABOVE ANSWERS SHOULD BE 0 FOR
 THIS TEST SEGMENT TO BE SUCCESSFUL.
 IFSGL - (066) INTRINSIC FUNCTION SNGL--
               OBTAIN MOST SIGNIFICANT PT
                OF D.P. ARGUMENT.

 ASA REFS. - 8.2

 RESULTS

 LINE A     0.48748749377973E+03
 LINE B     0.48748754882812E+03

 LINE A    -0.39689540238764E+03
 LINE B    -0.39689550781250E+03

 LINE A     0.33333962558434E+00
 LINE B     0.33333963155746E+00

 LINE A     0.79379080477528E+03
 LINE B     0.79379077148437E+03

 LINE A     0.44445133956719E+00
 LINE B     0.44445133209229E+00

 LINE A    -0.66667183798867E+00
 LINE B    -0.66667181253433E+00

 LINE A    -0.39689539609539E+03
 LINE B    -0.39689550781250E+03

 LINE A     0.48748749377973E+03
 LINE B     0.48748754882812E+03

 LINE B SHOULD AGREE WITH LINE A
 ONLY TO THE PRECISION OF A REAL DATUM.
 REMAINING DIGITS RESULT FROM OUTPUT
 CONVERSION WHEN A REAL VALUE IS
 ASSIGNED TO D.P. FOR PRINTING.
 IFREL - (067) INTRINSIC FUNCTION--
               REAL
 ASA REF. - 8.2

 RESULTS

             0.0000
             0.0000
             0.0000
             0.0000
             0.0000
             0.0000


             0.0000
             0.0000
             0.0000
             0.0000
             0.0000
             0.0000


             0.0000
             0.0000
             0.0000
             0.0000
             0.0000
             0.0000


 ALL ABOVE ANSWERS SHOULD BE 0 FOR THIS
 TEST SEGMENT TO BE SUCCESSFUL.
 IFIMG - (068) INTRINSIC FUNCTION - AIMAG
               OBTAIN IMAGINARY PT
               OF COMPLEX ARGUMENT
 ASA REF.- 8.2

 RESULTS

            0.00000
            0.00000
            0.00000
            0.00000


            0.00000
            0.00000
            0.00000
            0.00000


            0.00000
            0.00000
            0.00000
            0.00000


            0.00000
            0.00000
            0.00000
            0.00000


            0.00000
            0.00000
            0.00000
            0.00000


            0.00000
            0.00000
            0.00000
            0.00000


 ALL ABOVE ANSWERS SHOULD BE 0 FOR THIS
 TEST SEGMENT TO BE SUCCESSFUL.
 IFDBL - (069) INTRINSIC FUNCTION - DBLE
               S.P. ARGUMENT IN D.P. FORM
 ASA REF.- 8.2

 RESULTS

 LINE A     0.9765625E-03
 LINE B     0.97656250000000E-03

 LINE A    -0.1953125E-02
 LINE B    -0.19531250000000E-02

 LINE A     0.5859375E-02
 LINE B     0.58593750000000E-02

 LINE A    -0.1048576E+07
 LINE B    -0.10485760000000E+07

 LINE A     0.1146880E+06
 LINE B     0.11468800000000E+06

 A COMPARISON OF LINE A AGAINST LINE B
 IS NEEDED TO CHECK THE VALIDITY OF TEST
 IFCPX - (070) INTRINSIC FUNCTION - CMPLX
               EXPRESS TWO REAL ARGUMENTS
               IN COMPLEX FORM
 ASA REF.- 8.2

 RESULTS

       0.0000000        0.0000000
       0.0000000        0.0000000
       0.0000000        0.0000000
       0.0000000        0.0000000
       0.0000000        0.0000000
       0.0000000        0.0000000


 THE ABOVE ANSWERS SHOULD ALL BE 0 FOR
 THIS TEST SEGMENT TO BE SUCCESSFUL.
 IFCJG - (071) INTRINSIC FUNCTION - CONJG
               OBTAIN CONJUGATE OF
               A COMPLEX NUMBER
 ASA REFS. - 8.2

 RESULTS

       0.0000000 0.0000000
       0.0000000 0.0000000


       0.0000000 0.0000000
       0.0000000 0.0000000


       0.0000000 0.0000000
       0.0000000 0.0000000


       0.0000000 0.0000000
       0.0000000 0.0000000



 ALL ABOVE ANSWERS MUST BE 0 FOR THIS
 TEST SEGMENT TO BE SUCCESSFUL.
 IFBMS - (072) BASIC FORTRAN INTRINSIC
         FUNCTIONS ACCEPT EXPRESSIONS
         OF TYPE SPECIFIED IN I.F.TABLE

 ASA REF.- 8.2

 RESULTS

 TEST OF ABS IN EXPRESSIONS -
             0.0
             0.0
             0.0
             0.0

 TEST OF IABS IN EXPRESSIONS -
             0
             0
             0
             0

 TEST OF FLOAT IN EXPRESSIONS -
             0.0
             0.0
             0.0
             0.0

 TEST OF IFIX IN EXPRESSIONS -
             0
             0
             0
             0

 TEST OF SIGN IN EXPRESSIONS -
             0.0
             0.0
             0.0
             0.0

 TEST OF ISIGN IN EXPRESSIONS -
             0
             0
             0
             0

 COMBINATION OF ALL INTRINSIC FUNCTIONS
             0.0
             0.0
             0
             0
             0.0
             0.0
             0
             0

 ALL ABOVE ANSWERS SHOULD BE 0 FOR
 THIS TEST SEGMENT TO BE SUCCESSFUL.
 IFFMS - (073) FORTRAN INTRINSIC FUNCTIONS
               ACCEPT EXPRESSIONS OF TYPE
               SPECIFIED IN I.F.TABLE
 ASA REF.- 8.2/TABLE 3

 RESULTS

 TEST OF DABS IN EXPRESSIONS

        0.00000000E+00
        0.00000000E+00
        0.00000000E+00
        0.00000000E+00

 TEST OF AINT IN EXPRESSIONS

      0.000000E+00
      0.000000E+00
      0.000000E+00
      0.000000E+00

 TEST OF INT IN EXPRESSIONS

        0
        0
        0
        0

 TEST OF IDINT IN EXPRESSIONS

        0
        0
        0
        0

 TEST OF AMOD, MOD IN EXPRESSIONS

      0.000000E+00
      0.000000E+00
        0
        0

 TEST OF AMAX0,AMAX1,MAX0,MAX1 AND DMAX

      0.000000E+00
      0.000000E+00
        0
        0.00000000E+00
 TEST OF AMIN0,AMIN1,MIN0,MIN1 AND DMIN

      0.000000E+00
        0
        0
        0.00000000E+00

 TEST OF DSIGN AND DBLE IN EXPRESSIONS

        0.00000000E+00
        0.00000000E+00
        0.00000000E+00
        0.00000000E+00


 TEST OF DIM AND IDIM IN EXPRESSIONS
      0.000000E+00
      0.000000E+00
        0
        0

 TEST OF SNGL,REAL,AIMAG,CMPLX AND
 CONJG IN EXPRESSIONS

      0.000000E+00
      0.000000E+00
      0.000000E+00

 TEST OF SOME COMBINATIONS OF ABOVE
 INTRINSIC FUNCTIONS

      0.000000E+00
      0.000000E+00

 ALL ABOVE ANSWERS SHOULD BE 0 FOR THIS
 SEGMENT TO BE SUCCESSFUL.



Command:F77 ERCS13:NBSFTESTS_PART07      ,FY
   main program
   804           DATA LAZVI,LBZVI, LCZVI,LDZVI/2H0( ,2H, ,2H1/,1H)/

Warning 193  Use of Hollerith is not standard FORTRAN77

   805           DATA L1I(1),L1I(2),L1I(3),L1I(4),L1I(5)/
                *       2H1 ,  2H2 ,  2H3 ,  2H4 ,  2H5 /,
                *     L1I(6),L1I(7),L1I(8),L1I(9),L1I(10)/
                *       2H6 ,  2H7 ,  2H8 ,  2H9 ,  2H10 /

Warning 193  Use of Hollerith is not standard FORTRAN77

 991 Statements compiled

Command:RUN FY
 F O R T R A N  T E S T  P R O G R A M S

 PREPARED BY NATIONAL BUREAU OF STANDARDS

 FOR USE ON LARGE FORTRAN PROCESSORS

 IN ACCORDANCE WITH ASA FORTRAN X3.9-1966

 VERSION 3     PART 7



  BASED ON ASA FORTRAN X3.9-1966

  TEST PROGRAMS

  FORTRAN COMPILER

 EXPON - (080)

 BASIC EXTERNAL FUNCTION -EXP-

 (EXPONENTIAL -TYPE REAL)

 ASA REF.- 8.3.3 (TABLE 4)

 LINE 1 OF EACH PAIR IS
 HOLLERITH INFORMATION

 RESULTS

 X=-16.0     0.1125351747192591145E-06
             0.1125351E-06

 X= -8.0     0.3354626279025118388E-03
             0.3354624E-03

 X= -4.0     0.1831563888873418029E-01
             0.1831564E-01

 X=  0.0     0.1000000000000000000E+01
             0.1000000E+01

 X=  4.0     0.5459815003314423908E+02
             0.5459814E+02

 X=  8.0     0.2980957987041728275E+04
             0.2980958E+04

 X= 16.0     0.8886110520507872637E+07
             0.8886110E+07


 LINE 2 OF EACH PAIR IS THE FUNCTION
 CALCULATION PRINTED TO 7 DIGITS
 DEXPO - (081)

 BASIC EXTERNAL FUNCTION -DEXP-

 (EXPONENTIAL -TYPE DOUBLE PRECISION)

 ASA REF.- 8.3.3 (TABLE 4)

 LINE 1 OF EACH PAIR IS
 HOLLERITH INFORMATION

 RESULTS

 X=-16.0     0.1125351747192591145D-06
             0.11253517471926E-06

 X= -8.0     0.3354626279025118388D-03
             0.33546262790251E-03

 X= -4.0     0.1831563888873418029D-01
             0.18315638888734E-01

 X=  0.0     0.1000000000000000000D+01
             0.10000000000000E+01

 X=  4.0     0.5459815003314423908D+02
             0.54598150033144E+02

 X=  8.0     0.2980957987041728275D+04
             0.29809579870417E+04

 X= 16.0     0.8886110520507872637D+07
             0.88861105205079E+07


 LINE 2 OF EACH PAIR IS THE FUNCTION
 CALCULATION PRINTED TO 14 DIGITS
 CEXPO - (082)

 BASIC EXTERNAL FUNCTION -CEXP-

 (EXPONENTIAL -TYPE COMPLEX)

 ASA REF.- 8.3.3 (TABLE 4)

 (COMPLEX ARGUMENT)
       EXPECTED RESULT
       FUNCTION RESULT

 (-0.1611810E+02,-0.7330383E+01)
          0.5000000E-07  -0.8660254E-07
          0.4999957E-07  -0.8660191E-07

 (-0.1450866E+02,-0.7330383E+01)
          0.2500000E-06  -0.4330127E-06
          0.2499998E-06  -0.4330130E-06

 (-0.1381551E+02,-0.6283185E+01)
          0.1000000E-05   0.0000000E+00
          0.9999994E-06   0.3019914E-12

 (-0.1220607E+02,-0.6283185E+01)
          0.5000000E-05   0.0000000E+00
          0.4999998E-05   0.1509957E-11

 (-0.1151293E+02,-0.5235988E+01)
          0.5000000E-05   0.8660254E-05
          0.4999999E-05   0.8660255E-05

 (-0.9903487E+01,-0.5235988E+01)
          0.2500000E-04   0.4330128E-04
          0.2500000E-04   0.4330128E-04

 (-0.9210340E+01,-0.4188790E+01)
         -0.5000000E-04   0.8660254E-04
         -0.4999999E-04   0.8660254E-04

 (-0.7600903E+01,-0.4188790E+01)
         -0.2500000E-03   0.4330126E-03
         -0.2499998E-03   0.4330124E-03

 (-0.6907755E+01,-0.3141593E+01)
         -0.9999999E-03   0.0000000E+00
         -0.1000000E-02   0.3258414E-09

 (-0.5298317E+01,-0.3141593E+01)
         -0.4999999E-02   0.0000000E+00
         -0.4999999E-02   0.1629206E-08
 CEXPO - (082) -CEXP-

 (-0.4605170E+01,-0.2094395E+01)
         -0.4999999E-02  -0.8660253E-02
         -0.4999995E-02  -0.8660253E-02

 (-0.2995732E+01,-0.2094395E+01)
         -0.2500000E-01  -0.4330127E-01
         -0.2499998E-01  -0.4330130E-01

 (-0.2302585E+01,-0.1047197E+01)
          0.5000000E-01  -0.8660257E-01
          0.5000002E-01  -0.8660251E-01

 (-0.6931472E+00,-0.1047197E+01)
          0.2500000E+00  -0.4330127E+00
          0.2500001E+00  -0.4330127E+00

 ( 0.0000000E+00, 0.0000000E+00)
          0.1000000E+01   0.0000000E+00
          0.1000000E+01   0.0000000E+00

 ( 0.1609438E+01, 0.0000000E+00)
          0.5000000E+01   0.0000000E+00
          0.5000000E+01   0.0000000E+00

 ( 0.2302585E+01, 0.1047197E+01)
          0.5000000E+01   0.8660254E+01
          0.4999998E+01   0.8660250E+01

 ( 0.3912023E+01, 0.1047197E+01)
          0.2500000E+02   0.4330127E+02
          0.2499998E+02   0.4330125E+02

 ( 0.4605170E+01, 0.2094395E+01)
         -0.5000000E+02   0.8660254E+02
         -0.4999997E+02   0.8660258E+02

 ( 0.6214608E+01, 0.2094395E+01)
         -0.2500000E+03   0.4330127E+03
         -0.2499998E+03   0.4330127E+03
 CEXPO - (082) -CEXP-

 ( 0.6907755E+01, 0.3141593E+01)
         -0.1000000E+04   0.0000000E+00
         -0.9999995E+03  -0.3258411E-03

 ( 0.8517193E+01, 0.3141593E+01)
         -0.5000000E+04   0.0000000E+00
         -0.4999996E+04  -0.1629205E-02

 ( 0.9210340E+01, 0.4188790E+01)
         -0.5000000E+04  -0.8660254E+04
         -0.4999996E+04  -0.8660250E+04

 ( 0.1081978E+02, 0.4188790E+01)
         -0.2500000E+05  -0.4330127E+05
         -0.2500000E+05  -0.4330128E+05

 ( 0.1151293E+02, 0.5235988E+01)
          0.5000000E+05  -0.8660256E+05
          0.4999995E+05  -0.8660244E+05

 ( 0.1312236E+02, 0.5235988E+01)
          0.2500000E+06  -0.4330127E+06
          0.2499998E+06  -0.4330125E+06

 ( 0.1381551E+02, 0.6283185E+01)
          0.1000000E+07   0.0000000E+00
          0.1000000E+07  -0.3019916E+00

 ( 0.1542495E+02, 0.6283185E+01)
          0.5000000E+07   0.0000000E+00
          0.5000001E+07  -0.1509957E+01

 ( 0.1611810E+02, 0.7330383E+01)
          0.5000000E+07   0.8660254E+07
          0.5000032E+07   0.8660321E+07

 ( 0.1772754E+02, 0.7330383E+01)
          0.2500000E+08   0.4330126E+08
          0.2500011E+08   0.4330154E+08
 LOGTM - (083)

 BASIC EXTERNAL FUNCTION -ALOG-

 (NATURAL LOG -TYPE REAL)

 ASA REF.- 8.3.3 (TABLE 4)

 LINE 1 OF EACH PAIR IS
 HOLLERITH INFORMATION

 RESULTS

 X=0.125     -2.0794415416798359
             -2.079441

 X=0.25      -1.3862943611198906
             -1.386294

 X=0.5       -0.6931471805599453
             -0.6931472

 X=1.0        0.0000000000000000
              0.0000000

 X=1.5        0.4054651081081644
              0.4054652

 X=2.0        0.6931471805599453
              0.6931472


 LINE 2 OF EACH PAIR IS THE FUNCTION
 CALCULATION PRINTED TO 7 DIGITS
 DPLOG - (084)

 BASIC EXTERNAL FUNCTION -DLOG-

 (NATURAL LOG -TYPE DOUBLE PRECISION)

 ASA REF.- 8.3.3 (TABLE 4)

 LINE 1 OF EACH PAIR IS
 HOLLERITH INFORMATION

 RESULTS

 X=0.125     -2.0794415416798359D+00
             -2.0794415416798E+00

 X=0.25      -1.3862943611198906D+00
             -1.3862943611199E+00

 X=0.5       -0.6931471805599453D+00
             -0.69314718055995E+00

 X=1.0        0.000000000000000
              0.00000000000000E+00

 X=1.5        0.4054651081081644D+00
              0.40546510810816E+00

 X=2.0        0.6931471805599453D+00
              0.69314718055995E+00


 LINE 2 OF EACH PAIR IS THE FUNCTION
 CALCULATION PRINTED TO 14 DIGITS
 CXLOG - (085)

 BASIC EXTERNAL FUNCTION -CLOG-

 (NATURAL LOG -TYPE COMPLEX)

 ASA REF.- 8.3.3 (TABLE 4)

 (COMPLEX ARGUMENT)
       EXPECTED RESULT
       FUNCTION RESULT

 ( 0.5000000E-07,-0.8660254E-07)
         -0.1611810E+02  -0.1047197E+01
         -0.1611810E+02  -0.1047196E+01

 ( 0.2500000E-06,-0.4330127E-06)
         -0.1450866E+02  -0.1047197E+01
         -0.1450866E+02  -0.1047196E+01

 ( 0.1000000E-05, 0.0000000E+00)
         -0.1381551E+02   0.0000000E+00
         -0.1381551E+02   0.0000000E+00

 ( 0.5000000E-05, 0.0000000E+00)
         -0.1220607E+02   0.0000000E+00
         -0.1220607E+02   0.0000000E+00

 ( 0.5000000E-05, 0.8660254E-05)
         -0.1151293E+02   0.1047197E+01
         -0.1151293E+02   0.1047196E+01

 ( 0.2500000E-04, 0.4330128E-04)
         -0.9903487E+01   0.1047197E+01
         -0.9903488E+01   0.1047197E+01

 (-0.5000000E-04, 0.8660254E-04)
         -0.9210340E+01   0.2094395E+01
         -0.9210340E+01   0.2094397E+01

 (-0.2500000E-03, 0.4330126E-03)
         -0.7600903E+01   0.2094395E+01
         -0.7600904E+01   0.2094397E+01

 (-0.9999999E-03, 0.0000000E+00)
         -0.6907755E+01   0.3141593E+01
         -0.6907755E+01   0.3141593E+01

 (-0.4999999E-02, 0.0000000E+00)
         -0.5298317E+01   0.3141593E+01
         -0.5298318E+01   0.3141593E+01
 CXLOG - (085) -CLOG-

 (-0.4999999E-02,-0.8660253E-02)
         -0.4605170E+01  -0.2094395E+01
         -0.4605171E+01  -0.2094396E+01

 (-0.2500000E-01,-0.4330127E-01)
         -0.2995732E+01  -0.2094395E+01
         -0.2995732E+01  -0.2094397E+01

 ( 0.5000000E-01,-0.8660257E-01)
         -0.2302585E+01  -0.1047197E+01
         -0.2302586E+01  -0.1047197E+01

 ( 0.2500000E+00,-0.4330127E+00)
         -0.6931472E+00  -0.1047197E+01
         -0.6931474E+00  -0.1047197E+01

 ( 0.1000000E+01, 0.0000000E+00)
          0.0000000E+00   0.0000000E+00
          0.0000000E+00   0.0000000E+00

 ( 0.5000000E+01, 0.0000000E+00)
          0.1609438E+01   0.0000000E+00
          0.1609438E+01   0.0000000E+00

 ( 0.5000000E+01, 0.8660254E+01)
          0.2302585E+01   0.1047197E+01
          0.2302585E+01   0.1047197E+01

 ( 0.2500000E+02, 0.4330127E+02)
          0.3912023E+01   0.1047197E+01
          0.3912023E+01   0.1047196E+01

 (-0.5000000E+02, 0.8660254E+02)
          0.4605170E+01   0.2094395E+01
          0.4605170E+01   0.2094397E+01

 (-0.2500000E+03, 0.4330127E+03)
          0.6214608E+01   0.2094395E+01
          0.6214607E+01   0.2094397E+01
 CXLOG - (085) -CLOG-

 (-0.1000000E+04, 0.0000000E+00)
          0.6907755E+01   0.3141593E+01
          0.6907755E+01   0.3141593E+01

 (-0.5000000E+04, 0.0000000E+00)
          0.8517193E+01   0.3141593E+01
          0.8517193E+01   0.3141593E+01

 (-0.5000000E+04,-0.8660254E+04)
          0.9210340E+01  -0.2094395E+01
          0.9210340E+01  -0.2094397E+01

 (-0.2500000E+05,-0.4330127E+05)
          0.1081978E+02  -0.2094395E+01
          0.1081978E+02  -0.2094397E+01

 ( 0.5000000E+05,-0.8660256E+05)
          0.1151293E+02  -0.1047197E+01
          0.1151293E+02  -0.1047197E+01

 ( 0.2500000E+06,-0.4330127E+06)
          0.1312236E+02  -0.1047197E+01
          0.1312236E+02  -0.1047196E+01

 ( 0.1000000E+07, 0.0000000E+00)
          0.1381551E+02   0.0000000E+00
          0.1381551E+02   0.0000000E+00

 ( 0.5000000E+07, 0.0000000E+00)
          0.1542495E+02   0.0000000E+00
          0.1542495E+02   0.0000000E+00

 ( 0.5000000E+07, 0.8660254E+07)
          0.1611810E+02   0.1047197E+01
          0.1611809E+02   0.1047196E+01

 ( 0.2500000E+08, 0.4330126E+08)
          0.1772754E+02   0.1047197E+01
          0.1772754E+02   0.1047196E+01
 COLOG - (086)

 BASIC EXTERNAL FUNCTION -ALOG10-

 (COMMON LOG -TYPE REAL)

 ASA REF.- 8.3.3 (TABLE 4)

 LINE 1 OF EACH PAIR IS
 HOLLERITH INFORMATION

 RESULTS

 X= 0.5     -0.3010299956639811952137
            -0.3010300

 X= 1.0      0.0000000000000000000000
             0.0000000

 X= 2.0      0.3010299956639811952137
             0.3010300

 X= 4.0      0.6020599913279623904275
             0.6020600

 X= 8.0      0.9030899869919435856412
             0.9030897

 X=16.0      1.2041199826559247808550
             1.2041197


 LINE 2 OF EACH PAIR IS THE FUNCTION
 CALCULATION PRINTED TO 7 DIGITS
 DCLOG - (087)

 BASIC EXTERNAL FUNCTION -DLOG10-

 (COMMON LOG -TYPE DOUBLE PRECISION)

 ASA REF.- 8.3.3 (TABLE 4)

 LINE 1 OF EACH PAIR IS
 HOLLERITH INFORMATION

 RESULTS

 X= 0.5     -0.3010299956639811952137D+00
            -0.30102999566398E+00

 X= 1.0      0.0000000000000000000000
             0.00000000000000E+00

 X= 2.0      0.3010299956639811952137D+00
             0.30102999566398E+00

 X= 4.0      0.6020599913279623904275D+00
             0.60205999132796E+00

 X= 8.0      0.9030899869919435856412D+00
             0.90308998699194E+00

 X=16.0      1.2041199826559247808550D+00
             1.2041199826559E+00


 LINE 2 OF EACH PAIR IS THE FUNCTION
 CALCULATION PRINTED TO 14 DIGITS
 SINUS - (088)

 BASIC EXTERNAL FUNCTION -SIN-

 (TRIGONOMETRIC SINE -TYPE REAL)

 ASA REF.- 8.3.3 (TABLE 4)

 LINE 1 OF EACH PAIR IS
 HOLLERITH INFORMATION

 RESULTS

 X= 0.0       0.000000000000
              0.0000000

 X= 1.0      +0.841470984808
              0.8414709

 X= 2.0      +0.909297426826
              0.9092976

 X= 3.0      +0.141120008060
              0.1411200

 X= (PI)      0.000000000000
             -0.0000003

 X= 4.0      -0.756802495308
             -0.7568024

 X= 5.0      -0.958924274663
             -0.9589242

 X= 6.0      -0.279415498198
             -0.2794155

 X=(2PI)      0.000000000000
             -0.0000003


 LINE 2 OF EACH PAIR IS THE FUNCTION
 CALCULATION PRINTED TO 7 DIGITS
 DPSIN - (089)

 BASIC EXTERNAL FUNCTION -DSIN-

 (TRIGONOMETRIC SINE -TYPE D.P.)

 ASA REF.- 8.3.3 (TABLE 4)

 LINE 1 OF EACH PAIR IS
 HOLLERITH INFORMATION

 RESULTS

 X= 0.0   0.00000000000000000000000
          0.00000000000000E+00

 X= 1.0  +0.84147098480789650665250D+00
          0.84147098480790E+00

 X= 2.0  +0.90929742682568169539602D+00
          0.90929742682568E+00

 X= 3.0  +0.14112000805986722210074D+00
          0.14112000805987E+00

 X= (PI)  0.00000000000000000000000
          0.12246465878874E-15

 X= 4.0  -0.75680249530792825137264D+00
         -0.75680249530793E+00

 X= 5.0  -0.95892427466313846889315D+00
         -0.95892427466314E+00

 X= 6.0  -0.27941549819892587281156D+00
         -0.27941549819893E+00

 X=(2PI)  0.00000000000000000000000
         -0.24493143515984E-15


 LINE 2 OF EACH PAIR IS THE FUNCTION
 CALCULATION PRINTED TO 14 DIGITS
 CSICO - (090)

 BASIC EXTERNAL FUNCTIONS -CSIN , CCOS-

 (TRIG. SINE AND COSINE -TYPE COMPLEX)

 ASA REF 8.3.3 (TABLE 4)

 FUNCTION          RESULTS



 TABLE VALUE     1.2984576   0.6349639
 CSIN(1.,1.) =   1.2984562   0.6349635

 TABLE VALUE     0.8337300  -0.9888977
 CCOS(1.,1.) =   0.8337293  -0.9888970


 CSIN(X)**2 + CCOS(X)**2 = 1.0,0.0

 ARGUMENT     RESULTS SHOULD BE 1.0,0.0

(1 , 1/1 )       0.9999975   0.0000000

(2 , 1/2 )       0.9999989   0.0000001

(3 , 1/3 )       0.9999992   0.0000001

(4 , 1/4 )       0.9999979   0.0000001

(5 , 1/5 )       0.9999987   0.0000000

(6 , 1/6 )       0.9999993   0.0000001

(7 , 1/7 )       0.9999980  -0.0000001

(8 , 1/8 )       0.9999986   0.0000000

(9 , 1/9 )       0.9999991   0.0000001

(10, 1/10)       0.9999993  -0.0000001
 COSNS - (091)

 BASIC EXTERNAL FUNCTION -COS-

 (TRIGONOMETRIC COSINE -TYPE REAL)

 ASA REF.- 8.3.3 (TABLE 4)

 LINE 1 OF EACH PAIR IS
 HOLLERITH INFORMATION

 RESULTS

 X= 0.0      +1.000000000000
              1.0000000

 X= 1.0      +0.540302305868
              0.5403023

 X= 2.0      -0.416146836547
             -0.4161468

 X= 3.0      -0.989992496600
             -0.9899926

 X= (PI)     -1.000000000000
             -1.0000000

 X= 4.0      -0.653643620864
             -0.6536436

 X= 5.0      +0.283662185463
              0.2836621

 X= 6.0      +0.960170286650
              0.9601703

 X=(2PI)     +1.000000000000
              1.0000000


 LINE 2 OF EACH PAIR IS THE FUNCTION
 CALCULATION PRINTED TO 7 DIGITS
 DPCOS - (092)

 BASIC EXTERNAL FUNCTION -DCOS-

 (TRIGONOMETRIC COSINE -TYPE D.P.)

 ASA REF.- 8.3.3 (TABLE 4)

 LINE 1 OF EACH PAIR IS
 HOLLERITH INFORMATION

 RESULTS

 X= 0.0  +0.10000000000000000000000D+01
          0.10000000000000E+01

 X= 1.0  +0.54030230586813971740094D+00
          0.54030230586814E+00

 X= 2.0  -0.41614683654714238699757D+00
         -0.41614683654714E+00

 X= 3.0  -0.98999249660044545727157D+00
         -0.98999249660045E+00

 X= (PI) -0.10000000000000000000000D+01
         -0.10000000000000E+01

 X= 4.0  -0.65364362086361191463917D+00
         -0.65364362086361E+00

 X= 5.0  +0.28366218546322626446664D+00
          0.28366218546323E+00

 X= 6.0  +0.96017028665036602054565D+00
          0.96017028665037E+00

 X=(2PI) +0.10000000000000000000000D+01
          0.10000000000000E+01


 LINE 2 OF EACH PAIR IS THE FUNCTION
 CALCULATION PRINTED TO 14 DIGITS



Command:F77 ERCS13:NBSFTESTS_PART08      ,FY
   main program
 945 Statements compiled

Command:RUN FY
 F O R T R A N  T E S T  P R O G R A M S

 PREPARED BY NATIONAL BUREAU OF STANDARDS

 FOR USE ON LARGE FORTRAN PROCESSORS

 IN ACCORDANCE WITH ASA FORTRAN X3.9-1966

 VERSION 3     PART 8



  BASED ON ASA FORTRAN X3.9-1966

  TEST PROGRAMS

  FORTRAN  COMPILER

 TANGH - (094)

 BASIC EXTERNAL FUNCTION -TANH-

 (HYPERBOLIC TANGENT -TYPE REAL)

 ASA REF.- 8.3.3 (TABLE 4)

 LINE 1 OF EACH PAIR IS
 HOLLERITH INFORMATION

 RESULTS

 X=0.0     0.0000000000
           0.0000000

 X=2.0     0.9640275801
           0.9640275

 X=2.5     0.9866142982
           0.9866142

 X=4.0     0.9993292997
           0.9993292

 X=6.0     0.9999877117
           0.9999876

 X=8.0     0.9999997749
           0.9999998


 LINE 2 OF EACH PAIR IS THE FUNCTION
 CALCULATION PRINTED TO 7 DIGITS
 SQROT - (095)

 BASIC EXTERNAL FUNCTION -SQRT-

 (SQUARE ROOT -TYPE REAL)

 ASA REF.- 8.3.3 (TABLE 4)

 LINE 1 OF EACH PAIR IS
 HOLLERITH INFORMATION

 RESULTS

 X= 2.0    1.41421356237310
           1.4142132

 X= 3.0    1.73205080756888
           1.7320509

 X=17.0    4.12310562561766
           4.1231050

 X=31.0    5.56776436283002
           5.5677643

 X=89.0    9.43398113205660
           9.4339809


 LINE 2 OF EACH PAIR IS THE FUNCTION
 CALCULATION PRINTED TO 7 DIGITS
 DSQRO - (096)

 BASIC EXTERNAL FUNCTION -DSQRT-

 (SQUARE ROOT -TYPE D.P.)

 ASA REF.- 8.3.3 (TABLE 4)

 LINE 1 OF EACH PAIR IS
 HOLLERITH INFORMATION

 RESULTS

 X= 2.0     1.4142135623730950488D+00
            1.4142135623731E+00

 X= 3.0     1.7320508075688772935D+00
            1.7320508075689E+00

 X=17.0     4.1231056256176605498D+00
            4.1231056256177E+00

 X=31.0     5.5677643628300219221D+00
            5.5677643628300E+00

 X=89.0     9.4339811320566038113D+00
            9.4339811320566E+00


 LINE 2 OF EACH PAIR IS THE FUNCTION
 CALCULATION PRINTED TO 14 DIGITS
 CSQRO - (097)

 BASIC EXTERNAL FUNCTION -CSQRT-

 (SQUARE ROOT -TYPE COMPLEX)

 ASA REF.- 8.3.3 (TABLE 4)

 LINE 1 OF EACH PAIR IS
 THE EXPECTED VALUE

 RESULT

  0.9950038E-02 0.9983340E-03
  0.9950038E-02 0.9983336E-03

  0.9800661E-01 0.1986692E-01
  0.9800655E-01 0.1986695E-01

  0.9553365E+00 0.2955202E+00
  0.9553362E+00 0.2955203E+00

  0.9210609E+01 0.3894182E+01
  0.9210608E+01 0.3894186E+01

  0.8775826E+02 0.4794254E+02
  0.8775821E+02 0.4794255E+02

  0.8253351E-02 0.5646423E-02
  0.8253351E-02 0.5646426E-02

  0.7648414E-01 0.6442171E-01
  0.7648414E-01 0.6442177E-01

  0.6967067E+00 0.7173561E+00
  0.6967075E+00 0.7173555E+00

  0.5403023E+01 0.8414710E+01
  0.5403027E+01 0.8414706E+01

  0.4161467E+02-0.9092973E+02
  0.4161469E+02-0.9092970E+02


 LINE 2 OF EACH PAIR IS THE FUNCTION
 CALCULATION
 ARCTG - (098)

 BASIC EXTERNAL FUNCTION -ATAN-

 (ARCTANGENT -TYPE REAL)

 ASA REF.- 8.3.3 (TABLE 4)

 LINE 1 OF EACH PAIR IS
 HOLLERITH INFORMATION

 RESULTS

 X= 0.125      0.124354994547
               0.1243550

 X= 0.250      0.244978663127
               0.2449787

 X= 0.375      0.358770670271
               0.3587707

 X= 0.500      0.463647609001
               0.4636476

 X=-0.750     -0.643501108793
              -0.6435011

 X= 1.000      0.785398163397
               0.7853981


 LINE 2 OF EACH PAIR IS THE FUNCTION
 CALCULATION PRINTED TO 7 DIGITS
 DACTG - (099)

 BASIC EXTERNAL FUNCTION -DATAN-

 (ARCTANGENT -TYPE D.P.)

 ASA REF.- 8.3.3 (TABLE 4)

 LINE 1 OF EACH PAIR IS
 HOLLERITH INFORMATION

 RESULTS

 X= 0.125      0.124354994547D+00
               0.124354994547E+00

 X= 0.250      0.244978663127D+00
               0.244978663127E+00

 X= 0.375      0.358770670271D+00
               0.358770670271E+00

 X= 0.500      0.463647609001D+00
               0.463647609001E+00

 X=-0.750     -0.643501108793D+00
              -0.643501108793E+00

 X= 1.000      0.785398163397D+00
               0.785398163397E+00


 LINE 2 OF EACH PAIR IS THE FUNCTION
 CALCULATION PRINTED TO 12 DIGITS
 ACTG2 - (100)

 BASIC EXTERNAL FUNCTION -ATAN2-

 (ARCTANGENT, 2 ARGUMENT -TYPE REAL)

 ASA REF.- 8.3.3 (TABLE 4)

 LINE 1 OF EACH PAIR IS
 HOLLERITH INFORMATION

 RESULTS

 X= 0.125      0.124354994547
               0.1243550

 X= 0.250      0.244978663127
               0.2449787

 X= 0.375      0.358770670271
               0.3587707

 X= 0.500      0.463647609001
               0.4636476

 X=-0.750     -0.643501108793
              -0.6435011

 X= 1.000      0.785398163397
               0.7853981


 LINE 2 OF EACH PAIR IS THE FUNCTION
 CALCULATION PRINTED TO 7 DIGITS
 DATN2 - (101)

 BASIC EXTERNAL FUNCTION -DATAN2-

 (ARCTANGENT, 2 ARGUMENT -TYPE D.P.)

 ASA REF.- 8.3.3 (TABLE 4)

 LINE 1 OF EACH PAIR IS
 HOLLERITH INFORMATION

 RESULTS

 X= 0.125      0.124354994547D+00
               0.124354994547E+00

 X= 0.250      0.244978663127D+00
               0.244978663127E+00

 X= 0.375      0.358770670271D+00
               0.358770670271E+00

 X= 0.500      0.463647609001D+00
               0.463647609001E+00

 X=-0.750     -0.643501108793D+00
              -0.643501108793E+00

 X= 1.000      0.785398163397D+00
               0.785398163397E+00


 LINE 2 OF EACH PAIR IS THE FUNCTION
 CALCULATION PRINTED TO 12 DIGITS
 DMODA - (102)

 BASIC EXTERNAL FUNCTION -DMOD-

 (REMAINDERING -TYPE DOUBLE PRECISION)

 ASA REF.- 8.3.3 (TABLE 4)

 RESULTS


    0.00000000000000E+00


    0.00000000000000E+00


    0.00000000000000E+00


    0.00000000000000E+00


 END OF DMOD TEST

 ALL ABOVE ANSWERS SHOULD BE 0 FOR THIS
 TEST SEGMENT TO BE SUCCESSFUL.
 CABSA - (103)

 BASIC EXTERNAL FUNCTION -CABS-

 (MODULUS OF A COMPLEX NUMBER)

 ASA REF.- 8.3.3 (TABLE 4)

 RESULTS

         SET 1               SET 2

     0.999999E-07       0.500000E-06

     0.100000E-05       0.500000E-05

     0.999999E-05       0.500000E-04

     0.999999E-04       0.500000E-03

     0.100000E-02       0.500000E-02

     0.999999E-02       0.500000E-01

     0.999999E-01       0.500000E+00

     0.100000E+01       0.500000E+01

     0.999999E+01       0.500000E+02

     0.999999E+02       0.500000E+03

     0.100000E+04       0.500000E+04

     0.999999E+04       0.500000E+05

     0.999999E+05       0.500000E+06

     0.100000E+07       0.500000E+07

     0.999999E+07       0.500000E+08


 VALUES IN EACH SET SHOULD BE POSITIVE
 .1 FOR SET 1 (.5 FOR SET 2), EXPONENT
 RANGE FROM -06 TO +08 IN SEQUENCE
 BSFTS - (110) STATEMENT FUNCTION TEST
                      INTEGER AND REAL

 ASA REF. - 8.1.2

 RESULTS

       0.0000000000
       0.0000000000
                 0
                 0


       0.0000000000
       0.0000000000
                 0
                 0


       0.0000000000
       0.0000000000
                 0
                 0


       0.0000000000
       0.0000000000
                 0
                 0


 ALL ABOVE ANSWERS SHOULD BE 0 FOR
 THIS TEST SEGMENT TO BE SUCCESSFUL.
 FSFTS - (111) STATEMENT FUNCTION TEST

 DOUBLE PRECISION, COMPLEX AND LOGICAL

 ASA REF. - 8.1.2

 RESULTS

     0.000000000000000000E+00
     0.000000000000000000E+00
     0.000000000000000000E+00
     0.000000000000000000E+00


     0.000000000000000000E+00
     0.000000000000000000E+00
     0.000000000000000000E+00
     0.000000000000000000E+00


      0.0000000     0.0000000
      0.0000000     0.0000000
      0.0000000     0.0000000
      0.0000000     0.0000000


 ALL ABOVE ANSWERS SHOULD BE 0 FOR THIS
 TEST SEGMENT TO BE SUCCESSFUL. VALUES
 WITH EXPONENTS LESS THAN    10**(-14)
 ARE CONSIDERED ZERO


  T   T   T   T

THE FOUR ABOVE ANSWERS SHOULD BE TRUE
 FOR THIS SEGMENT TO BE SUCCESSFUL



Command:F77 ERCS13:NBSFTESTS_PART09      ,FY
   main program
 965 Statements compiled

Command:RUN FY
 F O R T R A N  T E S T  P R O G R A M S

 PREPARED BY NATIONAL BUREAU OF STANDARDS

 FOR USE ON LARGE FORTRAN PROCESSORS

 IN ACCORDANCE WITH ASA FORTRAN X3.9-1966

 VERSION 3     PART 9



  BASED ON ASA FORTRAN X3.9-1966

  TEST PROGRAMS

  FORTRAN COMPILER

 CPXAD - (140) COMPLEX ADDITION AND
               SUBTRACTION

 ASA REF. - 6.1

 RESULTS


   0.0000  0.0000
   0.0000  0.0000
   0.0000  0.0000
   0.0000  0.0000
   0.0000  0.0000
   0.0000  0.0000
   0.0000  0.0000
   0.0000  0.0000
   0.0000  0.0000
   0.0000  0.0000
   0.0000  0.0000

 TEST IS POSITIVE IF NUMBERS PRINTED
 ABOVE ARE 0.0,0.0
 CPXMU - (141) COMPLEX MULTIPLICATION

 ASA REF. - 6.1

 RESULTS


    1.000   0.000
    1.000   0.000
    1.000   0.000
    1.000   0.000
    1.000   0.000
    1.000   0.000
    1.000   0.000
    1.000   0.000
    1.000   0.000
    1.000   0.000
    1.000   0.000
    1.000   0.000
    1.000   0.000
    1.000   0.000
    1.000   0.000
    1.000   0.000
    1.000   0.000
    1.000   0.000
    1.000   0.000
    1.000   0.000

TEST IS POSITIVE IF NUMBERS PRINTED
ABOVE ARE 1.0,0.0


 ERROR SHOULD NOT EXCEED + OR - .001
 CPXDV - (142) DIVISION OF
               COMPLEX NUMBERS

 ASA REF.- 6.1

 RESULTS


   1.0000  1.0000
   1.0000  1.0000
   1.0000  1.0000
   1.0000  1.0000
   1.0000  1.0000
   1.0000  1.0000
   1.0000  1.0000
   1.0000  1.0000
   1.0000  1.0000
   1.0000  1.0000
   1.0000  1.0000
   1.0000  1.0000
   1.0000  1.0000
   1.0000  1.0000
   1.0000  1.0000
   1.0000  1.0000
   1.0000  1.0000
   1.0000  1.0000
   1.0000  1.0000
   1.0000  1.0000


 TEST IS POSITIVE IF NUMBERS PRINTED
 ABOVE ARE 1.0,1.0


 ERROR SHOULD NOT EXCEED + OR - .0001
 CPXEX - (143) COMPLEX EXPONENTIATION

 ASA.REF.6.1

 RESULTS BASED ON THE FUNCTION

 1.0 = SIN**2(X)+COS**2(X)


   1.0000  0.0000
   1.0000  0.0000
   1.0000  0.0000
   1.0000  0.0000
   1.0000  0.0000
   1.0000  0.0000
   1.0000  0.0000
   1.0000  0.0000
   1.0000  0.0000
   1.0000  0.0000
   1.0000  0.0000
   1.0000  0.0000
   1.0000  0.0000
   1.0000  0.0000
   1.0000  0.0000
   1.0000  0.0000
   1.0000  0.0000
   1.0000  0.0000
   1.0000  0.0000
   1.0000  0.0000
   1.0000  0.0000
   1.0000  0.0000
   1.0000  0.0000
   1.0000  0.0000
   1.0000  0.0000
   1.0000  0.0000
   1.0000  0.0000
   1.0000  0.0000
   1.0000  0.0000
   1.0000  0.0000
   1.0000  0.0000
   1.0000  0.0000
   1.0000  0.0000
   1.0000  0.0000
   1.0000  0.0000
   1.0000  0.0000
   1.0000  0.0000
   1.0000  0.0000
   1.0000  0.0000
   1.0000  0.0000


 TEST IS POSITIVE IF NUMBERS PRINTED
 ABOVE ARE CLOSE TO 1.0,0.0


 ERROR SHOULD NOT EXCEED + OR - .0001
 CPXOP - (144) COMPLEX OPERATIONS

 ASA REF 6.1

 RESULTS


   1.0000  0.0000
   1.0000  0.0000
   1.0000  0.0000
   1.0000  0.0000

 TEST IS POSITIVE IF NUMBERS PRINTED
 ABOVE ARE 1.0,0.0


 ERROR SHOULD NOT EXCEED + OR - .0001
 CREAD - (145) ADDITION AND SUBTRACTION
         OF COMPLEX AND REAL NUMBERS

 ASA REF. 6.1

 RESULTS


   0.0000  0.0000
   0.0000  0.0000
   0.0000  0.0000
   0.0000  0.0000
   0.0000  0.0000
   0.0000  0.0000
   0.0000  0.0000
   0.0000  0.0000
   0.0000  0.0000

 TEST IS POSITIVE IF NUMBERS PRINTED
 ABOVE ARE 0.0,0.0
 CREMU - (146) MULTIPLICATION OF COMPLEX
               BY REAL

 ASA.REF.6.1

 RESULTS


   1.0000  2.0000
   1.0000  2.0000
   1.0000  2.0000
   1.0000  2.0000


 TEST IS POSITIVE IF NUMBERS PRINTED
 ABOVE ARE 1.0,2.0


   1.0000  1.0000
   1.0000  1.0000
   1.0000  1.0000
   1.0000  1.0000


 TEST IS POSITIVE IF NUMBERS PRINTED
 ABOVE ARE 1.0,1.0


 ERROR SHOULD NOT EXCEED + OR - .0001
 CREDV - (147) DIVISION OF COMPLEX
               AND REAL NUMBERS

 ASA REF 6.1

 RESULTS


   1.0000  1.0000
   1.0000  1.0000
   1.0000  1.0000
   1.0000  1.0000
   1.0000  1.0000
   1.0000  1.0000
   1.0000  1.0000
   1.0000  1.0000


 TEST IS POSITIVE IF NUMBERS PRINTED
 ABOVE ARE 1.0,1.0


 ERROR SHOULD NOT EXCEED + OR - .0001
 CREOP - (148) OPERATIONS ON REAL AND
               COMPLEX NUMBERS

 ASA REF. 6.1

 RESULTS


   2.0000 -1.0000

 TEST IS POSITIVE IF NUMBERS PRINTED
 ABOVE ARE 2.0,-1.0


   1.0000  0.0000

 TEST IS POSITIVE IF NUMBERS PRINTED
 ABOVE ARE 1.0,0.0


 ERROR SHOULD NOT EXCEED + OR - .0001
 MISC3 - (149) EFFECT OF BLANKS WITHIN
               STMNT AND CONTINUATION
               OF STMNT TO 20 LINES

 ASA REFS. - 3.1.4.1  3.2.4.3.3  3.2.4

 RESULTS


        0

       0.0

 TEST IS POSITIVE IF NUMBERS PRINTED
 ABOVE ARE 0
 MISC4 - (150) EFFECT OF BLANKS WITHIN
               STMNT AND CONTINUATION
               OF STMNT TO 20 LINES

 ASA REFS. - 3.1.4.1  3.2.4.3.3  3.2.4

 RESULTS


   0.0000  0.0000


   0.0000  0.0000

 TEST IS POSITIVE IF NUMBERS PRINTED
 ABOVE ARE 0.0,0.0



Command:F77 ERCS13:NBSFTESTS_PART10A     ,FY
   main program
   function   AFS
   function   BFS
   function   CFS
   function   DFS
   function   EFS
   function   FFS
   function   IAFI
   function   IBFI
   function   ICFI
   function   IDFI
   function   IEFI
   function   IFFI
   function   GFS
   function   HFS
   function   IRFS
   function   JRFS
   function   RFS
   function   IFI
   function   JFI
   function   KFI
   function   LFI
   function   MFI
   function   AFC
   function   BFC
   function   CFC
   function   DFC
   function   EFC
   function   FFC
   function   HFC
 1026 Statements compiled

Command:RUN FY
 F O R T R A N  T E S T  P R O G R A M S

 PREPARED BY NATIONAL BUREAU OF STANDARDS

 FOR USE ON LARGE FORTRAN PROCESSORS

 IN ACCORDANCE WITH ASA FORTRAN X3.9-1966

 VERSION 3     PART 10



  BASED ON ASA FORTRAN X3.9-1966

  TEST PROGRAMS

  FORTRAN COMPILER

 BRFCP - (160) REAL EXTERNAL FUNCTIONS

 ASA REF. - 8.3.1

 RESULTS SHOULD BE POSITIVE


 TEST 1 IS POSITIVE


 TEST 2 IS POSITIVE


 TEST 3 IS POSITIVE


 TEST 4 IS POSITIVE


 TEST 5 IS POSITIVE


 TEST 6 IS POSITIVE
 BIFCP - (161) INTEGER EXTERNAL FUNCTIONS
               WITH INTEGER AND REAL ARGS

 ASA REF. - 8.3.1

 RESULTS SHOULD BE POSITIVE


 TEST 1 IS POSITIVE


 TEST 2 IS POSITIVE


 TEST 3 IS POSITIVE


 TEST 4 IS POSITIVE


 TEST 5 IS POSITIVE


 TEST 6 IS POSITIVE
 FRFCP - (162) REAL FUNCTIONS WITH
         LOGICAL, D.P., AND COMPLEX ARGS

 ASA REF. 8.3.1

 RESULTS SHOULD BE POSITIVE


 TEST 1 IS POSITIVE.


 TEST 2 IS POSITIVE.


 TEST 3 IS POSITIVE.


 TEST 4 IS POSITIVE.


 TEST 5 IS POSITIVE.


 TEST 6 IS POSITIVE.


 TEST 7 IS POSITIVE.
 FIFCP - (163) INTEGER FUNCTION IN
               FULL FORTRAN

 ASA REF. 8.3.1

 RESULTS SHOULD BE POSITIVE


 TEST  1 IS POSITIVE


 TEST  2 IS POSITIVE


 TEST  3 IS POSITIVE


 TEST  4 IS POSITIVE


 TEST  5 IS POSITIVE


 TEST  6 IS POSITIVE


 TEST  7 IS POSITIVE
 CFCCP - (164) COMPLEX FUNCTIONS

 ASA REFS. 8.3.1,8.3.2

 RESULTS

  0.0  0.0 -- TEST  1 POSITIVE IF 0.0,0.0

  0.0  0.0 -- TEST  2 POSITIVE IF 0.0,0.0

  0.0  0.0 -- TEST  3 POSITIVE IF 0.0,0.0

  0.0  0.0 -- TEST  4 POSITIVE IF 0.0,0.0

  0.0  0.0 -- TEST  5 POSITIVE IF 0.0,0.0

  0.0  0.0 -- TEST  6 POSITIVE IF 0.0,0.0

  0.0  0.0 -- TEST  7 POSITIVE IF 0.0,0.0

  0.0  0.0 -- TEST  8 POSITIVE IF 0.0,0.0

              TEST  9 IS POSITIVE

              TEST 10 IS POSITIVE



Command:F77 ERCS13:NBSFTESTS_PART11A     ,FY
   main program
   function   AFD
   function   BFD
   function   CFD
   function   DFD
   function   EFD
   function   FFD
   function   GFD
   function   HFD
   function   AFB
   function   BFB
   function   CFB
   function   DFB
   function   EFB
   function   FFB
   function   GFB
   function   HFB
   subroutine AAQ
   subroutine ABQ
   subroutine ACQ
   subroutine ADQ
   subroutine AEQ
   subroutine AFQ
  1078           DATA JAX2I(1,1), JAX1I(2), JAX2I(2,1), JAX3I(2,2,1),DX3S(1,2,1),
                *     DX1S(1), DX2S(1,1), DX3S(2,2,1), DX2D(2,2), DX1D(2),
                *     DX2D(2,1), DX3D(2,2,1), DX2C(2,2), DX1C(2), DX2C(2,1),
                *     DZ3C(2,1,1), DX2B(2,2), DX1B(2), DX2B(2,1), DX3B(2,2,1),
                *     JAX2I(3,1),DX3B(2,1,2),DX2S(2,2)/4*2,4*3.0,4*4.0D0,4*(4.,5.),
                *      4*.TRUE.,                2HAB, 2HAB, 2HAB/

Warning 193  Use of Hollerith is not standard FORTRAN77

 1085 Statements compiled

Command:RUN FY
 F O R T R A N  T E S T  P R O G R A M S

 PREPARED BY NATIONAL BUREAU OF STANDARDS

 FOR USE ON LARGE FORTRAN PROCESSORS

 IN ACCORDANCE WITH ASA FORTRAN X3.9-1966

 VERSION 3     PART 11



  BASED ON ASA FORTRAN X3.9-1966

  TEST PROGRAMS

  FORTRAN COMPILER

 DPFCP - (165) DOUBLE PRECISION
               FUNCTIONS

 ASA REFS. 8.3.1,8.3.2

 RESULTS

 TEST  1 IS POSITIVE

 TEST  2 IS POSITIVE

 TEST  3 IS POSITIVE

 TEST  4 IS POSITIVE

 TEST  5 IS POSITIVE

 TEST  6 IS POSITIVE

 TEST  7 IS POSITIVE

 TEST  8 IS POSITIVE

 TEST  9 IS POSITIVE

 TEST 10 IS POSITIVE


 0.0  0.0

 TEST 11 IS POSITIVE IF NUMBERS PRINTED
 ABOVE ARE 0.0,0.0

 TEST 12 IS POSITIVE
 BFCCP - (166) LOGICAL FUNCTIONS

 ASA REF 8.3.1

 RESULTS

 TEST  1 IS POSITIVE

 TEST  2 IS POSITIVE

 TEST  3 IS POSITIVE

 TEST  4 IS POSITIVE

 TEST  5 IS POSITIVE

 TEST  6 IS POSITIVE

 TEST  7 IS POSITIVE

 TEST  8 IS POSITIVE

 TEST  9 IS POSITIVE

 TEST 10 IS POSITIVE


 0.0000  0.0000

 TEST 11 IS POSITIVE IF NUMBERS PRINTED
 ABOVE ARE 0.0,0.0

 END OF (166)
 SBRTN - (167) SUBROUTINE SUBPROGRAM

 ASA REF. - 8.4.1

 RESULTS


        1
       1.0
        1
        1
        1
        1
       1.0
       1.0
       1.0
       1.0
        1
       1.0
        1
        1
       1.0
       1.0



 TEST SUCCESSFUL IF ALL RESULTS EQUAL 1


 FSBRT - (168) SUBROUTINE SUBPROGRAMS

 ASA REF. - 8.4.1

 RESULTS

 TEST IS SUCCESSFUL IF EACH
 GROUP CONTAINS SAME VALUES
        1
        1
        1
        1
        1
        1
        1
        1
        1
        1

       2.0
       2.0
       2.0
       2.0
       2.0
       2.0
       2.0
       2.0
       2.0
       2.0

       4.0E+00
       4.0E+00
       4.0E+00
       4.0E+00
       4.0E+00
       4.0E+00
       4.0E+00
       4.0E+00

 6.0  6.0
 6.0  6.0
 6.0  6.0
 6.0  6.0
 6.0  6.0
 6.0  6.0
 6.0  6.0
 6.0  6.0

        T
        T
        T
        T
        T
        T
        T
        T

 BLKDT - (169) BLOCK DATA SUBPROGRAM

 ASA REF. - 8.5

 RESULTS

 TEST IS SUCCESSFUL IF EACH
 GROUP CONTAINS SAME VALUES


        2
        2
        2
        2


        3.0
        3.0
        3.0
        3.0


        4.0E+00
        4.0E+00
        4.0E+00
        4.0E+00


  4.0   5.0
  4.0   5.0
  4.0   5.0
  4.0   5.0


        T
        T
        T
        T


 AB
 AB
 AB




Command:F77 ERCS13:NBSFTESTS_PART12A     ,FY
   main program
   subroutine SUBRQ
   subroutine MDQ
  1386           DATA JXVI, JAX1I(1), JAX2I(1,2), DXVS, DX1S(2)
                *    ,DX2S(1,2), DXVD, DX1D(1), DX2D(1,2)/ 3 * 1
                *    ,3 * 2.0,3*4.0D0/,  JAX2I(1,3),DX2S(2,1)/2HHP,2HHP/

Warning 193  Use of Hollerith is not standard FORTRAN77

  1423           DATA JAX3I(1,1,2),DX3S(1,1,2),DX3D(1,1,2),CY3C(1,1,2),DX3B(1,1,2)/
                * 1, 2.0, 4.0D0, (3.,4.),.FALSE./            ,DX3B(2,2,2)/
                * 2HHP/

Warning 193  Use of Hollerith is not standard FORTRAN77

 1427 Statements compiled

Command:DEFINE 9,TMP#9,,v4096


Command:RUN FY
 F O R T R A N  T E S T  P R O G R A M S

 PREPARED BY NATIONAL BUREAU OF STANDARDS

 FOR USE ON LARGE FORTRAN PROCESSORS

 IN ACCORDANCE WITH ASA FORTRAN X3.9-1966

 VERSION 3     PART 12



  BASED ON ASA FORTRAN X3.9-1966

  TEST PROGRAMS

  FORTRAN COMPILER

 BLKDA - (179) SEVERAL BLOCK DATA
               SUBPROGRAMS
 ASA REF. - 8.5

 RESULTS


 TEST IS SUCCESSFUL IF EACH
 GROUP CONTAINS SAME VALUES


        1
        1
        1
        1


        2.0
        2.0
        2.0
        2.0


        4.0E+00
        4.0E+00
        4.0E+00
        4.0E+00


  3.0   4.0
  3.0   4.0
  3.0   4.0
  3.0   4.0


        F
        F
        F
        F


 HP
 HP
 HP

 UNFRW - (180) UNFORMATTED READ
               AND WRITE STATEMENTS

 ASA REFS - 7.1.3.2.4 AND 7.1.3.2.5

 RESULTS


       0.0000000000
       0.0000000000
                 0
                 0
       0.0000000000
       0.0000000000
       0.0000000000
       0.0000000000
       0.0000000000
       0.0000000000
       0.0000000000

       0.0000000000
       0.0000000000
       0.0000000000
       0.0000000000
       0.0000000000



       0.0000000000
       0.0000000000
                 0
                 0
       0.0000000000
       0.0000000000
       0.0000000000
       0.0000000000
       0.0000000000
       0.0000000000
       0.0000000000



       0.0000000000
       0.0000000000
                 0
                 0


 ALL ABOVE ANSWERS SHOULD BE ZERO IF
 THE READ AND WRITE RECORDS COMPARE.
 BACUP - (182) BACKSPACE TAPE

 ASA REF. 7.1.3.3.2

 RESULTS


 GROUP  1
      1     2     3
      4     5     6
      7     8     9
   1016  1017  1018
   1019  1020  1021
   1022  1023  1024


 GROUP  2
      5    10    15
     20    25    30
     35    40    45
   5080  5085  5090
   5095  5100  5105
   5110  5115  5120


 GROUP  3
      1     2     3
      4     5     6
      7     8     9
   1016  1017  1018
   1019  1020  1021
   1022  1023  1024


 GROUPS 1 AND 3 SHOULD BE THE SAME
 AND GROUP 2, 5 TIMES GROUP 1
 DOTRM - (190) DO TERMINAL

 ASA REF - 7.1.2.8

 RESULTS


 TEST1 CONTINUE EXPLICIT

 **TEST1 SUCCESSFUL**


 TEST2 CONTINUE IMPLIED

 **TEST2 SUCCESSFUL**


 TEST3 ASSIGN

 **TEST3 SUCCESSFUL**


 TEST4 LOGICAL IF

 **TEST4 SUCCESSFUL**
 DOLMT - (191) DO SET LIMITS

 ASA REF. - 7.1.2.8

 RESULTS

 **TEST SUCCESSFUL**
 DONSC - (192) NESTED LOOPS

 ASA REF. - 7.1.2.8

 RESULTS


 2 LEVELS OF NESTING
 **TEST SUCCESSFUL**


 3 LEVELS OF NESTING
 **TEST SUCCESSFUL**


 4 LEVELS OF NESTING
 **TEST SUCCESSFUL**


 5 LEVELS OF NESTING
 **TEST SUCCESSFUL**


 CONTROL VARIABLE USED IN SUBSCRIPT
 **TEST SUCCESSFUL**
 DONSI - (193) INCOMPLETE DO

 ASA REF. - 7.1.2.8

 RESULTS

 **INCOMPLETE LOOP SUCCESSFUL**
 DONML - (195) MULT-LEVEL LOOPS

 ASA REF. - 7.1.2.8

 RESULTS

 **TEST SUCCESSFUL**
 DONIO - (196) DO LOOPS WITH I/O
               TERMINAL STATEMENTS
 ASA REF. - 7.1.2.8
 RESULTS
 Not connected for formatted I/O

I/O Details:

    Statement: Formatted WRITE
         Unit: 9
 Connected To: ERCS07:F77REL.TMP#9
       Access: SEQUENTIAL
       Form  : UNFORMATTED

Monitor entered from FORTRAN 

Entered From MAIN PROGRAM   Line  1037
AC1S     =   1.000000    ,  2.000000    ,  3.000000    ,  4.000000    ,  5.000000    
AC2S     =   Not Assigned,  Not Assigned,  Not Assigned,  Not Assigned,  Not Assigned
ACVS     = 0.000000E+00
BCVS     = 0.000000E+00
CC3D     =           Not Assigned,          Not Assigned,          Not Assigned,          Not Assigned,
                     Not Assigned
CCVS     = 0.000000E+00
CKAVS    = 1.000000
CMA1S    =   1.000000    ,  2.000000    ,  3.000000    ,  4.000000    ,  5.000000    
CMAVS    = 15.00000
CMB1S    =   1.000000    ,  2.000000    ,  3.000000    ,  4.000000    ,  5.000000    
CMBVS    = -2.750000
CMCVS    = 15.00000
CMDVS    = -2.750000
CMEVS    = 0.000000E+00
CMFVS    = 0.000000E+00
CMGVS    = 0.000000E+00
CMHVS    = 0.000000E+00
CMIVS    = 0.000000E+00
CMJVS    = 0.000000E+00
CMKVS    = 0.000000E+00
DCVS     = 0.000000E+00
DENVC    = (1.000000,1.000000)
DPAVD    = Not Assigned
DPAVS    = 1.020000
DPBVD    = 1.00000000000000
DPBVS    = 98.75999
DPCVS    = 1.020000
DPDVS    = 98.75999
DPEVS    = 0.000000E+00
DPFVS    = 0.000000E+00
FFCVS    = 0.000000E+00
GH2B     =         TRUE,Not Assigned
IAC1I    =            1,           1,           4,           5,Not Assigned
IAVI     = 0
ICVI     = 1
IEDVI    = 185
IFDVI    = 24
IGDVI    = 8
IHDVI    = 3
IIVI     = 19
INVI     = 9
IRVI     = 5
ISVI     = 1024
IV1I     =            1,           2,           3,           4,           5
IVI      = 3
JACVI    = 3
JCVI     = 4
JFCVI    = 2
JVI      = 4
KBCVI    = 5
KCAVI    = 1
KCVI     = 4
KGCVI    = 4
KVI      = 4
LCCVI    = 9
LHCVI    = 3
LL1C     =                    Not Assigned,            (1.000000,1.000000),                   Not Assigned,
                              Not Assigned,                   Not Assigned
LVI      = 10
MCA1I    = Not Assigned,Not Assigned,Not Assigned,Not Assigned,Not Assigned
MCA3I    =            1,           2,           3,           4,           5
MCAVB    = Not Assigned
MCAVI    = 5
MCBVB    = TRUE
MCBVI    = -10
MCCVI    = 5
MCDVI    = -10
MCEVI    = 0
MCFVI    = 0
MCGVI    = Not Assigned
MCHVI    = Not Assigned
MDCVI    = 6
MRRVI    = 5
MVI      = Not Assigned
NECVI    = 12
NUMVC    = Not Assigned
NUVI     = 6

Labelled Common BLK6
DX3B     =        FALSE,       FALSE,       FALSE,       FALSE,       FALSE
DX3D     =   0.00000000000000E+00,  0.00000000000000E+00,  0.00000000000000E+00,  0.00000000000000E+00,
             4.00000000000000    
DX3S     =   0.000000E+00,  0.000000E+00,  0.000000E+00,  0.000000E+00,  2.000000    
DZ3C     =   ( 0.000000E+00, 0.000000E+00),  ( 0.000000E+00, 0.000000E+00),  ( 0.000000E+00, 0.000000E+00),
             ( 0.000000E+00, 0.000000E+00),            (3.000000,4.000000)
JAX3I    =            0,           0,           0,           0,           1

Labelled Common BLK5
DX1B     =        FALSE,       FALSE
DX2B     =        FALSE,       FALSE,       FALSE,       FALSE
DXVB     = FALSE

Labelled Common BLK4
DX1C     =             (3.000000,4.000000),  ( 0.000000E+00, 0.000000E+00)
DX2C     =   ( 0.000000E+00, 0.000000E+00),  ( 0.000000E+00, 0.000000E+00),            (3.000000,4.000000),
             ( 0.000000E+00, 0.000000E+00)
DXVC     = (3.000000,4.000000)

Labelled Common BLK3
DX1D     =   4.00000000000000    ,  0.00000000000000E+00
DX2D     =   0.00000000000000E+00,  0.00000000000000E+00,  4.00000000000000    ,  0.00000000000000E+00
DXVD     = 4.00000000000000

Labelled Common BLK2
DX1S     =   0.000000E+00,  2.000000    
DX2S     =   0.000000E+00,  1.344283E+09,  2.000000    ,  0.000000E+00
DXVS     = 2.000000

Labelled Common BLK1
JAX1I    =            1,           0
JAX2I    =            0,           0,           0,           1,           0
JXVI     = 1

Blank Common
AXVS     = Not Assigned
CXVS     = Not Assigned
IAX1I    = Not Assigned,Not Assigned,Not Assigned,Not Assigned
IXVI     = Not Assigned

Command:DEFINE 5,ERCS13:NBSFTESTS_PART13DATA


Command:F77 ERCS13:NBSFTESTS_PART13      ,FY
   main program
   967           DATA IU2I(1,1),IU2I(2,1),IU2I(3,1),IU2I(4,1),IU2I(1,2),IU2I(2,2),
                *     IU2I(3,2)/2H(A,2H2/,2H2X,2H,5,2H(A,2H2),1H) /

Warning 193  Use of Hollerith is not standard FORTRAN77

   969           DATA ZU1S(1),ZU1S(2),ZU1S(3),ZU1S(4),ZU1S(5),ZU1S(6),ZU1S(7),
                *     ZU1S(8),ZU1S(9),ZU1S(10),ZU1S(11),ZU1S(12)  /
                *     2H( ,2H  ,2HF3,2H.3,1H,,2HF3,2H.0,2H, ,2H2(,2HF6,2H.2,2H)) /

Warning 193  Use of Hollerith is not standard FORTRAN77

   972           DATA IU3I(1,1,1),IU3I(2,1,1),IU3I(1,2,1),IU3I(2,2,1),IU3I(1,3,1),
                *     IU3I(2,3,1),IU3I(1,1,2),IU3I(2,1,2) /
                *     2H( ,2H D,2H16,2H.9,2H, ,1HD,2H9.,2H2) /

Warning 193  Use of Hollerith is not standard FORTRAN77

   975           DATA IT3I(1,1,1),IT3I(2,1,1),IT3I(3,1,1),IT3I(4,1,1),IT3I(1,2,1),
                *     IT3I(2,2,1),IT3I(3,2,1),IT3I(4,2,1),IT3I(1,1,2),IT3I(2,1,2),
                *     IT3I(3,1,2),IT3I(4,1,2),IT3I(1,2,2)  /2H(2,2HX,,2HI5,2H,1,
                *     2HX,,2HI4,2H,I,2H4,,2H1X,2H,I,2H2,,2HI3,1H)  /

Warning 193  Use of Hollerith is not standard FORTRAN77

   979           DATA ZT1S(1),ZT1S(2),ZT1S(3),ZT1S(4)/2H(E,2H11,2H.2,1H) /

Warning 193  Use of Hollerith is not standard FORTRAN77

   980           DATA ZU3S(1,1,1),ZU3S(2,1,1),ZU3S(3,1,1),ZU3S(1,2,1),ZU3S(2,2,1),
                *     ZU3S(3,2,1) / 2H(4,2H(E,2H14,2H.6,2H/),1H)  /

Warning 193  Use of Hollerith is not standard FORTRAN77

   982           DATA ZU2S(1,1),ZU2S(2,1),ZU2S(3,1),ZU2S(4,1),ZU2S(1,2),ZU2S(2,2),
                *     ZU2S(3,2) / 2H(L,2H3,,2H2(,2HL2,2H),,2HL3,1H)  /

Warning 193  Use of Hollerith is not standard FORTRAN77

  1015           READ (IRVI,AC1S) AVI, MRRVI, IAC1I(1), IAC1I(2), IAC1I(3)

Warning 191  Format specifier is a non-char array - not standard FORTRAN77

  1017           WRITE(NUVI,IT3I)JACVI, KBCVI, LCCVI, MDCVI, NECVI, AVI, MRRVI,
                *                  IAC1I(1), IAC1I(2), IAC1I(3)

Warning 191  Format specifier is a non-char array - not standard FORTRAN77

  1024           READ (IRVI,ZU1S) CVS, DVS, CHBVC

Warning 191  Format specifier is a non-char array - not standard FORTRAN77

  1026           WRITE (NUVI,MCA3I) AVS, BVS, CHAVC

Warning 191  Format specifier is a non-char array - not standard FORTRAN77

  1027           WRITE (NUVI,MCA3I) CVS, DVS, CHBVC

Warning 191  Format specifier is a non-char array - not standard FORTRAN77

  1032           READ  (IRVI,L1I) ZU3S(2,2,2),CVS,DVS,ZU3S(1,2,2)

Warning 191  Format specifier is a non-char array - not standard FORTRAN77

  1034           WRITE(NUVI,ZT1S) AVS, ZU3S(2,2,2)

Warning 191  Format specifier is a non-char array - not standard FORTRAN77

  1036           WRITE (NUVI, ZU3S) BVS,ZU3S(1,2,2),CVS, DVS

Warning 191  Format specifier is a non-char array - not standard FORTRAN77

  1041           READ  (IRVI,IU3I) A1D(1), DPCVD

Warning 191  Format specifier is a non-char array - not standard FORTRAN77

  1043           WRITE (NUVI,IAC2I) DPAVD,DPBVD,A1D(1),DPCVD

Warning 191  Format specifier is a non-char array - not standard FORTRAN77

  1048           READ  (IRVI,A3S) A1B(1), A1B(2), CVB, GG1B(2)

Warning 191  Format specifier is a non-char array - not standard FORTRAN77

  1050           WRITE (NUVI, ZU2S) AVB, AVB, BVB, BVB

Warning 191  Format specifier is a non-char array - not standard FORTRAN77

  1051           WRITE (NUVI,ZU2S) A1B(1), A1B(2), CVB, GG1B(2)

Warning 191  Format specifier is a non-char array - not standard FORTRAN77

  1054           READ  (IRVI,IU2I) JACVI, AVS, IAC1I(1), GG1B, BVB

Warning 191  Format specifier is a non-char array - not standard FORTRAN77

  1056           WRITE (NUVI,YER1S) JACVI, AVS, IAC1I(1), GG1B, BVB

Warning 191  Format specifier is a non-char array - not standard FORTRAN77

   subroutine SMCQ
   subroutine FMTQ
  1118           WRITE (NWVI, ZTW1S) AWVS

Warning 191  Format specifier is a non-char array - not standard FORTRAN77

 1133 Statements compiled

Command:RUN FY
 F O R T R A N  T E S T  P R O G R A M S

 PREPARED BY NATIONAL BUREAU OF STANDARDS

 FOR USE ON LARGE FORTRAN PROCESSORS

 IN ACCORDANCE WITH ASA FORTRAN X3.9-1966

 VERSION 3     PART 13



  BASED ON ASA FORTRAN X3.9-1966

  TEST PROGRAMS

  FORTRAN  COMPILER

 LOGIF - (300) LOGICAL IF STATEMENT

 ASA REF. - 7.1.2.3

 RESULTS


 TEST EXPLICITLY WRITTEN SIGNED ZERO

 +0 EQUALS -0
 +0.0 EQUALS -0.0
 +0.0D0 EQUALS -0.0D0

 TEST COMPUTATIONAL SIGN OF ZERO

 +0 EQUALS -0
 +0.0 EQUALS -0.0
 +0.0D0 EQUALS -0.0D0

 TEST -LOGICAL IF- FOLLOWED BY
 DIFFERENT KINDS OF STATEMENTS
                    0
                    0
                    0
                    0
                    0
                    0
                    0
                    0
                    0
                    0

 THERE SHOULD BE 10 VALUES ABOVE,
 IF ONLY 9, TEST 9 HAS FAILED.
                    0
                    0
                    0
                    0
                    0
                    0
                    0
                    0
                    0

 ALL VALUES SHOULD BE ZERO.
 A VALUE OTHER THAN ZERO WILL BE THE
 NUMBER OF THE TEST WHICH FAILED.
 BARIF - (301) BASIC FORTRAN
               ARITHMETIC IF STATEMENT
 ASA REF. - 7.1.2.2
 RESULTS

 TEST FOR SIGN OF ZERO - TYPE INTEGER

PATH  * FORM OF EXPRESSION *
OF IF *  -0  *   0  *  +0  *
****************************
      *      *      *      *
 NEG. *   0  *   0  *   0  *
      *      *      *      *
 ZERO *  11  *  11  *  11  *
      *      *      *      *
 POS. *   0  *   0  *   0  *
      *      *      *      *



 TEST FOR SIGN OF ZERO - TYPE REAL

PATH  * FORM OF EXPRESSION *
OF IF * -0.0 *  0.0 * +0.0 *
****************************
      *      *      *      *
 NEG. *   0  *   0  *   0  *
      *      *      *      *
 ZERO *  11  *  11  *  11  *
      *      *      *      *
 POS. *   0  *   0  *   0  *
      *      *      *      *


 ALL ENTRIES SHOULD BE  0  EXCEPT
 THE ZERO PATH, WHICH SHOULD BE  11
 IN EACH COLUMN. OTHER TESTS MAY
 FAIL IF THESE RESULTS DIFFER.


 TEST EXPRESSIONS IN  IF  STATEMENTS

 TESTS SUCCESSFUL
 FARIF - (302) FULL FORTRAN
               ARITHMETIC IF STATEMENTS
 ASA REF. - 7.1.2.2
 RESULTS


 SEGMENT 302 TESTED SUCCESSFULLY.
 IOFMT - (310) ADDITIONAL FORMATTED I/O

 ASA REFS - 7.1.3.2.2  7.1.3.2.3  7.2.3

 RESULTS

 TEST BLANK INPUT
 EACH ANSWER SHOULD BE ZERO
    0
    0
    0
    0

    0.0
    0.0
    0.0
    0.0

    0.0E+00
    0.0E+00
    0.0E+00
    0.0E+00

    0.0E+00
    0.0E+00
    0.0E+00
    0.0E+00

 TEST DEC. PT. SPECIFIED BY INPUT
 3 LINES IN EACH GROUP SHOULD MATCH
 * LINE IS HOLLERITH DATA

 *  1.23456
    1.23456
    1.23456

 *  987654.0
    987654.0
    987654.0

 *  0.1234E+01
    0.1234E+01
    0.1234E+01

 * -0.987654E+02
   -0.987654E+02
   -0.987654E+02

 *  0.234567891011D+06
    0.234567891011E+06
    0.234567891011E+06

 * -0.109876D-04
   -0.109876E-04
   -0.109876E-04
 TEST FORMAT DESCRIPTOR REPETITION
 ALL LINES IN EACH GROUP SHOULD
 BE IDENTICAL

 *  12345
    12345
    12345
    12345
    12345
    12345
    12345

 *  1.1
    1.1
    1.1
    1.1
    1.1
    1.1

 *  0.339567E+02
    0.339567E+02
    0.339567E+02
    0.339567E+02
    0.339567E+02

 *  0.96295134244D+04
    0.96295134244E+04
    0.96295134244E+04
    0.96295134244E+04
    0.96295134244E+04
    0.96295134244E+04

 *  3  1.23  0.14E+04  0.2D+02
    3  1.23  0.14E+04  0.2E+02
    3  1.23  0.14E+04  0.2E+02
    3  1.23  0.14E+04  0.2E+02

 * -0.13579E+05
   -0.13579E+05
   -0.13579E+05

 *  4444
    4444
    4444
    4444
    4444
    4444
    4444

 * -333
   -333
   -333
 *  5.555
    5.555
    5.555

 *  0.4545E-04
    0.4545E-04
    0.4545E-04

 * -6.666
   -6.666
   -6.666

 *  0.9989E+12
    0.9989E+12
    0.9989E+12

 *  7.77
    7.77
    7.77

 * -0.747E-02
   -0.747E-02
   -0.747E-02

 *  0.549E+00
    0.549E+00
    0.549E+00

 *  22
    22
    22

 *  0.662E+00
    0.662E+00
    0.662E+00

 *  0.468E-10
    0.468E-10
    0.468E-10

 *  11
    11
    11

 *  0.59542D+04
    0.59542E+04
    0.59542E+04

 * -44.6666
   -44.6666
   -44.6666

 * -0.1234567890D-03
   -0.1234567890E-03
   -0.1234567890E-03
 *  54.9327
    54.9327
    54.9327

 * -0.1395624534D+00
   -0.1395624534E+00
   -0.1395624534E+00

 *  65432.1
    65432.1
    65432.1

 *  0.848E+03
    0.848E+03
    0.848E+03
    0.848E+03

 *  0.129D+07
    0.129E+07
    0.129E+07
    0.129E+07

 *  0.412D+21
    0.412E+21
    0.412E+21

 * -0.987E+00
   -0.987E+00
   -0.987E+00
   -0.987E+00

 *  0.6D+00
    0.6E+00
    0.6E+00
    0.6E+00

 *  0.368D-05
    0.368E-05
    0.368E-05

 *  0.777E+01
    0.777E+01
    0.777E+01

 * -333   0.59542D+04
   -333   0.59542E+04

 * -333   0.59542D+04
   -333   0.59542E+04


 SCALE FACTOR ON READ
 IN ORDER OF FORMAT OCCURRENCE
 NO EXPONENT ON INPUT DATA

 CARD    987654     8647.86     987.654
 DESC   1PE10.3    -1PE10.2       D10.3
 TO BE .988E+02   .8648E+05   .9877D+04
 IS   0.988E+02  0.8648E+05  0.9877E+04
 RDFMT - (312) FORMATS IN ARRAYS

 ASA REFS. - 7.2.3.10

 EACH GROUP OF LINES SHOULD MATCH

  4756 -867 224 39 -6
  4756 -867 224 39 -6
  4756 -867 224 39 -6

 0.234 98. -77.27 547.18
 0.234 98. -77.27 547.18
 0.234 98. -77.27 547.18

 -0.76E+09
 -0.76E+09
 -0.76E+09

 0.893421E-12
 0.893421E-12
 0.893421E-12
 0.893421E-12
 0.893421E-12


 -0.357901246D+00 0.52D-02
 -0.357901246E+00 0.52E-02
 -0.357901246E+00 0.52E-02

 T T F  F
 T T F  F
 T T F  F

 ABCDE+*=123
 ABCDE+*=123

  +.10E+01
  0.10E+01

 HOLLERITH CONSTANTS AS CALL ARGUMENTS
 H0LLERITH CONSTANTS AS CALL ARGUMENTS


 TEST EMPTY FORMAT STATEMENT
 THE FOLLOWING LINE SHOULD BE BLANK

 END EMPTY FORMAT TEST

 END SEGMENT 312 TEST



Command:F77 ERCS13:NBSFTESTS_PART14A     ,FY
   main program
   subroutine MAQQ
   subroutine MBQQ
   subroutine AMQQ
   subroutine BMQQ
 573 Statements compiled

Command:RUN FY
 F O R T R A N  T E S T  P R O G R A M S

 PREPARED BY NATIONAL BUREAU OF STANDARDS

 FOR USE ON LARGE FORTRAN PROCESSORS

 IN ACCORDANCE WITH ASA FORTRAN X3.9-1966

 VERSION 3     PART 14



  BASED ON ASA FORTRAN X3.9-1966

  TEST PROGRAMS

  FORTRAN COMPILER

 MISC5 - (350) SPECIFICATIONS FOR
               PROGRAM FORM

 ASA REFS. - 3.2  3.2.1  3.4  3.5

 TEST THAT COMMENTS ARE NOT EXECUTED
 TEST SUCCESSFUL IF NO ERROR MESSAGE



 TEST 72 CHARACTER LINE

 12345678910111213141516171819
 12345678910111213141516171819

 TEST SUCCESSFUL IF 2 LINES ABOVE ARE
 DIGITS 1 THROUGH 19


 TEST 1,2,3,4,5 CHARACTER STMNT. LABEL

 1 CHARACTER LABEL ACCEPTED
 2 CHARACTER LABEL ACCEPTED
 3 CHARACTER LABEL ACCEPTED
 4 CHARACTER LABEL ACCEPTED
 5 CHARACTER LABEL ACCEPTED


 TEST 1,2,3,4,5,6 CHARACTER VARIABLES
 AND ARRAY NAMES

 **TEST SUCCESSFUL-ALL NAMES ACCEPTED**


 TEST PLACEMENT OF STATEMENT LABELS
 AND LABELS WITH LEADING ZEROS

        1
        2
        3
        4
        5
        6
        7
        8
        9


 TEST SUCCESSFUL IF 9 NUMBERS
 IN SEQUENTIAL ORDER FROM 1 TO 9
 ARE WRITTEN ABOVE


 END OF SEGMENT 350
  FUNMX - (351)

 THIS SEGMENT FURTHER TESTS
 SOME BASIC EXTERNAL FUNCTIONS
 BY USING TRIGONOMETRIC FORMULAE

 ASA REFS. - 8.3.3

 RESULTS


       0.00000
       0.00000
       0.00000
       0.00000



       0.00000
       0.00020
       0.00000
       0.00000



       0.00000
       0.00000
       0.00000



 ALL ABOVE ANSWERS SHOULD BE 0 PLUS OR
 MINUS AN ERROR FACTOR OF NOT MORE THAN
 10 ** (-4)
 NAMES - (352)

 TEST OF THE COMPILERS CAPABILITY OF
 IDENTIFYING DATA NAMES THAT RESEMBLE
 FORTRAN VERBS AND/OR PREDEFINED
 FUNCTION NAMES

 ASA REFS. - 10.1.7/4

 RESULTS


  0.00000
  0.00000
  0.00000
  0.00000
        0
  0.00000
  0.00000
  0.00000
  0.00000
  0.00000


        0
        0


  0.00000
  0.00000


 ALL ABOVE ANSWERS SHOULD BE 0 FOR
 THIS TEST SEGMENT TO BE SUCCESSFUL
 SPEC2 - (360) COMMON AND EQUIVALENCE

 ASA REFS - 7.2.1.2  7.2.1.3  7.2.1.4

 RESULTS


 LINE 1 BELOW IS HOLLERITH

    2  2.0
    2  2.0


 ANSWERS BELOW SHOULD BE 0 OR 0.0

    0
    0
    0
    0.0
    0
    0
    0
    0.0


 ARITHMETIC IF SUCCESSFUL


 ANSWER BELOW SHOULD BE 13.0

   13.0


 COMPUTED GO TO SUCCESSFUL

  TEST EQUIVALENCE EXTENDS COMMON

 TEST SUCCESSFUL

 FORTRAN STOP 77777
