![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM354.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 FM354.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***********************************************************************00010354 ! 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 00020354 ! 6: C***** FM354 XREAL - (152) 00030354 ! 7: C***** 00040354 ! 8: C***********************************************************************00050354 ! 9: C***** GENERAL PURPOSE SUBSET REF00060354 ! 10: C***** TEST INTRINSIC FUNCTIONS FLOAT AND REAL 15.3 00070354 ! 11: C***** (CONVERSION FROM INTEGER TO REAL) (TABLE 5)00080354 ! 12: C***** 00090354 ! 13: CBB** ********************** BBCCOMNT **********************************00100354 ! 14: C**** 00110354 ! 15: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00120354 ! 16: C**** VERSION 2.0 00130354 ! 17: C**** 00140354 ! 18: C**** 00150354 ! 19: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00160354 ! 20: C**** GENERAL SERVICES ADMINISTRATION 00170354 ! 21: C**** FEDERAL SOFTWARE TESTING CENTER 00180354 ! 22: C**** 5203 LEESBURG PIKE, SUITE 1100 00190354 ! 23: C**** FALLS CHURCH, VA. 22041 00200354 ! 24: C**** 00210354 ! 25: C**** (703) 756-6153 00220354 ! 26: C**** 00230354 ! 27: CBE** ********************** BBCCOMNT **********************************00240354 ! 28: CBB** ********************** BBCINITA **********************************00250354 ! 29: C**** SPECIFICATION STATEMENTS 00260354 ! 30: C**** 00270354 ! 31: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00280354 ! 32: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00290354 ! 33: CBE** ********************** BBCINITA **********************************00300354 ! 34: CBB** ********************** BBCINITB **********************************00310354 ! 35: C**** INITIALIZE SECTION 00320354 ! 36: DATA ZVERS, ZVERSD, ZDATE 00330354 ! 37: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00340354 ! 38: DATA ZCOMPL, ZNAME, ZTAPE 00350354 ! 39: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00360354 ! 40: DATA ZPROJ, ZTAPED, ZPROG 00370354 ! 41: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00380354 ! 42: DATA REMRKS /' '/ 00390354 ! 43: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00400354 ! 44: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00410354 ! 45: C**** 00420354 ! 46: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00430354 ! 47: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00440354 ! 48: CZ03 ZPROG = 'PROGRAM NAME' 00450354 ! 49: ZDATE = '07-Nov-85 ' *RP ! 50: ZCOMPL = 'CCI 5.2 ' *RP ! 51: ZPROJ = 'TC-85- -410' *RP ! 52: ZNAME = ' ' *RP ! 53: ZTAPE = ' ' *RP ! 54: ZTAPED = '850703 ' *RP ! 55: C 00520354 ! 56: IVPASS = 0 00530354 ! 57: IVFAIL = 0 00540354 ! 58: IVDELE = 0 00550354 ! 59: IVINSP = 0 00560354 ! 60: IVTOTL = 0 00570354 ! 61: IVTOTN = 0 00580354 ! 62: ICZERO = 0 00590354 ! 63: C 00600354 ! 64: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00610354 ! 65: I01 = 05 00620354 ! 66: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00630354 ! 67: I02 = 06 00640354 ! 68: C 00650354 ! 69: I01 = 5 00660354 ! 70: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00670354 ! 71: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00680354 ! 72: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00690354 ! 73: C 00700354 ! 74: I02 = 6 00710354 ! 75: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00720354 ! 76: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00730354 ! 77: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00740354 ! 78: C 00750354 ! 79: CBE** ********************** BBCINITB **********************************00760354 ! 80: NUVI = I02 00770354 ! 81: IVTOTL = 14 00780354 ! 82: ZPROG = 'FM354' 00790354 ! 83: CBB** ********************** BBCHED0A **********************************00800354 ! 84: C**** 00810354 ! 85: C**** WRITE REPORT TITLE 00820354 ! 86: C**** 00830354 ! 87: WRITE (I02, 90002) 00840354 ! 88: WRITE (I02, 90006) 00850354 ! 89: WRITE (I02, 90007) 00860354 ! 90: WRITE (I02, 90008) ZVERS, ZVERSD 00870354 ! 91: WRITE (I02, 90009) ZPROG, ZPROG 00880354 ! 92: WRITE (I02, 90010) ZDATE, ZCOMPL 00890354 ! 93: CBE** ********************** BBCHED0A **********************************00900354 ! 94: C***** 00910354 ! 95: C***** HEADER FOR SEGMENT 152 00920354 ! 96: WRITE (NUVI,15201) 00930354 ! 97: 15201 FORMAT (1H , // 2X,35HXREAL - (152) INTRINSIC FUNCTIONS--//17X, 00940354 ! 98: 1 29HFLOAT, REAL (TYPE CONVERSION)// 2X, 00950354 ! 99: 2 18HSUBSET REF. - 15.3) 00960354 ! 100: CBB** ********************** BBCHED0B **********************************00970354 ! 101: C**** WRITE DETAIL REPORT HEADERS 00980354 ! 102: C**** 00990354 ! 103: WRITE (I02,90004) 01000354 ! 104: WRITE (I02,90004) 01010354 ! 105: WRITE (I02,90013) 01020354 ! 106: WRITE (I02,90014) 01030354 ! 107: WRITE (I02,90015) IVTOTL 01040354 ! 108: CBE** ********************** BBCHED0B **********************************01050354 ! 109: C***** 01060354 ! 110: C***** TEST OF FLOAT 01070354 ! 111: C***** 01080354 ! 112: WRITE(NUVI, 15204) 01090354 ! 113: 15204 FORMAT (/ 8X, 13HTEST OF FLOAT) 01100354 ! 114: CT001* TEST 1 THE VALUE ZERO 01110354 ! 115: IVTNUM = 1 01120354 ! 116: IBCVI = 0 01130354 ! 117: RBAVS = FLOAT(IBCVI) 01140354 ! 118: IF (RBAVS + 0.00005) 20010, 10010, 40010 01150354 ! 119: 40010 IF (RBAVS - 0.00005) 10010, 10010, 20010 01160354 ! 120: 10010 IVPASS = IVPASS + 1 01170354 ! 121: WRITE (NUVI, 80002) IVTNUM 01180354 ! 122: GO TO 0011 01190354 ! 123: 20010 IVFAIL = IVFAIL + 1 01200354 ! 124: RVCORR = 0.0 01210354 ! 125: WRITE(NUVI, 80012) IVTNUM, RBAVS, RVCORR 01220354 ! 126: 0011 CONTINUE 01230354 ! 127: CT002* TEST 2 A POSITIVE INTEGER 01240354 ! 128: IVTNUM = 2 01250354 ! 129: IBCVI = 3 01260354 ! 130: RBAVS = FLOAT(IBCVI) 01270354 ! 131: IF (RBAVS - 2.9998) 20020, 10020, 40020 01280354 ! 132: 40020 IF (RBAVS - 3.0002) 10020, 10020, 20020 01290354 ! 133: 10020 IVPASS = IVPASS + 1 01300354 ! 134: WRITE (NUVI, 80002) IVTNUM 01310354 ! 135: GO TO 0021 01320354 ! 136: 20020 IVFAIL = IVFAIL + 1 01330354 ! 137: RVCORR = 3.0 01340354 ! 138: WRITE(NUVI, 80012) IVTNUM, RBAVS, RVCORR 01350354 ! 139: 0021 CONTINUE 01360354 ! 140: CT003* TEST 3 A NEGATIVE INTEGER 01370354 ! 141: IVTNUM = 3 01380354 ! 142: IBCVI = -3 01390354 ! 143: RBAVS = FLOAT(IBCVI) 01400354 ! 144: IF (RBAVS + 3.0002) 20030, 10030, 40030 01410354 ! 145: 40030 IF (RBAVS + 2.9998) 10030, 10030, 20030 01420354 ! 146: 10030 IVPASS = IVPASS + 1 01430354 ! 147: WRITE (NUVI, 80002) IVTNUM 01440354 ! 148: GO TO 0031 01450354 ! 149: 20030 IVFAIL = IVFAIL + 1 01460354 ! 150: RVCORR = -3.0 01470354 ! 151: WRITE(NUVI, 80012) IVTNUM, RBAVS, RVCORR 01480354 ! 152: 0031 CONTINUE 01490354 ! 153: CT004* TEST 4 A ZERO PREFIXED WITH A MINUS SIGN 01500354 ! 154: IVTNUM = 4 01510354 ! 155: IBCVI = 0 01520354 ! 156: RBAVS = FLOAT(-IBCVI) 01530354 ! 157: IF (RBAVS + 0.00005) 20040, 10040, 40040 01540354 ! 158: 40040 IF (RBAVS - 0.00005) 10040, 10040, 20040 01550354 ! 159: 10040 IVPASS = IVPASS + 1 01560354 ! 160: WRITE (NUVI, 80002) IVTNUM 01570354 ! 161: GO TO 0041 01580354 ! 162: 20040 IVFAIL = IVFAIL + 1 01590354 ! 163: RVCORR = 0.0 01600354 ! 164: WRITE(NUVI, 80012) IVTNUM, RBAVS, RVCORR 01610354 ! 165: 0041 CONTINUE 01620354 ! 166: CT005* TEST 5 FLOAT USED IN AN ARITHMETIC EXPRESSION 01630354 ! 167: IVTNUM = 5 01640354 ! 168: RBFVS = -3.0 01650354 ! 169: IBCVI = 3 01660354 ! 170: RBAVS = 16.1875 + RBFVS/FLOAT(IBCVI) 01670354 ! 171: IF (RBAVS - 15.186) 20050, 10050, 40050 01680354 ! 172: 40050 IF (RBAVS - 15.189) 10050, 10050, 20050 01690354 ! 173: 10050 IVPASS = IVPASS + 1 01700354 ! 174: WRITE (NUVI, 80002) IVTNUM 01710354 ! 175: GO TO 0051 01720354 ! 176: 20050 IVFAIL = IVFAIL + 1 01730354 ! 177: RVCORR = 15.1875 01740354 ! 178: WRITE(NUVI, 80012) IVTNUM, RBAVS, RVCORR 01750354 ! 179: 0051 CONTINUE 01760354 ! 180: CT006* TEST 6 AN ARITHMETIC EXPRESSION PRESENTED TO FLOAT 01770354 ! 181: IVTNUM = 6 01780354 ! 182: IBAVI = -7 01790354 ! 183: IBBVI = 27 01800354 ! 184: RBAVS = FLOAT(IBAVI - IBBVI * 2) 01810354 ! 185: IF (RBAVS + 61.003) 20060, 10060, 40060 01820354 ! 186: 40060 IF (RBAVS + 60.997) 10060, 10060, 20060 01830354 ! 187: 10060 IVPASS = IVPASS + 1 01840354 ! 188: WRITE (NUVI, 80002) IVTNUM 01850354 ! 189: GO TO 0061 01860354 ! 190: 20060 IVFAIL = IVFAIL + 1 01870354 ! 191: RVCORR = -61.0 01880354 ! 192: WRITE(NUVI, 80012) IVTNUM, RBAVS, RVCORR 01890354 ! 193: 0061 CONTINUE 01900354 ! 194: CT007* TEST 7 COMPARE AUTOMATIC TYPE CONVERSION TO EXPLICIT 01910354 ! 195: IVTNUM = 7 01920354 ! 196: IBAVI = 2 01930354 ! 197: IBBVI = 10 01940354 ! 198: RBAVS = FLOAT(IBBVI ** IBAVI) 01950354 ! 199: IF (RBAVS - 99.995) 20070, 10070, 40070 01960354 ! 200: 40070 IF (RBAVS - 100.01) 10070, 10070, 20070 01970354 ! 201: 10070 IVPASS = IVPASS + 1 01980354 ! 202: WRITE (NUVI, 80002) IVTNUM 01990354 ! 203: GO TO 0071 02000354 ! 204: 20070 IVFAIL = IVFAIL + 1 02010354 ! 205: RVCORR = 100.0 02020354 ! 206: WRITE(NUVI, 80012) IVTNUM, RBAVS, RVCORR 02030354 ! 207: 0071 CONTINUE 02040354 ! 208: C***** 02050354 ! 209: C***** TEST OF REAL 02060354 ! 210: C***** 02070354 ! 211: WRITE(NUVI, 15202) 02080354 ! 212: 15202 FORMAT (/ 08X, 12HTEST OF REAL) 02090354 ! 213: CT008* TEST 8 THE VALUE ZERO 02100354 ! 214: IVTNUM = 8 02110354 ! 215: IBCVI = 0 02120354 ! 216: RBBVS = REAL(IBCVI) 02130354 ! 217: IF (RBBVS + 0.00005) 20080, 10080, 40080 02140354 ! 218: 40080 IF (RBBVS - 0.00005) 10080, 10080, 20080 02150354 ! 219: 10080 IVPASS = IVPASS + 1 02160354 ! 220: WRITE (NUVI, 80002) IVTNUM 02170354 ! 221: GO TO 0081 02180354 ! 222: 20080 IVFAIL = IVFAIL + 1 02190354 ! 223: RVCORR = 0.0 02200354 ! 224: WRITE(NUVI, 80012) IVTNUM, RBBVS, RVCORR 02210354 ! 225: 0081 CONTINUE 02220354 ! 226: CT009* TEST 9 A POSITIVE INTEGER 02230354 ! 227: IVTNUM = 9 02240354 ! 228: IBCVI = 3 02250354 ! 229: RBBVS = REAL(IBCVI) 02260354 ! 230: IF (RBBVS - 2.9998) 20090, 10090, 40090 02270354 ! 231: 40090 IF (RBBVS - 3.0002) 10090, 10090, 20090 02280354 ! 232: 10090 IVPASS = IVPASS + 1 02290354 ! 233: WRITE (NUVI, 80002) IVTNUM 02300354 ! 234: GO TO 0091 02310354 ! 235: 20090 IVFAIL = IVFAIL + 1 02320354 ! 236: RVCORR = 3.0 02330354 ! 237: WRITE(NUVI, 80012) IVTNUM, RBBVS, RVCORR 02340354 ! 238: 0091 CONTINUE 02350354 ! 239: CT010* TEST 10 A NEGATIVE INTEGER 02360354 ! 240: IVTNUM = 10 02370354 ! 241: IBCVI = -3 02380354 ! 242: RBBVS = REAL(IBCVI) 02390354 ! 243: IF (RBBVS + 3.0002) 20100, 10100, 40100 02400354 ! 244: 40100 IF (RBBVS + 2.9998) 10100, 10100, 20100 02410354 ! 245: 10100 IVPASS = IVPASS + 1 02420354 ! 246: WRITE (NUVI, 80002) IVTNUM 02430354 ! 247: GO TO 0101 02440354 ! 248: 20100 IVFAIL = IVFAIL + 1 02450354 ! 249: RVCORR = -3.0 02460354 ! 250: WRITE(NUVI, 80012) IVTNUM, RBBVS, RVCORR 02470354 ! 251: 0101 CONTINUE 02480354 ! 252: CT011* TEST 11 A ZERO PREFIXED WITH A MINUS SIGN 02490354 ! 253: IVTNUM = 11 02500354 ! 254: IBCVI = 0 02510354 ! 255: RBBVS = REAL(-IBCVI) 02520354 ! 256: IF (RBBVS + 0.00005) 20110, 10110, 40110 02530354 ! 257: 40110 IF (RBBVS - 0.00005) 10110, 10110, 20110 02540354 ! 258: 10110 IVPASS = IVPASS + 1 02550354 ! 259: WRITE (NUVI, 80002) IVTNUM 02560354 ! 260: GO TO 0111 02570354 ! 261: 20110 IVFAIL = IVFAIL + 1 02580354 ! 262: RVCORR = 0.0 02590354 ! 263: WRITE(NUVI, 80012) IVTNUM, RBBVS, RVCORR 02600354 ! 264: 0111 CONTINUE 02610354 ! 265: CT012* TEST 12 REAL USED IN AN ARITHMETIC EXPRESSION 02620354 ! 266: IVTNUM = 12 02630354 ! 267: RBFVS = -3.0 02640354 ! 268: IBCVI = 3 02650354 ! 269: RBBVS = 16.1875 + RBFVS/REAL(IBCVI) 02660354 ! 270: IF (RBBVS - 15.186) 20120, 10120, 40120 02670354 ! 271: 40120 IF (RBBVS - 15.189) 10120, 10120, 20120 02680354 ! 272: 10120 IVPASS = IVPASS + 1 02690354 ! 273: WRITE (NUVI, 80002) IVTNUM 02700354 ! 274: GO TO 0121 02710354 ! 275: 20120 IVFAIL = IVFAIL + 1 02720354 ! 276: RVCORR = 15.1875 02730354 ! 277: WRITE(NUVI, 80012) IVTNUM, RBBVS, RVCORR 02740354 ! 278: 0121 CONTINUE 02750354 ! 279: CT013* TEST 13 AN ARITHMETIC EXPRESSION PRESENTED TO REAL 02760354 ! 280: IVTNUM = 13 02770354 ! 281: IBAVI = -7 02780354 ! 282: IBBVI = 27 02790354 ! 283: RBBVS = REAL(IBAVI - IBBVI * 2) 02800354 ! 284: IF (RBBVS + 61.003) 20130, 10130, 40130 02810354 ! 285: 40130 IF (RBBVS + 60.997) 10130, 10130, 20130 02820354 ! 286: 10130 IVPASS = IVPASS + 1 02830354 ! 287: WRITE (NUVI, 80002) IVTNUM 02840354 ! 288: GO TO 0131 02850354 ! 289: 20130 IVFAIL = IVFAIL + 1 02860354 ! 290: RVCORR = 61.0 02870354 ! 291: WRITE(NUVI, 80012) IVTNUM, RBBVS, RVCORR 02880354 ! 292: 0131 CONTINUE 02890354 ! 293: CT014* TEST 14 COMPARE AUTOMATIC TYPE CONVERSION TO EXPLICIT 02900354 ! 294: IVTNUM = 14 02910354 ! 295: IBAVI = 2 02920354 ! 296: IBBVI = 10 02930354 ! 297: RBBVS = REAL(IBBVI ** IBAVI) 02940354 ! 298: IF (RBBVS - 99.995) 20140, 10140, 40140 02950354 ! 299: 40140 IF (RBBVS - 100.01) 10140, 10140, 20140 02960354 ! 300: 10140 IVPASS = IVPASS + 1 02970354 ! 301: WRITE (NUVI, 80002) IVTNUM 02980354 ! 302: GO TO 0141 02990354 ! 303: 20140 IVFAIL = IVFAIL + 1 03000354 ! 304: RVCORR = 100.0 03010354 ! 305: WRITE(NUVI, 80012) IVTNUM, RBBVS, RVCORR 03020354 ! 306: 0141 CONTINUE 03030354 ! 307: CBB** ********************** BBCSUM0 **********************************03040354 ! 308: C**** WRITE OUT TEST SUMMARY 03050354 ! 309: C**** 03060354 ! 310: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 03070354 ! 311: WRITE (I02, 90004) 03080354 ! 312: WRITE (I02, 90014) 03090354 ! 313: WRITE (I02, 90004) 03100354 ! 314: WRITE (I02, 90020) IVPASS 03110354 ! 315: WRITE (I02, 90022) IVFAIL 03120354 ! 316: WRITE (I02, 90024) IVDELE 03130354 ! 317: WRITE (I02, 90026) IVINSP 03140354 ! 318: WRITE (I02, 90028) IVTOTN, IVTOTL 03150354 ! 319: CBE** ********************** BBCSUM0 **********************************03160354 ! 320: CBB** ********************** BBCFOOT0 **********************************03170354 ! 321: C**** WRITE OUT REPORT FOOTINGS 03180354 ! 322: C**** 03190354 ! 323: WRITE (I02,90016) ZPROG, ZPROG 03200354 ! 324: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 03210354 ! 325: WRITE (I02,90019) 03220354 ! 326: CBE** ********************** BBCFOOT0 **********************************03230354 ! 327: CBB** ********************** BBCFMT0A **********************************03240354 ! 328: C**** FORMATS FOR TEST DETAIL LINES 03250354 ! 329: C**** 03260354 ! 330: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 03270354 ! 331: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 03280354 ! 332: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 03290354 ! 333: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 03300354 ! 334: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 03310354 ! 335: 1I6,/,1H ,15X,10HCORRECT= ,I6) 03320354 ! 336: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03330354 ! 337: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 03340354 ! 338: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03350354 ! 339: 1A21,/,1H ,16X,10HCORRECT= ,A21) 03360354 ! 340: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 03370354 ! 341: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 03380354 ! 342: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 03390354 ! 343: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 03400354 ! 344: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 03410354 ! 345: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 03420354 ! 346: 80050 FORMAT (1H ,48X,A31) 03430354 ! 347: CBE** ********************** BBCFMT0A **********************************03440354 ! 348: CBB** ********************** BBCFMT0B **********************************03450354 ! 349: C**** FORMAT STATEMENTS FOR PAGE HEADERS 03460354 ! 350: C**** 03470354 ! 351: 90002 FORMAT (1H1) 03480354 ! 352: 90004 FORMAT (1H ) 03490354 ! 353: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 03500354 ! 354: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 03510354 ! 355: 90008 FORMAT (1H ,21X,A13,A17) 03520354 ! 356: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 03530354 ! 357: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 03540354 ! 358: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 03550354 ! 359: 1 7X,7HREMARKS,24X) 03560354 ! 360: 90014 FORMAT (1H ,46H----------------------------------------------, 03570354 ! 361: 1 33H---------------------------------) 03580354 ! 362: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 03590354 ! 363: C**** 03600354 ! 364: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 03610354 ! 365: C**** 03620354 ! 366: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 03630354 ! 367: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 03640354 ! 368: 1 A13) 03650354 ! 369: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 03660354 ! 370: C**** 03670354 ! 371: C**** FORMAT STATEMENTS FOR RUN SUMMARY 03680354 ! 372: C**** 03690354 ! 373: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 03700354 ! 374: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 03710354 ! 375: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 03720354 ! 376: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 03730354 ! 377: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 03740354 ! 378: CBE** ********************** BBCFMT0B **********************************03750354 ! 379: C***** 03760354 ! 380: C***** END OF TEST SEGMENT 152 03770354 ! 381: STOP 03780354 ! 382: END 03790354 ! 383: 03800354
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.