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