![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM829.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 FM829.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***********************************************************************00010829 ! 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 00020829 ! 6: C***** FM829 00030829 ! 7: C***** YGEN1 - (206) 00040829 ! 8: C***** 00050829 ! 9: C***********************************************************************00060829 ! 10: C***** TESTING OF GENERIC FUNCTIONS ANS REF 00070829 ! 11: C***** INT, REAL, DBLE, CMPLX 15.3 00080829 ! 12: C***** TABLE 5 00090829 ! 13: CBB** ********************** BBCCOMNT **********************************00100829 ! 14: C**** 00110829 ! 15: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00120829 ! 16: C**** VERSION 2.0 00130829 ! 17: C**** 00140829 ! 18: C**** 00150829 ! 19: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00160829 ! 20: C**** GENERAL SERVICES ADMINISTRATION 00170829 ! 21: C**** FEDERAL SOFTWARE TESTING CENTER 00180829 ! 22: C**** 5203 LEESBURG PIKE, SUITE 1100 00190829 ! 23: C**** FALLS CHURCH, VA. 22041 00200829 ! 24: C**** 00210829 ! 25: C**** (703) 756-6153 00220829 ! 26: C**** 00230829 ! 27: CBE** ********************** BBCCOMNT **********************************00240829 ! 28: C***** 00250829 ! 29: C***** S P E C I F I C A T I O N S SEGMENT 206 00260829 ! 30: DOUBLE PRECISION AVD, BVD, CVD, DVCORR 00270829 ! 31: COMPLEX AVC, BVC, CVC, ZVCORR 00280829 ! 32: REAL R2E(2) 00290829 ! 33: EQUIVALENCE (BVC, R2E) 00300829 ! 34: C***** 00310829 ! 35: CBB** ********************** BBCINITA **********************************00320829 ! 36: C**** SPECIFICATION STATEMENTS 00330829 ! 37: C**** 00340829 ! 38: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00350829 ! 39: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00360829 ! 40: CBE** ********************** BBCINITA **********************************00370829 ! 41: CBB** ********************** BBCINITB **********************************00380829 ! 42: C**** INITIALIZE SECTION 00390829 ! 43: DATA ZVERS, ZVERSD, ZDATE 00400829 ! 44: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00410829 ! 45: DATA ZCOMPL, ZNAME, ZTAPE 00420829 ! 46: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00430829 ! 47: DATA ZPROJ, ZTAPED, ZPROG 00440829 ! 48: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00450829 ! 49: DATA REMRKS /' '/ 00460829 ! 50: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00470829 ! 51: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00480829 ! 52: C**** 00490829 ! 53: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00500829 ! 54: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00510829 ! 55: CZ03 ZPROG = 'PROGRAM NAME' 00520829 ! 56: ZDATE = '07-Nov-85 ' *RP ! 57: ZCOMPL = 'CCI 5.2 ' *RP ! 58: ZPROJ = 'TC-85- -410' *RP ! 59: ZNAME = ' ' *RP ! 60: ZTAPE = ' ' *RP ! 61: ZTAPED = '850703 ' *RP ! 62: C 00590829 ! 63: IVPASS = 0 00600829 ! 64: IVFAIL = 0 00610829 ! 65: IVDELE = 0 00620829 ! 66: IVINSP = 0 00630829 ! 67: IVTOTL = 0 00640829 ! 68: IVTOTN = 0 00650829 ! 69: ICZERO = 0 00660829 ! 70: C 00670829 ! 71: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00680829 ! 72: I01 = 05 00690829 ! 73: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00700829 ! 74: I02 = 06 00710829 ! 75: C 00720829 ! 76: I01 = 5 00730829 ! 77: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00740829 ! 78: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00750829 ! 79: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00760829 ! 80: C 00770829 ! 81: I02 = 6 00780829 ! 82: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00790829 ! 83: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00800829 ! 84: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00810829 ! 85: C 00820829 ! 86: CBE** ********************** BBCINITB **********************************00830829 ! 87: NUVI = I02 00840829 ! 88: IVTOTL = 35 00850829 ! 89: ZPROG = 'FM829' 00860829 ! 90: CBB** ********************** BBCHED0A **********************************00870829 ! 91: C**** 00880829 ! 92: C**** WRITE REPORT TITLE 00890829 ! 93: C**** 00900829 ! 94: WRITE (I02, 90002) 00910829 ! 95: WRITE (I02, 90006) 00920829 ! 96: WRITE (I02, 90007) 00930829 ! 97: WRITE (I02, 90008) ZVERS, ZVERSD 00940829 ! 98: WRITE (I02, 90009) ZPROG, ZPROG 00950829 ! 99: WRITE (I02, 90010) ZDATE, ZCOMPL 00960829 ! 100: CBE** ********************** BBCHED0A **********************************00970829 ! 101: C***** 00980829 ! 102: C***** HEADER FOR SEGMENT 206 00990829 ! 103: WRITE(NUVI,20600) 01000829 ! 104: 20600 FORMAT( 1H , / 35H YGEN1 - (206) GENERIC FUNCTIONS --// 01010829 ! 105: 1 24H INT, REAL, DBLE, CMPLX// 01020829 ! 106: 2 17H ANS REF. - 15.3) 01030829 ! 107: CBB** ********************** BBCHED0B **********************************01040829 ! 108: C**** WRITE DETAIL REPORT HEADERS 01050829 ! 109: C**** 01060829 ! 110: WRITE (I02,90004) 01070829 ! 111: WRITE (I02,90004) 01080829 ! 112: WRITE (I02,90013) 01090829 ! 113: WRITE (I02,90014) 01100829 ! 114: WRITE (I02,90015) IVTOTL 01110829 ! 115: CBE** ********************** BBCHED0B **********************************01120829 ! 116: C***** 01130829 ! 117: CT001* TEST 1 TEST OF INT 01140829 ! 118: C***** WITH INTEGER ARG 01150829 ! 119: IVTNUM = 1 01160829 ! 120: LVI = INT(485) 01170829 ! 121: IF (LVI - 485) 20010, 10010, 20010 01180829 ! 122: 10010 IVPASS = IVPASS + 1 01190829 ! 123: WRITE (NUVI, 80002) IVTNUM 01200829 ! 124: GO TO 0011 01210829 ! 125: 20010 IVFAIL = IVFAIL + 1 01220829 ! 126: IVCORR = 485 01230829 ! 127: WRITE (NUVI, 80010) IVTNUM, LVI, IVCORR 01240829 ! 128: 0011 CONTINUE 01250829 ! 129: CT002* TEST 2 WITH DOUBLE PREC ARG 01260829 ! 130: IVTNUM = 2 01270829 ! 131: LVI = INT(1.375D0) 01280829 ! 132: IF (LVI - 1) 20020, 10020, 20020 01290829 ! 133: 10020 IVPASS = IVPASS + 1 01300829 ! 134: WRITE (NUVI, 80002) IVTNUM 01310829 ! 135: GO TO 0021 01320829 ! 136: 20020 IVFAIL = IVFAIL + 1 01330829 ! 137: IVCORR = 1 01340829 ! 138: WRITE (NUVI, 80010) IVTNUM, LVI, IVCORR 01350829 ! 139: 0021 CONTINUE 01360829 ! 140: CT003* TEST 3 WITH COMPLEX ARG 01370829 ! 141: IVTNUM = 3 01380829 ! 142: LVI = INT((1.24, 5.67)) 01390829 ! 143: IF (LVI - 1) 20030, 10030, 20030 01400829 ! 144: 10030 IVPASS = IVPASS + 1 01410829 ! 145: WRITE (NUVI, 80002) IVTNUM 01420829 ! 146: GO TO 0031 01430829 ! 147: 20030 IVFAIL = IVFAIL + 1 01440829 ! 148: IVCORR = 1 01450829 ! 149: WRITE (NUVI, 80010) IVTNUM, LVI, IVCORR 01460829 ! 150: 0031 CONTINUE 01470829 ! 151: CT004* TEST 4 TEST OF INT AND IFIX 01480829 ! 152: C***** WITH REAL ARGS 01490829 ! 153: IVTNUM = 4 01500829 ! 154: LVI = INT(6.0001) + IFIX(-1.750) 01510829 ! 155: IF (LVI - 5) 20040, 10040, 20040 01520829 ! 156: 10040 IVPASS = IVPASS + 1 01530829 ! 157: WRITE (NUVI, 80002) IVTNUM 01540829 ! 158: GO TO 0041 01550829 ! 159: 20040 IVFAIL = IVFAIL + 1 01560829 ! 160: IVCORR = 5 01570829 ! 161: WRITE (NUVI, 80010) IVTNUM, LVI, IVCORR 01580829 ! 162: 0041 CONTINUE 01590829 ! 163: CT005* TEST 5 TEST OF INT AND IDINT 01600829 ! 164: C***** WITH DOUBLE PREC ARGS 01610829 ! 165: IVTNUM = 5 01620829 ! 166: AVD = -1.11D1 01630829 ! 167: LVI = INT(AVD) * IDINT(3.5D0) 01640829 ! 168: IF (LVI + 33) 20050, 10050, 20050 01650829 ! 169: 10050 IVPASS = IVPASS + 1 01660829 ! 170: WRITE (NUVI, 80002) IVTNUM 01670829 ! 171: GO TO 0051 01680829 ! 172: 20050 IVFAIL = IVFAIL + 1 01690829 ! 173: IVCORR = -33 01700829 ! 174: WRITE (NUVI, 80010) IVTNUM, LVI, IVCORR 01710829 ! 175: 0051 CONTINUE 01720829 ! 176: CT006* TEST 6 INTEGER, REAL, DOUBLE PRECISION, AND COMPLEX 01730829 ! 177: C***** ARGUMENTS 01740829 ! 178: IVTNUM = 6 01750829 ! 179: LVI = INT(-327) + INT(6.75) * INT(123) - INT(6.0001D0) 01760829 ! 180: 1 / IFIX(13.3) + INT((2.4, 3.5)) + IDINT(-3.375D0) 01770829 ! 181: IF (LVI - 410) 20060, 10060, 20060 01780829 ! 182: 10060 IVPASS = IVPASS + 1 01790829 ! 183: WRITE (NUVI, 80002) IVTNUM 01800829 ! 184: GO TO 0061 01810829 ! 185: 20060 IVFAIL = IVFAIL + 1 01820829 ! 186: IVCORR = 410 01830829 ! 187: WRITE (NUVI, 80010) IVTNUM, LVI, IVCORR 01840829 ! 188: 0061 CONTINUE 01850829 ! 189: CT007* TEST 7 TEST OF REAL 01860829 ! 190: C***** WITH REAL ARG 01870829 ! 191: IVTNUM = 7 01880829 ! 192: AVS = -3.0 01890829 ! 193: BVS = REAL(AVS) 01900829 ! 194: IF (BVS + 0.30002E+01) 20070, 10070, 40070 01910829 ! 195: 40070 IF (BVS + 0.29998E+01) 10070, 10070, 20070 01920829 ! 196: 10070 IVPASS = IVPASS + 1 01930829 ! 197: WRITE (NUVI, 80002) IVTNUM 01940829 ! 198: GO TO 0071 01950829 ! 199: 20070 IVFAIL = IVFAIL + 1 01960829 ! 200: RVCORR = -3.0 01970829 ! 201: WRITE (NUVI, 80012) IVTNUM, BVS, RVCORR 01980829 ! 202: 0071 CONTINUE 01990829 ! 203: CT008* TEST 8 WITH DOUBLE PRECISION 02000829 ! 204: IVTNUM = 8 02010829 ! 205: AVD = 0.96875D0 02020829 ! 206: BVS = REAL(AVD) 02030829 ! 207: IF (BVS - 0.96870E+00) 20080, 10080, 40080 02040829 ! 208: 40080 IF (BVS - 0.96880E+00) 10080, 10080, 20080 02050829 ! 209: 10080 IVPASS = IVPASS + 1 02060829 ! 210: WRITE (NUVI, 80002) IVTNUM 02070829 ! 211: GO TO 0081 02080829 ! 212: 20080 IVFAIL = IVFAIL + 1 02090829 ! 213: RVCORR = 0.96875 02100829 ! 214: WRITE (NUVI, 80012) IVTNUM, BVS, RVCORR 02110829 ! 215: 0081 CONTINUE 02120829 ! 216: CT009* TEST 9 WITH COMPLEX 02130829 ! 217: IVTNUM = 9 02140829 ! 218: BVS = REAL((2.5, -3.0)) 02150829 ! 219: IF (BVS - 0.24998E+01) 20090, 10090, 40090 02160829 ! 220: 40090 IF (BVS - 0.25002E+01) 10090, 10090, 20090 02170829 ! 221: 10090 IVPASS = IVPASS + 1 02180829 ! 222: WRITE (NUVI, 80002) IVTNUM 02190829 ! 223: GO TO 0091 02200829 ! 224: 20090 IVFAIL = IVFAIL + 1 02210829 ! 225: RVCORR = 2.5 02220829 ! 226: WRITE (NUVI, 80012) IVTNUM, BVS, RVCORR 02230829 ! 227: 0091 CONTINUE 02240829 ! 228: CT010* TEST 10 TEST OF REAL AND FLOAT 02250829 ! 229: IVTNUM = 10 02260829 ! 230: BVS = REAL(6) + FLOAT(8) 02270829 ! 231: IF (BVS - 0.13999E+02) 20100, 10100, 40100 02280829 ! 232: 40100 IF (BVS - 0.14001E+02) 10100, 10100, 20100 02290829 ! 233: 10100 IVPASS = IVPASS + 1 02300829 ! 234: WRITE (NUVI, 80002) IVTNUM 02310829 ! 235: GO TO 0101 02320829 ! 236: 20100 IVFAIL = IVFAIL + 1 02330829 ! 237: RVCORR = 14.0 02340829 ! 238: WRITE (NUVI, 80012) IVTNUM, BVS, RVCORR 02350829 ! 239: 0101 CONTINUE 02360829 ! 240: CT011* TEST 11 TEST OF REAL AND SNGL 02370829 ! 241: IVTNUM = 11 02380829 ! 242: AVD = 2.5D0 02390829 ! 243: BVS = REAL(AVD) + SNGL(0.35875D2) 02400829 ! 244: IF (BVS - 0.38373E+02) 20110, 10110, 40110 02410829 ! 245: 40110 IF (BVS - 0.38377E+02) 10110, 10110, 20110 02420829 ! 246: 10110 IVPASS = IVPASS + 1 02430829 ! 247: WRITE (NUVI, 80002) IVTNUM 02440829 ! 248: GO TO 0111 02450829 ! 249: 20110 IVFAIL = IVFAIL + 1 02460829 ! 250: RVCORR = 38.375 02470829 ! 251: WRITE (NUVI, 80012) IVTNUM, BVS, RVCORR 02480829 ! 252: 0111 CONTINUE 02490829 ! 253: CT012* TEST 12 TEST OF REAL, FLOAT, AND SNGL 02500829 ! 254: IVTNUM = 12 02510829 ! 255: BVS = REAL(13) + FLOAT(9) * SNGL(0.7625D1) - REAL(2.625D0) + 02520829 ! 256: 1 REAL(3.5) / REAL((2.0, 4.0)) 02530829 ! 257: IF (BVS - 0.80746E+02) 20120, 10120, 40120 02540829 ! 258: 40120 IF (BVS - 0.80754E+02) 10120, 10120, 20120 02550829 ! 259: 10120 IVPASS = IVPASS + 1 02560829 ! 260: WRITE (NUVI, 80002) IVTNUM 02570829 ! 261: GO TO 0121 02580829 ! 262: 20120 IVFAIL = IVFAIL + 1 02590829 ! 263: RVCORR = 80.75 02600829 ! 264: WRITE (NUVI, 80012) IVTNUM, BVS, RVCORR 02610829 ! 265: 0121 CONTINUE 02620829 ! 266: CT013* TEST 13 TEST OF DBLE 02630829 ! 267: C***** WITH INTEGER ARG 02640829 ! 268: IVTNUM = 13 02650829 ! 269: LVI = 9 02660829 ! 270: BVD = DBLE(LVI) 02670829 ! 271: IF (BVD - 0.89995D+01) 20130, 10130, 40130 02680829 ! 272: 40130 IF (BVD - 0.90005D+01) 10130, 10130, 20130 02690829 ! 273: 10130 IVPASS = IVPASS + 1 02700829 ! 274: WRITE (NUVI, 80002) IVTNUM 02710829 ! 275: GO TO 0131 02720829 ! 276: 20130 IVFAIL = IVFAIL + 1 02730829 ! 277: DVCORR = 9.0D0 02740829 ! 278: WRITE (NUVI, 80031) IVTNUM, BVD, DVCORR 02750829 ! 279: 0131 CONTINUE 02760829 ! 280: CT014* TEST 14 WITH REAL ARG 02770829 ! 281: IVTNUM = 14 02780829 ! 282: AVS = 10.5 02790829 ! 283: BVD = DBLE(AVS) 02800829 ! 284: IF (BVD - 0.10499D+02) 20140, 10140, 40140 02810829 ! 285: 40140 IF (BVD - 0.10501D+02) 10140, 10140, 20140 02820829 ! 286: 10140 IVPASS = IVPASS + 1 02830829 ! 287: WRITE (NUVI, 80002) IVTNUM 02840829 ! 288: GO TO 0141 02850829 ! 289: 20140 IVFAIL = IVFAIL + 1 02860829 ! 290: DVCORR = 10.5D0 02870829 ! 291: WRITE (NUVI, 80031) IVTNUM, BVD, DVCORR 02880829 ! 292: 0141 CONTINUE 02890829 ! 293: CT015* TEST 15 WITH DOUBLE PREC ARG 02900829 ! 294: IVTNUM = 15 02910829 ! 295: AVD = 9.9D0 02920829 ! 296: BVD = DBLE(AVD) 02930829 ! 297: IF (BVD - 0.9899999995D+01) 20150, 10150, 40150 02940829 ! 298: 40150 IF (BVD - 0.9900000005D+01) 10150, 10150, 20150 02950829 ! 299: 10150 IVPASS = IVPASS + 1 02960829 ! 300: WRITE (NUVI, 80002) IVTNUM 02970829 ! 301: GO TO 0151 02980829 ! 302: 20150 IVFAIL = IVFAIL + 1 02990829 ! 303: DVCORR = 9.9D0 03000829 ! 304: WRITE (NUVI, 80031) IVTNUM, BVD, DVCORR 03010829 ! 305: 0151 CONTINUE 03020829 ! 306: CT016* TEST 16 WITH COMPLEX ARG 03030829 ! 307: IVTNUM = 16 03040829 ! 308: AVC = (2.5, 5.5) 03050829 ! 309: BVD = DBLE(AVC) 03060829 ! 310: IF (BVD - 0.24998D+01) 20160, 10160, 40160 03070829 ! 311: 40160 IF (BVD - 0.25002D+01) 10160, 10160, 20160 03080829 ! 312: 10160 IVPASS = IVPASS + 1 03090829 ! 313: WRITE (NUVI, 80002) IVTNUM 03100829 ! 314: GO TO 0161 03110829 ! 315: 20160 IVFAIL = IVFAIL + 1 03120829 ! 316: DVCORR = 2.5D0 03130829 ! 317: WRITE (NUVI, 80031) IVTNUM, BVD, DVCORR 03140829 ! 318: 0161 CONTINUE 03150829 ! 319: CT017* TEST 17 TEST OF CMPLX WITH ONE ARG 03160829 ! 320: C***** WITH INTEGER ARG 03170829 ! 321: IVTNUM = 17 03180829 ! 322: BVC = CMPLX(9) 03190829 ! 323: IF (R2E(1) - 0.89995E+01) 20170, 40172, 40171 03200829 ! 324: 40171 IF (R2E(1) - 0.90005E+01) 40172, 40172, 20170 03210829 ! 325: 40172 IF (R2E(2) + 0.50000E-04) 20170, 10170, 40170 03220829 ! 326: 40170 IF (R2E(2) - 0.50000E-04) 10170, 10170, 20170 03230829 ! 327: 10170 IVPASS = IVPASS + 1 03240829 ! 328: WRITE (NUVI, 80002) IVTNUM 03250829 ! 329: GO TO 0171 03260829 ! 330: 20170 IVFAIL = IVFAIL + 1 03270829 ! 331: ZVCORR = (9,0) 03280829 ! 332: WRITE (NUVI, 80045) IVTNUM, BVC, ZVCORR 03290829 ! 333: 0171 CONTINUE 03300829 ! 334: CT018* TEST 18 WITH REAL 03310829 ! 335: IVTNUM = 18 03320829 ! 336: BVC = CMPLX(4.093) 03330829 ! 337: IF (R2E(1) - 0.40928E+01) 20180, 40182, 40181 03340829 ! 338: 40181 IF (R2E(1) - 0.40932E+01) 40182, 40182, 20180 03350829 ! 339: 40182 IF (R2E(2) + 0.50000E-04) 20180, 10180, 40180 03360829 ! 340: 40180 IF (R2E(2) - 0.50000E-04) 10180, 10180, 20180 03370829 ! 341: 10180 IVPASS = IVPASS + 1 03380829 ! 342: WRITE (NUVI, 80002) IVTNUM 03390829 ! 343: GO TO 0181 03400829 ! 344: 20180 IVFAIL = IVFAIL + 1 03410829 ! 345: ZVCORR = (4.093,0.0) 03420829 ! 346: WRITE (NUVI, 80045) IVTNUM, BVC, ZVCORR 03430829 ! 347: 0181 CONTINUE 03440829 ! 348: CT019* TEST 19 WITH DOUBLE PREC ARG 03450829 ! 349: IVTNUM = 19 03460829 ! 350: AVD = 0.375D-3 03470829 ! 351: BVC = CMPLX(AVD) 03480829 ! 352: IF (R2E(1) - 0.37498E-03) 20190, 40192, 40191 03490829 ! 353: 40191 IF (R2E(1) - 0.37502E-03) 40192, 40192, 20190 03500829 ! 354: 40192 IF (R2E(2) + 0.50000E-04) 20190, 10190, 40190 03510829 ! 355: 40190 IF (R2E(2) - 0.50000E-04) 10190, 10190, 20190 03520829 ! 356: 10190 IVPASS = IVPASS + 1 03530829 ! 357: WRITE (NUVI, 80002) IVTNUM 03540829 ! 358: GO TO 0191 03550829 ! 359: 20190 IVFAIL = IVFAIL + 1 03560829 ! 360: ZVCORR = (0.375E-3, 0.0E0) 03570829 ! 361: WRITE (NUVI, 80045) IVTNUM, BVC, ZVCORR 03580829 ! 362: 0191 CONTINUE 03590829 ! 363: CT020* TEST 20 WITH COMPLEX 03600829 ! 364: IVTNUM = 20 03610829 ! 365: AVC = (4.5, 1.2) 03620829 ! 366: BVC = CMPLX(AVC) 03630829 ! 367: IF (R2E(1) - 0.44997E+01) 20200, 40202, 40201 03640829 ! 368: 40201 IF (R2E(1) - 0.45003E+01) 40202, 40202, 20200 03650829 ! 369: 40202 IF (R2E(2) - 0.11999E+01) 20200, 10200, 40200 03660829 ! 370: 40200 IF (R2E(2) - 0.12001E+01) 10200, 10200, 20200 03670829 ! 371: 10200 IVPASS = IVPASS + 1 03680829 ! 372: WRITE (NUVI, 80002) IVTNUM 03690829 ! 373: GO TO 0201 03700829 ! 374: 20200 IVFAIL = IVFAIL + 1 03710829 ! 375: ZVCORR = (4.5, 1.2) 03720829 ! 376: WRITE (NUVI, 80045) IVTNUM, BVC, ZVCORR 03730829 ! 377: 0201 CONTINUE 03740829 ! 378: CT021* TEST 21 TEST OF CMPLX WITH TWO ARGS 03750829 ! 379: C***** WITH INTEGER ARGS 03760829 ! 380: IVTNUM = 21 03770829 ! 381: BVC = CMPLX(3, 1) 03780829 ! 382: IF (R2E(1) - 0.29998E+01) 20210, 40212, 40211 03790829 ! 383: 40211 IF (R2E(1) - 0.30002E+01) 40212, 40212, 20210 03800829 ! 384: 40212 IF (R2E(2) - 0.99995E+00) 20210, 10210, 40210 03810829 ! 385: 40210 IF (R2E(2) - 0.10001E+01) 10210, 10210, 20210 03820829 ! 386: 10210 IVPASS = IVPASS + 1 03830829 ! 387: WRITE (NUVI, 80002) IVTNUM 03840829 ! 388: GO TO 0211 03850829 ! 389: 20210 IVFAIL = IVFAIL + 1 03860829 ! 390: ZVCORR = (3.0, 1.0) 03870829 ! 391: WRITE (NUVI, 80045) IVTNUM, BVC, ZVCORR 03880829 ! 392: 0211 CONTINUE 03890829 ! 393: CT022* TEST 22 WITH REAL ARGS 03900829 ! 394: IVTNUM = 22 03910829 ! 395: BVC = CMPLX(8.34, 634.3) 03920829 ! 396: IF (R2E(1) - 0.83395E+01) 20220, 40222, 40221 03930829 ! 397: 40221 IF (R2E(1) - 0.83405E+01) 40222, 40222, 20220 03940829 ! 398: 40222 IF (R2E(2) - 0.63426E+03) 20220, 10220, 40220 03950829 ! 399: 40220 IF (R2E(2) - 0.63434E+03) 10220, 10220, 20220 03960829 ! 400: 10220 IVPASS = IVPASS + 1 03970829 ! 401: WRITE (NUVI, 80002) IVTNUM 03980829 ! 402: GO TO 0221 03990829 ! 403: 20220 IVFAIL = IVFAIL + 1 04000829 ! 404: ZVCORR = (8.34, 634.3) 04010829 ! 405: WRITE (NUVI, 80045) IVTNUM, BVC, ZVCORR 04020829 ! 406: 0221 CONTINUE 04030829 ! 407: CT023* TEST 23 WITH DOUBLE PREC ARGS 04040829 ! 408: IVTNUM = 23 04050829 ! 409: AVD = 0.96875D0 04060829 ! 410: BVD = 3.5D-1 04070829 ! 411: BVC = CMPLX(AVD, BVD) 04080829 ! 412: IF (R2E(1) - 0.96870E+00) 20230, 40232, 40231 04090829 ! 413: 40231 IF (R2E(1) - 0.96880E+00) 40232, 40232, 20230 04100829 ! 414: 40232 IF (R2E(2) - 0.34998E+00) 20230, 10230, 40230 04110829 ! 415: 40230 IF (R2E(2) - 0.35002E+00) 10230, 10230, 20230 04120829 ! 416: 10230 IVPASS = IVPASS + 1 04130829 ! 417: WRITE (NUVI, 80002) IVTNUM 04140829 ! 418: GO TO 0231 04150829 ! 419: 20230 IVFAIL = IVFAIL + 1 04160829 ! 420: ZVCORR = (0.96875, 0.35) 04170829 ! 421: WRITE (NUVI, 80045) IVTNUM, BVC, ZVCORR 04180829 ! 422: 0231 CONTINUE 04190829 ! 423: CT024* TEST 24 TEST OF INT AND = 04200829 ! 424: C***** WITH REAL EXPR 04210829 ! 425: IVTNUM = 24 04220829 ! 426: CVS = 0.0 04230829 ! 427: CVD = 0.0D0 04240829 ! 428: CVC = (0.0,0.0) 04250829 ! 429: LVI = 0 04260829 ! 430: AVS = 5.0 04270829 ! 431: IVI = 1.0 * 5.0 + 6.0 04280829 ! 432: KVI = LVI + INT(1.0 * AVS + 6.0) 04290829 ! 433: IF (KVI - 11) 20240, 10240, 20240 04300829 ! 434: 10240 IVPASS = IVPASS + 1 04310829 ! 435: WRITE (NUVI, 80002) IVTNUM 04320829 ! 436: GO TO 0241 04330829 ! 437: 20240 IVFAIL = IVFAIL + 1 04340829 ! 438: IVCORR = 11 04350829 ! 439: WRITE (NUVI, 80010) IVTNUM, KVI, IVCORR 04360829 ! 440: 0241 CONTINUE 04370829 ! 441: CT025* TEST 25 WITH DOUBLE PREC EXPR 04380829 ! 442: IVTNUM = 25 04390829 ! 443: AVD = 3.48D0 04400829 ! 444: IVI = 3.48D0 * 47.98D0 04410829 ! 445: KVI = LVI + INT(AVD * 47.98D0) 04420829 ! 446: IF (KVI - 166) 20250, 10250, 20250 04430829 ! 447: 10250 IVPASS = IVPASS + 1 04440829 ! 448: WRITE (NUVI, 80002) IVTNUM 04450829 ! 449: GO TO 0251 04460829 ! 450: 20250 IVFAIL = IVFAIL + 1 04470829 ! 451: IVCORR = 166 04480829 ! 452: WRITE (NUVI, 80010) IVTNUM, KVI, IVCORR 04490829 ! 453: 0251 CONTINUE 04500829 ! 454: CT026* TEST 26 WITH COMPLEX EXPR 04510829 ! 455: IVTNUM = 26 04520829 ! 456: AVC = (3.9, 5.0) 04530829 ! 457: IVI = (3.4, 4.5) + (3.9, 5.0) 04540829 ! 458: KVI = LVI + INT((3.4, 4.5) + AVC) 04550829 ! 459: IF (KVI - 7) 20260, 10260, 20260 04560829 ! 460: 10260 IVPASS = IVPASS + 1 04570829 ! 461: WRITE (NUVI, 80002) IVTNUM 04580829 ! 462: GO TO 0261 04590829 ! 463: 20260 IVFAIL = IVFAIL + 1 04600829 ! 464: IVCORR = 7 04610829 ! 465: WRITE (NUVI, 80010) IVTNUM, KVI, IVCORR 04620829 ! 466: 0261 CONTINUE 04630829 ! 467: CT027* TEST 27 TEST OF REAL AND = 04640829 ! 468: C***** WITH INT EXPR 04650829 ! 469: IVTNUM = 27 04660829 ! 470: IVI = 20 04670829 ! 471: AVS = 20 + 34 / 20 04680829 ! 472: BVS = CVS + REAL(IVI + 34 / IVI) 04690829 ! 473: IF (BVS - 0.20999E+02) 20270, 10270, 40270 04700829 ! 474: 40270 IF (BVS - 0.21001E+02) 10270, 10270, 20270 04710829 ! 475: 10270 IVPASS = IVPASS + 1 04720829 ! 476: WRITE (NUVI, 80002) IVTNUM 04730829 ! 477: GO TO 0271 04740829 ! 478: 20270 IVFAIL = IVFAIL + 1 04750829 ! 479: RVCORR = 21.0 04760829 ! 480: WRITE (NUVI, 80012) IVTNUM, BVS, RVCORR 04770829 ! 481: 0271 CONTINUE 04780829 ! 482: CT028* TEST 28 WITH DOUBLE PREC EXPR 04790829 ! 483: IVTNUM = 28 04800829 ! 484: JVI = 28 04810829 ! 485: AVD = 0.9834D0 04820829 ! 486: AVS = 3.0748D0 / 0.9834D0 04830829 ! 487: BVS = CVS + REAL(3.0748D0 / AVD) 04840829 ! 488: IF (BVS - 0.31265E+01) 20280, 10280, 40280 04850829 ! 489: 40280 IF (BVS - 0.31269E+01) 10280, 10280, 20280 04860829 ! 490: 10280 IVPASS = IVPASS + 1 04870829 ! 491: WRITE (NUVI, 80002) IVTNUM 04880829 ! 492: GO TO 0281 04890829 ! 493: 20280 IVFAIL = IVFAIL + 1 04900829 ! 494: RVCORR = 3.1267033 04910829 ! 495: WRITE (NUVI, 80012) IVTNUM, BVS, RVCORR 04920829 ! 496: 0281 CONTINUE 04930829 ! 497: CT029* TEST 29 WITH COMPLEX 04940829 ! 498: IVTNUM = 29 04950829 ! 499: JVI = 29 04960829 ! 500: AVC = (1.0, 384.9) 04970829 ! 501: AVS = (3.495, 98.734) * (1.0, 384.9) 04980829 ! 502: BVS = CVS + REAL((3.495, 98.734) * AVC) 04990829 ! 503: IF (BVS + 0.38001E+05) 20290, 10290, 40290 05000829 ! 504: 40290 IF (BVS + 0.37997E+05) 10290, 10290, 20290 05010829 ! 505: 10290 IVPASS = IVPASS + 1 05020829 ! 506: WRITE (NUVI, 80002) IVTNUM 05030829 ! 507: GO TO 0291 05040829 ! 508: 20290 IVFAIL = IVFAIL + 1 05050829 ! 509: RVCORR = -37999.222 05060829 ! 510: WRITE (NUVI, 80012) IVTNUM, BVS, RVCORR 05070829 ! 511: 0291 CONTINUE 05080829 ! 512: CT030* TEST 30 TEST OF DBLE AND = 05090829 ! 513: C***** WITH INTEGER EXPR 05100829 ! 514: IVTNUM = 30 05110829 ! 515: JVI = 30 05120829 ! 516: IVI = 5 05130829 ! 517: AVD = 1 * 5 + 6 05140829 ! 518: BVD = CVD + DBLE(1 * IVI + 6) 05150829 ! 519: IF (BVD - 0.10999D+02) 20300, 10300, 40300 05160829 ! 520: 40300 IF (BVD - 0.11001D+02) 10300, 10300, 20300 05170829 ! 521: 10300 IVPASS = IVPASS + 1 05180829 ! 522: WRITE (NUVI, 80002) IVTNUM 05190829 ! 523: GO TO 0301 05200829 ! 524: 20300 IVFAIL = IVFAIL + 1 05210829 ! 525: DVCORR = .11000000D+02 05220829 ! 526: WRITE (NUVI, 80031) IVTNUM, BVD, DVCORR 05230829 ! 527: 0301 CONTINUE 05240829 ! 528: CT031* TEST 31 WITH REAL EXPR 05250829 ! 529: IVTNUM = 31 05260829 ! 530: JVI = 31 05270829 ! 531: AVS = -4.5 05280829 ! 532: AVD = 1.3 / (-4.5) 05290829 ! 533: BVD = CVD + DBLE(1.3 / AVS) 05300829 ! 534: IF (BVD + 0.28891D+00) 20310, 10310, 40310 05310829 ! 535: 40310 IF (BVD + 0.28887D+00) 10310, 10310, 20310 05320829 ! 536: 10310 IVPASS = IVPASS + 1 05330829 ! 537: WRITE (NUVI, 80002) IVTNUM 05340829 ! 538: GO TO 0311 05350829 ! 539: 20310 IVFAIL = IVFAIL + 1 05360829 ! 540: DVCORR = -0.288888888888888889D+00 05370829 ! 541: WRITE (NUVI, 80031) IVTNUM, BVD, DVCORR 05380829 ! 542: 0311 CONTINUE 05390829 ! 543: CT032* TEST 32 WITH COMPLEX EXPR 05400829 ! 544: IVTNUM = 32 05410829 ! 545: JVI = 32 05420829 ! 546: AVC = (3.9, 5.0) 05430829 ! 547: AVD = (3.4, 4.5) + (3.9, 5.0) 05440829 ! 548: BVD = CVD + DBLE((3.4, 4.5) + AVC) 05450829 ! 549: IF (BVD - 0.72996D+01) 20320, 10320, 40320 05460829 ! 550: 40320 IF (BVD - 0.73004D+01) 10320, 10320, 20320 05470829 ! 551: 10320 IVPASS = IVPASS + 1 05480829 ! 552: WRITE (NUVI, 80002) IVTNUM 05490829 ! 553: GO TO 0321 05500829 ! 554: 20320 IVFAIL = IVFAIL + 1 05510829 ! 555: DVCORR = .73000000D+01 05520829 ! 556: WRITE (NUVI, 80031) IVTNUM, BVD, DVCORR 05530829 ! 557: 0321 CONTINUE 05540829 ! 558: CT033* TEST 33 TEST OF CMPLX AND = 05550829 ! 559: C***** WITH INTEGER EXPR 05560829 ! 560: IVTNUM = 33 05570829 ! 561: JVI = 33 05580829 ! 562: IVI = 673 05590829 ! 563: AVC = 394 - 673 05600829 ! 564: BVC = CVC + CMPLX(394 - IVI) 05610829 ! 565: IF (R2E(1) + 0.27902E+03) 20330, 40332, 40331 05620829 ! 566: 40331 IF (R2E(1) + 0.27898E+03) 40332, 40332, 20330 05630829 ! 567: 40332 IF (R2E(2) + 0.50000E-04) 20330, 10330, 40330 05640829 ! 568: 40330 IF (R2E(2) - 0.50000E-04) 10330, 10330, 20330 05650829 ! 569: 10330 IVPASS = IVPASS + 1 05660829 ! 570: WRITE (NUVI, 80002) IVTNUM 05670829 ! 571: GO TO 0331 05680829 ! 572: 20330 IVFAIL = IVFAIL + 1 05690829 ! 573: ZVCORR = (-279.00000, .00000000) 05700829 ! 574: WRITE (NUVI, 80045) IVTNUM, BVC, ZVCORR 05710829 ! 575: 0331 CONTINUE 05720829 ! 576: CT034* TEST 34 WITH REAL EXPR 05730829 ! 577: IVTNUM = 34 05740829 ! 578: JVI = 34 05750829 ! 579: AVS = 3.48 05760829 ! 580: AVC = 3.48 * 47.98 05770829 ! 581: BVC = CVC + CMPLX(AVS * 47.98) 05780829 ! 582: IF (R2E(1) - 0.16696E+03) 20340, 40342, 40341 05790829 ! 583: 40341 IF (R2E(1) - 0.16698E+03) 40342, 40342, 20340 05800829 ! 584: 40342 IF (R2E(2) + 0.50000E-04) 20340, 10340, 40340 05810829 ! 585: 40340 IF (R2E(2) - 0.50000E-04) 10340, 10340, 20340 05820829 ! 586: 10340 IVPASS = IVPASS + 1 05830829 ! 587: WRITE (NUVI, 80002) IVTNUM 05840829 ! 588: GO TO 0341 05850829 ! 589: 20340 IVFAIL = IVFAIL + 1 05860829 ! 590: ZVCORR = (166.97040, .00000000) 05870829 ! 591: WRITE (NUVI, 80045) IVTNUM, BVC, ZVCORR 05880829 ! 592: 0341 CONTINUE 05890829 ! 593: CT035* TEST 35 05900829 ! 594: IVTNUM = 35 05910829 ! 595: JVI = 35 05920829 ! 596: AVD = 0.94D1 05930829 ! 597: AVC = 3.0283D3 / 0.94D1 05940829 ! 598: BVC = CVC + CMPLX(3.0283D3 / AVD) 05950829 ! 599: IF (R2E(1) - 0.32214E+03) 20350, 40352, 40351 05960829 ! 600: 40351 IF (R2E(1) - 0.32218E+03) 40352, 40352, 20350 05970829 ! 601: 40352 IF (R2E(2) + 0.50000E-04) 20350, 10350, 40350 05980829 ! 602: 40350 IF (R2E(2) - 0.50000E-04) 10350, 10350, 20350 05990829 ! 603: 10350 IVPASS = IVPASS + 1 06000829 ! 604: WRITE (NUVI, 80002) IVTNUM 06010829 ! 605: GO TO 0351 06020829 ! 606: 20350 IVFAIL = IVFAIL + 1 06030829 ! 607: ZVCORR = (322.15957, .000000000) 06040829 ! 608: WRITE (NUVI, 80045) IVTNUM, BVC, ZVCORR 06050829 ! 609: 0351 CONTINUE 06060829 ! 610: C***** 06070829 ! 611: CBB** ********************** BBCSUM0 **********************************06080829 ! 612: C**** WRITE OUT TEST SUMMARY 06090829 ! 613: C**** 06100829 ! 614: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 06110829 ! 615: WRITE (I02, 90004) 06120829 ! 616: WRITE (I02, 90014) 06130829 ! 617: WRITE (I02, 90004) 06140829 ! 618: WRITE (I02, 90020) IVPASS 06150829 ! 619: WRITE (I02, 90022) IVFAIL 06160829 ! 620: WRITE (I02, 90024) IVDELE 06170829 ! 621: WRITE (I02, 90026) IVINSP 06180829 ! 622: WRITE (I02, 90028) IVTOTN, IVTOTL 06190829 ! 623: CBE** ********************** BBCSUM0 **********************************06200829 ! 624: CBB** ********************** BBCFOOT0 **********************************06210829 ! 625: C**** WRITE OUT REPORT FOOTINGS 06220829 ! 626: C**** 06230829 ! 627: WRITE (I02,90016) ZPROG, ZPROG 06240829 ! 628: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 06250829 ! 629: WRITE (I02,90019) 06260829 ! 630: CBE** ********************** BBCFOOT0 **********************************06270829 ! 631: CBB** ********************** BBCFMT0A **********************************06280829 ! 632: C**** FORMATS FOR TEST DETAIL LINES 06290829 ! 633: C**** 06300829 ! 634: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 06310829 ! 635: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 06320829 ! 636: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 06330829 ! 637: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 06340829 ! 638: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 06350829 ! 639: 1I6,/,1H ,15X,10HCORRECT= ,I6) 06360829 ! 640: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 06370829 ! 641: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 06380829 ! 642: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 06390829 ! 643: 1A21,/,1H ,16X,10HCORRECT= ,A21) 06400829 ! 644: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 06410829 ! 645: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 06420829 ! 646: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 06430829 ! 647: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 06440829 ! 648: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 06450829 ! 649: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 06460829 ! 650: 80050 FORMAT (1H ,48X,A31) 06470829 ! 651: CBE** ********************** BBCFMT0A **********************************06480829 ! 652: CBB** ********************** BBCFMAT1 **********************************06490829 ! 653: C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 06500829 ! 654: C**** 06510829 ! 655: 80031 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 06520829 ! 656: 1D17.10,/,1H ,16X,10HCORRECT= ,D17.10) 06530829 ! 657: 80033 FORMAT (1H ,16X,10HCOMPUTED= ,D17.10,10X,A31) 06540829 ! 658: 80035 FORMAT (1H ,16X,10HCORRECT= ,D17.10,10X,A31) 06550829 ! 659: 80037 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 06560829 ! 660: 80039 FORMAT (1H ,16X,10HCORRECT= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 06570829 ! 661: 80041 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 06580829 ! 662: 80043 FORMAT (1H ,16X,10HCORRECT= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 06590829 ! 663: 80045 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 06600829 ! 664: 11H(,F12.5,2H, ,F12.5,1H)/,1H ,16X,10HCORRECT= , 06610829 ! 665: 21H(,F12.5,2H, ,F12.5,1H)) 06620829 ! 666: CBE** ********************** BBCFMAT1 **********************************06630829 ! 667: CBB** ********************** BBCFMT0B **********************************06640829 ! 668: C**** FORMAT STATEMENTS FOR PAGE HEADERS 06650829 ! 669: C**** 06660829 ! 670: 90002 FORMAT (1H1) 06670829 ! 671: 90004 FORMAT (1H ) 06680829 ! 672: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 06690829 ! 673: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 06700829 ! 674: 90008 FORMAT (1H ,21X,A13,A17) 06710829 ! 675: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 06720829 ! 676: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 06730829 ! 677: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 06740829 ! 678: 1 7X,7HREMARKS,24X) 06750829 ! 679: 90014 FORMAT (1H ,46H----------------------------------------------, 06760829 ! 680: 1 33H---------------------------------) 06770829 ! 681: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 06780829 ! 682: C**** 06790829 ! 683: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 06800829 ! 684: C**** 06810829 ! 685: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 06820829 ! 686: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 06830829 ! 687: 1 A13) 06840829 ! 688: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 06850829 ! 689: C**** 06860829 ! 690: C**** FORMAT STATEMENTS FOR RUN SUMMARY 06870829 ! 691: C**** 06880829 ! 692: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 06890829 ! 693: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 06900829 ! 694: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 06910829 ! 695: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 06920829 ! 696: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 06930829 ! 697: CBE** ********************** BBCFMT0B **********************************06940829 ! 698: C***** 06950829 ! 699: C***** END OF TEST SEGMENT 206 06960829 ! 700: STOP 06970829 ! 701: END 06980829
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.