![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM368.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 FM368.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***********************************************************************00010368 ! 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 00020368 ! 6: C***** FM368 00030368 ! 7: C***** XSQRT - (175) 00040368 ! 8: C***** 00050368 ! 9: C***********************************************************************00060368 ! 10: C***** GENERAL PURPOSE SUBSET REF 00070368 ! 11: C***** TEST INTRINSIC FUNCTION SQRT 15.3 00080368 ! 12: C***** TABLE 5 00090368 ! 13: C***** 00100368 ! 14: CBB** ********************** BBCCOMNT **********************************00110368 ! 15: C**** 00120368 ! 16: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130368 ! 17: C**** VERSION 2.0 00140368 ! 18: C**** 00150368 ! 19: C**** 00160368 ! 20: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170368 ! 21: C**** GENERAL SERVICES ADMINISTRATION 00180368 ! 22: C**** FEDERAL SOFTWARE TESTING CENTER 00190368 ! 23: C**** 5203 LEESBURG PIKE, SUITE 1100 00200368 ! 24: C**** FALLS CHURCH, VA. 22041 00210368 ! 25: C**** 00220368 ! 26: C**** (703) 756-6153 00230368 ! 27: C**** 00240368 ! 28: CBE** ********************** BBCCOMNT **********************************00250368 ! 29: CBB** ********************** BBCINITA **********************************00260368 ! 30: C**** SPECIFICATION STATEMENTS 00270368 ! 31: C**** 00280368 ! 32: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00290368 ! 33: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00300368 ! 34: CBE** ********************** BBCINITA **********************************00310368 ! 35: CBB** ********************** BBCINITB **********************************00320368 ! 36: C**** INITIALIZE SECTION 00330368 ! 37: DATA ZVERS, ZVERSD, ZDATE 00340368 ! 38: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00350368 ! 39: DATA ZCOMPL, ZNAME, ZTAPE 00360368 ! 40: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00370368 ! 41: DATA ZPROJ, ZTAPED, ZPROG 00380368 ! 42: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00390368 ! 43: DATA REMRKS /' '/ 00400368 ! 44: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00410368 ! 45: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00420368 ! 46: C**** 00430368 ! 47: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00440368 ! 48: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00450368 ! 49: CZ03 ZPROG = 'PROGRAM NAME' 00460368 ! 50: ZDATE = '07-Nov-85 ' *RP ! 51: ZCOMPL = 'CCI 5.2 ' *RP ! 52: ZPROJ = 'TC-85- -410' *RP ! 53: ZNAME = ' ' *RP ! 54: ZTAPE = ' ' *RP ! 55: ZTAPED = '850703 ' *RP ! 56: C 00530368 ! 57: IVPASS = 0 00540368 ! 58: IVFAIL = 0 00550368 ! 59: IVDELE = 0 00560368 ! 60: IVINSP = 0 00570368 ! 61: IVTOTL = 0 00580368 ! 62: IVTOTN = 0 00590368 ! 63: ICZERO = 0 00600368 ! 64: C 00610368 ! 65: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00620368 ! 66: I01 = 05 00630368 ! 67: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00640368 ! 68: I02 = 06 00650368 ! 69: C 00660368 ! 70: I01 = 5 00670368 ! 71: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00680368 ! 72: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00690368 ! 73: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00700368 ! 74: C 00710368 ! 75: I02 = 6 00720368 ! 76: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00730368 ! 77: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00740368 ! 78: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00750368 ! 79: C 00760368 ! 80: CBE** ********************** BBCINITB **********************************00770368 ! 81: NUVI = I02 00780368 ! 82: IVTOTL = 13 00790368 ! 83: ZPROG = 'FM368' 00800368 ! 84: CBB** ********************** BBCHED0A **********************************00810368 ! 85: C**** 00820368 ! 86: C**** WRITE REPORT TITLE 00830368 ! 87: C**** 00840368 ! 88: WRITE (I02, 90002) 00850368 ! 89: WRITE (I02, 90006) 00860368 ! 90: WRITE (I02, 90007) 00870368 ! 91: WRITE (I02, 90008) ZVERS, ZVERSD 00880368 ! 92: WRITE (I02, 90009) ZPROG, ZPROG 00890368 ! 93: WRITE (I02, 90010) ZDATE, ZCOMPL 00900368 ! 94: CBE** ********************** BBCHED0A **********************************00910368 ! 95: C***** 00920368 ! 96: C***** HEADER FOR SEGMENT 175 00930368 ! 97: WRITE(NUVI,17500) 00940368 ! 98: 17500 FORMAT(1H , / 35H XSQRT - (175) INTRINSIC FUNCTIONS// 00950368 ! 99: 1 20H SQRT (SQUARE ROOT)// 00960368 ! 100: 2 20H SUBSET REF. - 15.3) 00970368 ! 101: CBB** ********************** BBCHED0B **********************************00980368 ! 102: C**** WRITE DETAIL REPORT HEADERS 00990368 ! 103: C**** 01000368 ! 104: WRITE (I02,90004) 01010368 ! 105: WRITE (I02,90004) 01020368 ! 106: WRITE (I02,90013) 01030368 ! 107: WRITE (I02,90014) 01040368 ! 108: WRITE (I02,90015) IVTOTL 01050368 ! 109: CBE** ********************** BBCHED0B **********************************01060368 ! 110: C***** 01070368 ! 111: CT001* TEST 1 FIXED POINT OF FUNCTION 01080368 ! 112: IVTNUM = 1 01090368 ! 113: BVS = 0.0 01100368 ! 114: AVS = SQRT(BVS) 01110368 ! 115: IF (AVS + 0.50000E-04) 20010, 10010, 40010 01120368 ! 116: 40010 IF (AVS - 0.50000E-04) 10010, 10010, 20010 01130368 ! 117: 10010 IVPASS = IVPASS + 1 01140368 ! 118: WRITE (NUVI, 80002) IVTNUM 01150368 ! 119: GO TO 0011 01160368 ! 120: 20010 IVFAIL = IVFAIL + 1 01170368 ! 121: RVCORR = 0.00000000000000 01180368 ! 122: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01190368 ! 123: 0011 CONTINUE 01200368 ! 124: CT002* TEST 2 FIXED POINT OF FUNCTION 01210368 ! 125: IVTNUM = 2 01220368 ! 126: AVS = SQRT(1.0) 01230368 ! 127: IF (AVS - 0.99995E+00) 20020, 10020, 40020 01240368 ! 128: 40020 IF (AVS - 0.10001E+01) 10020, 10020, 20020 01250368 ! 129: 10020 IVPASS = IVPASS + 1 01260368 ! 130: WRITE (NUVI, 80002) IVTNUM 01270368 ! 131: GO TO 0021 01280368 ! 132: 20020 IVFAIL = IVFAIL + 1 01290368 ! 133: RVCORR = 1.00000000000000 01300368 ! 134: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01310368 ! 135: 0021 CONTINUE 01320368 ! 136: CT003* TEST 3 01330368 ! 137: IVTNUM = 3 01340368 ! 138: AVS = SQRT(2.0) 01350368 ! 139: IF (AVS - 0.14141E+01) 20030, 10030, 40030 01360368 ! 140: 40030 IF (AVS - 0.14143E+01) 10030, 10030, 20030 01370368 ! 141: 10030 IVPASS = IVPASS + 1 01380368 ! 142: WRITE (NUVI, 80002) IVTNUM 01390368 ! 143: GO TO 0031 01400368 ! 144: 20030 IVFAIL = IVFAIL + 1 01410368 ! 145: RVCORR = 1.41421356237310 01420368 ! 146: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01430368 ! 147: 0031 CONTINUE 01440368 ! 148: CT004* TEST 4 01450368 ! 149: IVTNUM = 4 01460368 ! 150: AVS = SQRT(4.0) 01470368 ! 151: IF (AVS - 0.19999E+01) 20040, 10040, 40040 01480368 ! 152: 40040 IF (AVS - 0.20001E+01) 10040, 10040, 20040 01490368 ! 153: 10040 IVPASS = IVPASS + 1 01500368 ! 154: WRITE (NUVI, 80002) IVTNUM 01510368 ! 155: GO TO 0041 01520368 ! 156: 20040 IVFAIL = IVFAIL + 1 01530368 ! 157: RVCORR = 2.00000000000000 01540368 ! 158: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01550368 ! 159: 0041 CONTINUE 01560368 ! 160: CT005* TEST 5 01570368 ! 161: IVTNUM = 5 01580368 ! 162: AVS = SQRT(15.0) 01590368 ! 163: IF (AVS - 0.38727E+01) 20050, 10050, 40050 01600368 ! 164: 40050 IF (AVS - 0.38732E+01) 10050, 10050, 20050 01610368 ! 165: 10050 IVPASS = IVPASS + 1 01620368 ! 166: WRITE (NUVI, 80002) IVTNUM 01630368 ! 167: GO TO 0051 01640368 ! 168: 20050 IVFAIL = IVFAIL + 1 01650368 ! 169: RVCORR = 3.87298334620742 01660368 ! 170: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01670368 ! 171: 0051 CONTINUE 01680368 ! 172: CT006* TEST 6 01690368 ! 173: IVTNUM = 6 01700368 ! 174: AVS = SQRT(31.0) 01710368 ! 175: IF (AVS - 0.55674E+01) 20060, 10060, 40060 01720368 ! 176: 40060 IF (AVS - 0.55681E+01) 10060, 10060, 20060 01730368 ! 177: 10060 IVPASS = IVPASS + 1 01740368 ! 178: WRITE (NUVI, 80002) IVTNUM 01750368 ! 179: GO TO 0061 01760368 ! 180: 20060 IVFAIL = IVFAIL + 1 01770368 ! 181: RVCORR = 5.56776436283002 01780368 ! 182: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01790368 ! 183: 0061 CONTINUE 01800368 ! 184: CT007* TEST 7 01810368 ! 185: IVTNUM = 7 01820368 ! 186: BVS = 2.0/4.0 01830368 ! 187: AVS = SQRT(BVS) 01840368 ! 188: IF (AVS - 0.70707E+00) 20070, 10070, 40070 01850368 ! 189: 40070 IF (AVS - 0.70715E+00) 10070, 10070, 20070 01860368 ! 190: 10070 IVPASS = IVPASS + 1 01870368 ! 191: WRITE (NUVI, 80002) IVTNUM 01880368 ! 192: GO TO 0071 01890368 ! 193: 20070 IVFAIL = IVFAIL + 1 01900368 ! 194: RVCORR = 0.70710678118655 01910368 ! 195: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01920368 ! 196: 0071 CONTINUE 01930368 ! 197: CT008* TEST 8 01940368 ! 198: IVTNUM = 8 01950368 ! 199: BVS = 25.0 01960368 ! 200: AVS = SQRT(BVS/100.0) 01970368 ! 201: IF (AVS - 0.49997E+00) 20080, 10080, 40080 01980368 ! 202: 40080 IF (AVS - 0.50003E+00) 10080, 10080, 20080 01990368 ! 203: 10080 IVPASS = IVPASS + 1 02000368 ! 204: WRITE (NUVI, 80002) IVTNUM 02010368 ! 205: GO TO 0081 02020368 ! 206: 20080 IVFAIL = IVFAIL + 1 02030368 ! 207: RVCORR = 0.50000000000000 02040368 ! 208: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02050368 ! 209: 0081 CONTINUE 02060368 ! 210: CT009* TEST 9 02070368 ! 211: IVTNUM = 9 02080368 ! 212: BVS = 0.0875 02090368 ! 213: AVS = SQRT(BVS * 10.0) 02100368 ! 214: IF (AVS - 0.93536E+00) 20090, 10090, 40090 02110368 ! 215: 40090 IF (AVS - 0.93546E+00) 10090, 10090, 20090 02120368 ! 216: 10090 IVPASS = IVPASS + 1 02130368 ! 217: WRITE (NUVI, 80002) IVTNUM 02140368 ! 218: GO TO 0091 02150368 ! 219: 20090 IVFAIL = IVFAIL + 1 02160368 ! 220: RVCORR = 0.93541434669349 02170368 ! 221: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02180368 ! 222: 0091 CONTINUE 02190368 ! 223: CT010* TEST 10 02200368 ! 224: IVTNUM = 10 02210368 ! 225: AVS = SQRT(31.0/32.0) 02220368 ! 226: IF (AVS - 0.98420E+00) 20100, 10100, 40100 02230368 ! 227: 40100 IF (AVS - 0.98430E+00) 10100, 10100, 20100 02240368 ! 228: 10100 IVPASS = IVPASS + 1 02250368 ! 229: WRITE (NUVI, 80002) IVTNUM 02260368 ! 230: GO TO 0101 02270368 ! 231: 20100 IVFAIL = IVFAIL + 1 02280368 ! 232: RVCORR = 0.98425098425148 02290368 ! 233: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02300368 ! 234: 0101 CONTINUE 02310368 ! 235: CT011* TEST 11 AN ARGUMENT OF LOW MAGNITUDE 02320368 ! 236: IVTNUM = 11 02330368 ! 237: AVS = SQRT(1.6E-35) 02340368 ! 238: IF (AVS - 0.39998E-17) 20110, 10110, 40110 02350368 ! 239: 40110 IF (AVS - 0.40002E-17) 10110, 10110, 20110 02360368 ! 240: 10110 IVPASS = IVPASS + 1 02370368 ! 241: WRITE (NUVI, 80002) IVTNUM 02380368 ! 242: GO TO 0111 02390368 ! 243: 20110 IVFAIL = IVFAIL + 1 02400368 ! 244: RVCORR = 0.40000000000000E-17 02410368 ! 245: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02420368 ! 246: 0111 CONTINUE 02430368 ! 247: CT012* TEST 12 AN ARGUMENT OF HIGH MAGNITUDE 02440368 ! 248: IVTNUM = 12 02450368 ! 249: AVS = SQRT(1.0E+35) 02460368 ! 250: IF (AVS - 0.31621E+18) 20120, 10120, 40120 02470368 ! 251: 40120 IF (AVS - 0.31625E+18) 10120, 10120, 20120 02480368 ! 252: 10120 IVPASS = IVPASS + 1 02490368 ! 253: WRITE (NUVI, 80002) IVTNUM 02500368 ! 254: GO TO 0121 02510368 ! 255: 20120 IVFAIL = IVFAIL + 1 02520368 ! 256: RVCORR = 0.31622776601684E+18 02530368 ! 257: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02540368 ! 258: 0121 CONTINUE 02550368 ! 259: CT013* TEST 13 02560368 ! 260: IVTNUM = 13 02570368 ! 261: BVS = SQRT(1.6) 02580368 ! 262: AVS = SQRT(0.625) * BVS 02590368 ! 263: IF (AVS - 0.99995E+00) 20130, 10130, 40130 02600368 ! 264: 40130 IF (AVS - 0.10001E+01) 10130, 10130, 20130 02610368 ! 265: 10130 IVPASS = IVPASS + 1 02620368 ! 266: WRITE (NUVI, 80002) IVTNUM 02630368 ! 267: GO TO 0131 02640368 ! 268: 20130 IVFAIL = IVFAIL + 1 02650368 ! 269: RVCORR = 1.0000000 02660368 ! 270: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02670368 ! 271: 0131 CONTINUE 02680368 ! 272: C***** 02690368 ! 273: CBB** ********************** BBCSUM0 **********************************02700368 ! 274: C**** WRITE OUT TEST SUMMARY 02710368 ! 275: C**** 02720368 ! 276: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 02730368 ! 277: WRITE (I02, 90004) 02740368 ! 278: WRITE (I02, 90014) 02750368 ! 279: WRITE (I02, 90004) 02760368 ! 280: WRITE (I02, 90020) IVPASS 02770368 ! 281: WRITE (I02, 90022) IVFAIL 02780368 ! 282: WRITE (I02, 90024) IVDELE 02790368 ! 283: WRITE (I02, 90026) IVINSP 02800368 ! 284: WRITE (I02, 90028) IVTOTN, IVTOTL 02810368 ! 285: CBE** ********************** BBCSUM0 **********************************02820368 ! 286: CBB** ********************** BBCFOOT0 **********************************02830368 ! 287: C**** WRITE OUT REPORT FOOTINGS 02840368 ! 288: C**** 02850368 ! 289: WRITE (I02,90016) ZPROG, ZPROG 02860368 ! 290: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 02870368 ! 291: WRITE (I02,90019) 02880368 ! 292: CBE** ********************** BBCFOOT0 **********************************02890368 ! 293: CBB** ********************** BBCFMT0A **********************************02900368 ! 294: C**** FORMATS FOR TEST DETAIL LINES 02910368 ! 295: C**** 02920368 ! 296: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 02930368 ! 297: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 02940368 ! 298: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 02950368 ! 299: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 02960368 ! 300: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 02970368 ! 301: 1I6,/,1H ,15X,10HCORRECT= ,I6) 02980368 ! 302: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02990368 ! 303: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 03000368 ! 304: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03010368 ! 305: 1A21,/,1H ,16X,10HCORRECT= ,A21) 03020368 ! 306: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 03030368 ! 307: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 03040368 ! 308: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 03050368 ! 309: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 03060368 ! 310: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 03070368 ! 311: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 03080368 ! 312: 80050 FORMAT (1H ,48X,A31) 03090368 ! 313: CBE** ********************** BBCFMT0A **********************************03100368 ! 314: CBB** ********************** BBCFMT0B **********************************03110368 ! 315: C**** FORMAT STATEMENTS FOR PAGE HEADERS 03120368 ! 316: C**** 03130368 ! 317: 90002 FORMAT (1H1) 03140368 ! 318: 90004 FORMAT (1H ) 03150368 ! 319: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 03160368 ! 320: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 03170368 ! 321: 90008 FORMAT (1H ,21X,A13,A17) 03180368 ! 322: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 03190368 ! 323: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 03200368 ! 324: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 03210368 ! 325: 1 7X,7HREMARKS,24X) 03220368 ! 326: 90014 FORMAT (1H ,46H----------------------------------------------, 03230368 ! 327: 1 33H---------------------------------) 03240368 ! 328: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 03250368 ! 329: C**** 03260368 ! 330: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 03270368 ! 331: C**** 03280368 ! 332: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 03290368 ! 333: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 03300368 ! 334: 1 A13) 03310368 ! 335: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 03320368 ! 336: C**** 03330368 ! 337: C**** FORMAT STATEMENTS FOR RUN SUMMARY 03340368 ! 338: C**** 03350368 ! 339: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 03360368 ! 340: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 03370368 ! 341: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 03380368 ! 342: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 03390368 ! 343: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 03400368 ! 344: CBE** ********************** BBCFMT0B **********************************03410368 ! 345: C***** 03420368 ! 346: C***** END OF TEST SEGMENT 175 03430368 ! 347: STOP 03440368 ! 348: END 03450368 ! 349: 03460368
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.