![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM370.f CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / testf77 / tests|
Return to FM370.f CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / testf77 / tests |
1.1 ! root 1: C***********************************************************************00010370 ! 2: C DATE***82/08/02*18.33.46 ! 3: C OWNER PRE/850703/TC-85- -410/ /FSTC/278FCVS*F78UBP20/ ! 4: C AUDIT FCVS78 V2.0 ! 5: C***** FORTRAN 77 00020370 ! 6: C***** FM370 00030370 ! 7: C***** XALOG - (181) 00040370 ! 8: C***** 00050370 ! 9: C***********************************************************************00060370 ! 10: C***** GENERAL PURPOSE SUBSET REF 00070370 ! 11: C***** TEST INTRINSIC FUNCTION ALOG 15.3 00080370 ! 12: C***** TABLE 5 00090370 ! 13: C***** 00100370 ! 14: C***** 00110370 ! 15: CBB** ********************** BBCCOMNT **********************************00120370 ! 16: C**** 00130370 ! 17: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00140370 ! 18: C**** VERSION 2.0 00150370 ! 19: C**** 00160370 ! 20: C**** 00170370 ! 21: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00180370 ! 22: C**** GENERAL SERVICES ADMINISTRATION 00190370 ! 23: C**** FEDERAL SOFTWARE TESTING CENTER 00200370 ! 24: C**** 5203 LEESBURG PIKE, SUITE 1100 00210370 ! 25: C**** FALLS CHURCH, VA. 22041 00220370 ! 26: C**** 00230370 ! 27: C**** (703) 756-6153 00240370 ! 28: C**** 00250370 ! 29: CBE** ********************** BBCCOMNT **********************************00260370 ! 30: CBB** ********************** BBCINITA **********************************00270370 ! 31: C**** SPECIFICATION STATEMENTS 00280370 ! 32: C**** 00290370 ! 33: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00300370 ! 34: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00310370 ! 35: CBE** ********************** BBCINITA **********************************00320370 ! 36: CBB** ********************** BBCINITB **********************************00330370 ! 37: C**** INITIALIZE SECTION 00340370 ! 38: DATA ZVERS, ZVERSD, ZDATE 00350370 ! 39: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00360370 ! 40: DATA ZCOMPL, ZNAME, ZTAPE 00370370 ! 41: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00380370 ! 42: DATA ZPROJ, ZTAPED, ZPROG 00390370 ! 43: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00400370 ! 44: DATA REMRKS /' '/ 00410370 ! 45: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00420370 ! 46: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00430370 ! 47: C**** 00440370 ! 48: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00450370 ! 49: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00460370 ! 50: CZ03 ZPROG = 'PROGRAM NAME' 00470370 ! 51: ZDATE = '07-Nov-85 ' *RP ! 52: ZCOMPL = 'CCI 5.2 ' *RP ! 53: ZPROJ = 'TC-85- -410' *RP ! 54: ZNAME = ' ' *RP ! 55: ZTAPE = ' ' *RP ! 56: ZTAPED = '850703 ' *RP ! 57: C 00540370 ! 58: IVPASS = 0 00550370 ! 59: IVFAIL = 0 00560370 ! 60: IVDELE = 0 00570370 ! 61: IVINSP = 0 00580370 ! 62: IVTOTL = 0 00590370 ! 63: IVTOTN = 0 00600370 ! 64: ICZERO = 0 00610370 ! 65: C 00620370 ! 66: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00630370 ! 67: I01 = 05 00640370 ! 68: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00650370 ! 69: I02 = 06 00660370 ! 70: C 00670370 ! 71: I01 = 5 00680370 ! 72: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00690370 ! 73: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00700370 ! 74: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00710370 ! 75: C 00720370 ! 76: I02 = 6 00730370 ! 77: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00740370 ! 78: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00750370 ! 79: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00760370 ! 80: C 00770370 ! 81: CBE** ********************** BBCINITB **********************************00780370 ! 82: NUVI = I02 00790370 ! 83: IVTOTL = 16 00800370 ! 84: ZPROG = 'FM370' 00810370 ! 85: CBB** ********************** BBCHED0A **********************************00820370 ! 86: C**** 00830370 ! 87: C**** WRITE REPORT TITLE 00840370 ! 88: C**** 00850370 ! 89: WRITE (I02, 90002) 00860370 ! 90: WRITE (I02, 90006) 00870370 ! 91: WRITE (I02, 90007) 00880370 ! 92: WRITE (I02, 90008) ZVERS, ZVERSD 00890370 ! 93: WRITE (I02, 90009) ZPROG, ZPROG 00900370 ! 94: WRITE (I02, 90010) ZDATE, ZCOMPL 00910370 ! 95: CBE** ********************** BBCHED0A **********************************00920370 ! 96: C***** HEADER FOR SEGMENT 181 00930370 ! 97: WRITE(NUVI,18100) 00940370 ! 98: 18100 FORMAT(1H , / 35H XALOG - (181) INTRINSIC FUNCTIONS// 00950370 ! 99: 1 26H ALOG (NATURAL LOGARITHM)// 00960370 ! 100: 2 20H SUBSET REF. - 15.3) 00970370 ! 101: CBB** ********************** BBCHED0B **********************************00980370 ! 102: C**** WRITE DETAIL REPORT HEADERS 00990370 ! 103: C**** 01000370 ! 104: WRITE (I02,90004) 01010370 ! 105: WRITE (I02,90004) 01020370 ! 106: WRITE (I02,90013) 01030370 ! 107: WRITE (I02,90014) 01040370 ! 108: WRITE (I02,90015) IVTOTL 01050370 ! 109: CBE** ********************** BBCHED0B **********************************01060370 ! 110: C***** 01070370 ! 111: CT001* TEST 1 ONE, SINCE LN(1.0) = 0.0 01080370 ! 112: IVTNUM = 1 01090370 ! 113: BVS = 1.0 01100370 ! 114: AVS = ALOG(BVS) 01110370 ! 115: IF (AVS + 0.50000E-04) 20010, 10010, 40010 01120370 ! 116: 40010 IF (AVS - 0.50000E-04) 10010, 10010, 20010 01130370 ! 117: 10010 IVPASS = IVPASS + 1 01140370 ! 118: WRITE (NUVI, 80002) IVTNUM 01150370 ! 119: GO TO 0011 01160370 ! 120: 20010 IVFAIL = IVFAIL + 1 01170370 ! 121: RVCORR = 0.00000000000000 01180370 ! 122: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01190370 ! 123: 0011 CONTINUE 01200370 ! 124: CT002* TEST 2 VALUES CLOSE TO E 01210370 ! 125: IVTNUM = 2 01220370 ! 126: AVS = ALOG(2.6875) 01230370 ! 127: IF (AVS - 0.98856E+00) 20020, 10020, 40020 01240370 ! 128: 40020 IF (AVS - 0.98866E+00) 10020, 10020, 20020 01250370 ! 129: 10020 IVPASS = IVPASS + 1 01260370 ! 130: WRITE (NUVI, 80002) IVTNUM 01270370 ! 131: GO TO 0021 01280370 ! 132: 20020 IVFAIL = IVFAIL + 1 01290370 ! 133: RVCORR = 0.98861139345378 01300370 ! 134: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01310370 ! 135: 0021 CONTINUE 01320370 ! 136: CT003* TEST 3 01330370 ! 137: IVTNUM = 3 01340370 ! 138: AVS = ALOG(5.125) 01350370 ! 139: IF (AVS - 0.16340E+01) 20030, 10030, 40030 01360370 ! 140: 40030 IF (AVS - 0.16342E+01) 10030, 10030, 20030 01370370 ! 141: 10030 IVPASS = IVPASS + 1 01380370 ! 142: WRITE (NUVI, 80002) IVTNUM 01390370 ! 143: GO TO 0031 01400370 ! 144: 20030 IVFAIL = IVFAIL + 1 01410370 ! 145: RVCORR = 1.63413052502447 01420370 ! 146: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01430370 ! 147: 0031 CONTINUE 01440370 ! 148: CT004* TEST 4 01450370 ! 149: IVTNUM = 4 01460370 ! 150: AVS = ALOG(10.0) 01470370 ! 151: IF (AVS - 0.23025E+01) 20040, 10040, 40040 01480370 ! 152: 40040 IF (AVS - 0.23027E+01) 10040, 10040, 20040 01490370 ! 153: 10040 IVPASS = IVPASS + 1 01500370 ! 154: WRITE (NUVI, 80002) IVTNUM 01510370 ! 155: GO TO 0041 01520370 ! 156: 20040 IVFAIL = IVFAIL + 1 01530370 ! 157: RVCORR = 2.30258509299405 01540370 ! 158: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01550370 ! 159: 0041 CONTINUE 01560370 ! 160: CT005* TEST 5 01570370 ! 161: IVTNUM = 5 01580370 ! 162: AVS = ALOG(100.0) 01590370 ! 163: IF (AVS - 0.46049E+01) 20050, 10050, 40050 01600370 ! 164: 40050 IF (AVS - 0.46054E+01) 10050, 10050, 20050 01610370 ! 165: 10050 IVPASS = IVPASS + 1 01620370 ! 166: WRITE (NUVI, 80002) IVTNUM 01630370 ! 167: GO TO 0051 01640370 ! 168: 20050 IVFAIL = IVFAIL + 1 01650370 ! 169: RVCORR = 4.60517018598809 01660370 ! 170: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01670370 ! 171: 0051 CONTINUE 01680370 ! 172: CT006* TEST 6 01690370 ! 173: IVTNUM = 6 01700370 ! 174: BVS = 1.0 01710370 ! 175: AVS = ALOG(BVS / 4.0) 01720370 ! 176: IF (AVS + 0.13864E+01) 20060, 10060, 40060 01730370 ! 177: 40060 IF (AVS + 0.13862E+01) 10060, 10060, 20060 01740370 ! 178: 10060 IVPASS = IVPASS + 1 01750370 ! 179: WRITE (NUVI, 80002) IVTNUM 01760370 ! 180: GO TO 0061 01770370 ! 181: 20060 IVFAIL = IVFAIL + 1 01780370 ! 182: RVCORR = -1.38629436111989 01790370 ! 183: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01800370 ! 184: 0061 CONTINUE 01810370 ! 185: CT007* TEST 7 01820370 ! 186: IVTNUM = 7 01830370 ! 187: BVS = 1.0 01840370 ! 188: CVS = 8.0 01850370 ! 189: AVS = ALOG(3.0 * BVS / CVS) 01860370 ! 190: IF (AVS + 0.98088E+00) 20070, 10070, 40070 01870370 ! 191: 40070 IF (AVS + 0.98078E+00) 10070, 10070, 20070 01880370 ! 192: 10070 IVPASS = IVPASS + 1 01890370 ! 193: WRITE (NUVI, 80002) IVTNUM 01900370 ! 194: GO TO 0071 01910370 ! 195: 20070 IVFAIL = IVFAIL + 1 01920370 ! 196: RVCORR = -0.98082925301173 01930370 ! 197: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01940370 ! 198: 0071 CONTINUE 01950370 ! 199: CT008* TEST 8 01960370 ! 200: IVTNUM = 8 01970370 ! 201: AVS = ALOG(50.0 / 100.0) 01980370 ! 202: IF (AVS + 0.69318E+00) 20080, 10080, 40080 01990370 ! 203: 40080 IF (AVS + 0.69311E+00) 10080, 10080, 20080 02000370 ! 204: 10080 IVPASS = IVPASS + 1 02010370 ! 205: WRITE (NUVI, 80002) IVTNUM 02020370 ! 206: GO TO 0081 02030370 ! 207: 20080 IVFAIL = IVFAIL + 1 02040370 ! 208: RVCORR = -0.69314718055995 02050370 ! 209: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02060370 ! 210: 0081 CONTINUE 02070370 ! 211: CT009* TEST 9 02080370 ! 212: IVTNUM = 9 02090370 ! 213: BVS = 68.75 02100370 ! 214: AVS = ALOG(BVS * 0.01) 02110370 ! 215: IF (AVS + 0.37471E+00) 20090, 10090, 40090 02120370 ! 216: 40090 IF (AVS + 0.37467E+00) 10090, 10090, 20090 02130370 ! 217: 10090 IVPASS = IVPASS + 1 02140370 ! 218: WRITE (NUVI, 80002) IVTNUM 02150370 ! 219: GO TO 0091 02160370 ! 220: 20090 IVFAIL = IVFAIL + 1 02170370 ! 221: RVCORR = -0.37469344944141 02180370 ! 222: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02190370 ! 223: 0091 CONTINUE 02200370 ! 224: CT010* TEST 10 VALUES CLOSE TO ONE 02210370 ! 225: IVTNUM = 10 02220370 ! 226: AVS = ALOG(0.96875) 02230370 ! 227: IF (AVS + 0.31750E-01) 20100, 10100, 40100 02240370 ! 228: 40100 IF (AVS + 0.31747E-01) 10100, 10100, 20100 02250370 ! 229: 10100 IVPASS = IVPASS + 1 02260370 ! 230: WRITE (NUVI, 80002) IVTNUM 02270370 ! 231: GO TO 0101 02280370 ! 232: 20100 IVFAIL = IVFAIL + 1 02290370 ! 233: RVCORR = -0.03174869831458 02300370 ! 234: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02310370 ! 235: 0101 CONTINUE 02320370 ! 236: CT011* TEST 11 02330370 ! 237: IVTNUM = 11 02340370 ! 238: BVS = 1.015625 02350370 ! 239: AVS = ALOG(BVS) 02360370 ! 240: IF (AVS - 0.15503E-01) 20110, 10110, 40110 02370370 ! 241: 40110 IF (AVS - 0.15505E-01) 10110, 10110, 20110 02380370 ! 242: 10110 IVPASS = IVPASS + 1 02390370 ! 243: WRITE (NUVI, 80002) IVTNUM 02400370 ! 244: GO TO 0111 02410370 ! 245: 20110 IVFAIL = IVFAIL + 1 02420370 ! 246: RVCORR = 0.01550418653597 02430370 ! 247: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02440370 ! 248: 0111 CONTINUE 02450370 ! 249: CT012* TEST 12 VALUES CLOSE TO ZERO 02460370 ! 250: IVTNUM = 12 02470370 ! 251: BVS = 128.0 02480370 ! 252: AVS = ALOG(1.0 / BVS) 02490370 ! 253: IF (AVS + 0.48523E+01) 20120, 10120, 40120 02500370 ! 254: 40120 IF (AVS + 0.48518E+01) 10120, 10120, 20120 02510370 ! 255: 10120 IVPASS = IVPASS + 1 02520370 ! 256: WRITE (NUVI, 80002) IVTNUM 02530370 ! 257: GO TO 0121 02540370 ! 258: 20120 IVFAIL = IVFAIL + 1 02550370 ! 259: RVCORR = -4.85203026391962 02560370 ! 260: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02570370 ! 261: 0121 CONTINUE 02580370 ! 262: CT013* TEST 13 02590370 ! 263: IVTNUM = 13 02600370 ! 264: BVS = 128.0 02610370 ! 265: AVS = ALOG(1.0 / (BVS * 4.0)) 02620370 ! 266: IF (AVS + 0.62386E+01) 20130, 10130, 40130 02630370 ! 267: 40130 IF (AVS + 0.62380E+01) 10130, 10130, 20130 02640370 ! 268: 10130 IVPASS = IVPASS + 1 02650370 ! 269: WRITE (NUVI, 80002) IVTNUM 02660370 ! 270: GO TO 0131 02670370 ! 271: 20130 IVFAIL = IVFAIL + 1 02680370 ! 272: RVCORR = -6.23832462503951 02690370 ! 273: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02700370 ! 274: 0131 CONTINUE 02710370 ! 275: CT014* TEST 14 AN ARGUMENT OF HIGH MAGNITUDE 02720370 ! 276: IVTNUM = 14 02730370 ! 277: BVS = 1.0E+37 02740370 ! 278: AVS = ALOG(BVS) 02750370 ! 279: IF (AVS - 0.85191E+01) 20140, 10140, 40140 02760370 ! 280: 40140 IF (AVS - 0.85200E+02) 10140, 10140, 20140 02770370 ! 281: 10140 IVPASS = IVPASS + 1 02780370 ! 282: WRITE (NUVI, 80002) IVTNUM 02790370 ! 283: GO TO 0141 02800370 ! 284: 20140 IVFAIL = IVFAIL + 1 02810370 ! 285: RVCORR = 85.19564844077969 02820370 ! 286: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02830370 ! 287: 0141 CONTINUE 02840370 ! 288: CT015* TEST 15 AN ARGUMENT OF LOW MAGNITUDE 02850370 ! 289: IVTNUM = 15 02860370 ! 290: BVS = 1.0E-37 02870370 ! 291: AVS = ALOG(BVS) 02880370 ! 292: IF (AVS + 0.85200E+02) 20150, 10150, 40150 02890370 ! 293: 40150 IF (AVS + 0.85191E+02) 10150, 10150, 20150 02900370 ! 294: 10150 IVPASS = IVPASS + 1 02910370 ! 295: WRITE (NUVI, 80002) IVTNUM 02920370 ! 296: GO TO 0151 02930370 ! 297: 20150 IVFAIL = IVFAIL + 1 02940370 ! 298: RVCORR = -85.19564844077969 02950370 ! 299: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02960370 ! 300: 0151 CONTINUE 02970370 ! 301: CT016* TEST 16 02980370 ! 302: IVTNUM = 16 02990370 ! 303: AVS = ALOG(8.0) + ALOG(0.125) 03000370 ! 304: IF (AVS + 0.50000E-04) 20160, 10160, 40160 03010370 ! 305: 40160 IF (AVS - 0.50000E-04) 10160, 10160, 20160 03020370 ! 306: 10160 IVPASS = IVPASS + 1 03030370 ! 307: WRITE (NUVI, 80002) IVTNUM 03040370 ! 308: GO TO 0161 03050370 ! 309: 20160 IVFAIL = IVFAIL + 1 03060370 ! 310: RVCORR = 0.0000000 03070370 ! 311: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 03080370 ! 312: 0161 CONTINUE 03090370 ! 313: C***** 03100370 ! 314: CBB** ********************** BBCSUM0 **********************************03110370 ! 315: C**** WRITE OUT TEST SUMMARY 03120370 ! 316: C**** 03130370 ! 317: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 03140370 ! 318: WRITE (I02, 90004) 03150370 ! 319: WRITE (I02, 90014) 03160370 ! 320: WRITE (I02, 90004) 03170370 ! 321: WRITE (I02, 90020) IVPASS 03180370 ! 322: WRITE (I02, 90022) IVFAIL 03190370 ! 323: WRITE (I02, 90024) IVDELE 03200370 ! 324: WRITE (I02, 90026) IVINSP 03210370 ! 325: WRITE (I02, 90028) IVTOTN, IVTOTL 03220370 ! 326: CBE** ********************** BBCSUM0 **********************************03230370 ! 327: CBB** ********************** BBCFOOT0 **********************************03240370 ! 328: C**** WRITE OUT REPORT FOOTINGS 03250370 ! 329: C**** 03260370 ! 330: WRITE (I02,90016) ZPROG, ZPROG 03270370 ! 331: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 03280370 ! 332: WRITE (I02,90019) 03290370 ! 333: CBE** ********************** BBCFOOT0 **********************************03300370 ! 334: CBB** ********************** BBCFMT0A **********************************03310370 ! 335: C**** FORMATS FOR TEST DETAIL LINES 03320370 ! 336: C**** 03330370 ! 337: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 03340370 ! 338: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 03350370 ! 339: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 03360370 ! 340: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 03370370 ! 341: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 03380370 ! 342: 1I6,/,1H ,15X,10HCORRECT= ,I6) 03390370 ! 343: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03400370 ! 344: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 03410370 ! 345: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03420370 ! 346: 1A21,/,1H ,16X,10HCORRECT= ,A21) 03430370 ! 347: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 03440370 ! 348: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 03450370 ! 349: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 03460370 ! 350: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 03470370 ! 351: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 03480370 ! 352: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 03490370 ! 353: 80050 FORMAT (1H ,48X,A31) 03500370 ! 354: CBE** ********************** BBCFMT0A **********************************03510370 ! 355: CBB** ********************** BBCFMT0B **********************************03520370 ! 356: C**** FORMAT STATEMENTS FOR PAGE HEADERS 03530370 ! 357: C**** 03540370 ! 358: 90002 FORMAT (1H1) 03550370 ! 359: 90004 FORMAT (1H ) 03560370 ! 360: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 03570370 ! 361: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 03580370 ! 362: 90008 FORMAT (1H ,21X,A13,A17) 03590370 ! 363: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 03600370 ! 364: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 03610370 ! 365: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 03620370 ! 366: 1 7X,7HREMARKS,24X) 03630370 ! 367: 90014 FORMAT (1H ,46H----------------------------------------------, 03640370 ! 368: 1 33H---------------------------------) 03650370 ! 369: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 03660370 ! 370: C**** 03670370 ! 371: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 03680370 ! 372: C**** 03690370 ! 373: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 03700370 ! 374: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 03710370 ! 375: 1 A13) 03720370 ! 376: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 03730370 ! 377: C**** 03740370 ! 378: C**** FORMAT STATEMENTS FOR RUN SUMMARY 03750370 ! 379: C**** 03760370 ! 380: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 03770370 ! 381: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 03780370 ! 382: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 03790370 ! 383: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 03800370 ! 384: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 03810370 ! 385: CBE** ********************** BBCFMT0B **********************************03820370 ! 386: C***** 03830370 ! 387: C***** END OF TEST SEGMENT 181 03840370 ! 388: STOP 03850370 ! 389: END 03860370 ! 390: 03870370
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.