![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM506.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 FM506.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***********************************************************************00010506 ! 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 00020506 ! 6: C***** FM506 00030506 ! 7: C***** BLKD3 - (262) 00040506 ! 8: C***** USES BLOCK DATA SUBPROGRAM AN507 AND SUBROUTINE SN508 00050506 ! 9: C***********************************************************************00060506 ! 10: C***** TESTING OF BLOCK DATA SUBPROGRAMS ANS REF 00070506 ! 11: C***** VARYING CHARACTER VARIABLE LENGTHS 16 00080506 ! 12: C***** THIS SEGMENT USES SEGMENTS 704 AND 705, BLOCK DATA PROGRAM 00090506 ! 13: C***** AN507 AND SUBROUTINE SN508 00100506 ! 14: C***** 00110506 ! 15: CBB** ********************** BBCCOMNT **********************************00120506 ! 16: C**** 00130506 ! 17: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00140506 ! 18: C**** VERSION 2.0 00150506 ! 19: C**** 00160506 ! 20: C**** 00170506 ! 21: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00180506 ! 22: C**** GENERAL SERVICES ADMINISTRATION 00190506 ! 23: C**** FEDERAL SOFTWARE TESTING CENTER 00200506 ! 24: C**** 5203 LEESBURG PIKE, SUITE 1100 00210506 ! 25: C**** FALLS CHURCH, VA. 22041 00220506 ! 26: C**** 00230506 ! 27: C**** (703) 756-6153 00240506 ! 28: C**** 00250506 ! 29: CBE** ********************** BBCCOMNT **********************************00260506 ! 30: C***** 00270506 ! 31: C***** S P E C I F I C A T I O N S SEGMENT 262 00280506 ! 32: C***** 00290506 ! 33: C***** CHARACTER*3 C3XVK, F3XVK 00300506 ! 34: C***** CHARACTER*2 D2XVK 00310506 ! 35: C***** CHARACTER*5 E5XVK 00320506 ! 36: C***** COMMON /BLK8/ C3XVK, D2XVK, E5XVK, F3XVK 00330506 ! 37: C***** 00340506 ! 38: NUVI = 4 00350506 ! 39: C***** 00360506 ! 40: CALL SN508(NUVI) 00370506 ! 41: C***** 00380506 ! 42: C***** END OF TEST SEGMENT 262 00390506 ! 43: STOP 00400506 ! 44: END 00410506 ! 45: C***********************************************************************00010507 ! 46: C DATE***82/08/02*18.33.46 ! 47: C OWNER PRE/850703/TC-85- -410/ /FSTC/278FCVS*F78UBP20/ ! 48: C AUDIT FCVS78 V2.0 ! 49: C***** FORTRAN 77 00020507 ! 50: C***** FM507 BDS3 - (704) 00030507 ! 51: C***** BLOCK DATA SUBPROGRAM AN507 USED BY FM506 00040507 ! 52: C***********************************************************************00050507 ! 53: C***** 00060507 ! 54: C***** GENERAL PURPOSE 00070507 ! 55: C***** THIS SEGMENT CONTAINS A BLOCK DATA SUBPROGRAM THAT IS 00080507 ! 56: C***** TO BE RUN WITH TEST SEGMENT FM506 (262) 00090507 ! 57: C***** THIS SEGMENT WILL TEST CHARACTER VARIABLES WITH VARYING 00100507 ! 58: C***** LENGHTS IN COMMON AREAS 00110507 ! 59: C***** 00120507 ! 60: CBB** ********************** BBCCOMNT **********************************00130507 ! 61: C**** 00140507 ! 62: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00150507 ! 63: C**** VERSION 2.0 00160507 ! 64: C**** 00170507 ! 65: C**** 00180507 ! 66: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00190507 ! 67: C**** GENERAL SERVICES ADMINISTRATION 00200507 ! 68: C**** FEDERAL SOFTWARE TESTING CENTER 00210507 ! 69: C**** 5203 LEESBURG PIKE, SUITE 1100 00220507 ! 70: C**** FALLS CHURCH, VA. 22041 00230507 ! 71: C**** 00240507 ! 72: C**** (703) 756-6153 00250507 ! 73: C**** 00260507 ! 74: CBE** ********************** BBCCOMNT **********************************00270507 ! 75: BLOCK DATA AN507 00280507 ! 76: C***** 00290507 ! 77: CHARACTER*3 C3XVK, F3XVK 00300507 ! 78: CHARACTER*2 D2XVK 00310507 ! 79: CHARACTER*5 E5XVK 00320507 ! 80: COMMON /BLK8/ C3XVK, D2XVK, E5XVK, F3XVK 00330507 ! 81: DATA C3XVK, D2XVK, E5XVK, F3XVK /'123', 'GH', 'LONGS', 'END'/ 00340507 ! 82: C***** 00350507 ! 83: END 00360507 ! 84: C***********************************************************************00010508 ! 85: C DATE***82/08/02*18.33.46 ! 86: C OWNER PRE/850703/TC-85- -410/ /FSTC/278FCVS*F78UBP20/ ! 87: C AUDIT FCVS78 V2.0 ! 88: C***** FORTRAN 77 00020508 ! 89: C***** FM508 BLKD3Q - (705) 00030508 ! 90: C***** THIS SUBROUTINE IS CALLED BY FM506 00040508 ! 91: C***********************************************************************00050508 ! 92: C***** 00060508 ! 93: C***** GENERAL PURPOSE 00070508 ! 94: C***** THIS SEGMENT IS TO BE RUN WITH TEST SEGMENT 262 00080508 ! 95: C***** THIS SEGMENT CONTAINS A SUBROUTINE THAT CHECKS TO SEE IF 00090508 ! 96: C***** IF THE BLOCK DATA PROGRAM CORRECTLY INITIALIZED CHARACTER 00100508 ! 97: C***** VARIABLES INTERMIXED WITH DIFFERENT LENGTHS 00110508 ! 98: C***** 00120508 ! 99: SUBROUTINE SN508 (NWVI) 00130508 ! 100: C***** 00140508 ! 101: CBB** ********************** BBCCOMNT **********************************00150508 ! 102: C**** 00160508 ! 103: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00170508 ! 104: C**** VERSION 2.0 00180508 ! 105: C**** 00190508 ! 106: C**** 00200508 ! 107: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00210508 ! 108: C**** GENERAL SERVICES ADMINISTRATION 00220508 ! 109: C**** FEDERAL SOFTWARE TESTING CENTER 00230508 ! 110: C**** 5203 LEESBURG PIKE, SUITE 1100 00240508 ! 111: C**** FALLS CHURCH, VA. 22041 00250508 ! 112: C**** 00260508 ! 113: C**** (703) 756-6153 00270508 ! 114: C**** 00280508 ! 115: CBE** ********************** BBCCOMNT **********************************00290508 ! 116: CHARACTER*3 C3XVK, F3XVK 00300508 ! 117: CHARACTER*2 D2XVK 00310508 ! 118: CHARACTER*5 E5XVK, CVCORR 00320508 ! 119: COMMON /BLK8/ C3XVK, D2XVK, E5XVK, F3XVK 00330508 ! 120: CBB** ********************** BBCINITA **********************************00340508 ! 121: C**** SPECIFICATION STATEMENTS 00350508 ! 122: C**** 00360508 ! 123: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00370508 ! 124: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00380508 ! 125: CBE** ********************** BBCINITA **********************************00390508 ! 126: CBB** ********************** BBCINITB **********************************00400508 ! 127: C**** INITIALIZE SECTION 00410508 ! 128: DATA ZVERS, ZVERSD, ZDATE 00420508 ! 129: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00430508 ! 130: DATA ZCOMPL, ZNAME, ZTAPE 00440508 ! 131: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00450508 ! 132: DATA ZPROJ, ZTAPED, ZPROG 00460508 ! 133: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00470508 ! 134: DATA REMRKS /' '/ 00480508 ! 135: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00490508 ! 136: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00500508 ! 137: C**** 00510508 ! 138: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00520508 ! 139: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00530508 ! 140: CZ03 ZPROG = 'PROGRAM NAME' 00540508 ! 141: ZDATE = '07-Nov-85 ' *RP ! 142: ZCOMPL = 'CCI 5.2 ' *RP ! 143: ZPROJ = 'TC-85- -410' *RP ! 144: ZNAME = ' ' *RP ! 145: ZTAPE = ' ' *RP ! 146: ZTAPED = '850703 ' *RP ! 147: C 00610508 ! 148: IVPASS = 0 00620508 ! 149: IVFAIL = 0 00630508 ! 150: IVDELE = 0 00640508 ! 151: IVINSP = 0 00650508 ! 152: IVTOTL = 0 00660508 ! 153: IVTOTN = 0 00670508 ! 154: ICZERO = 0 00680508 ! 155: C 00690508 ! 156: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00700508 ! 157: I01 = 05 00710508 ! 158: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00720508 ! 159: I02 = 06 00730508 ! 160: C 00740508 ! 161: I01 = 5 00750508 ! 162: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00760508 ! 163: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00770508 ! 164: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00780508 ! 165: C 00790508 ! 166: I02 = 6 00800508 ! 167: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00810508 ! 168: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00820508 ! 169: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00830508 ! 170: C 00840508 ! 171: CBE** ********************** BBCINITB **********************************00850508 ! 172: NUVI = I02 00860508 ! 173: IVTOTL = 4 00870508 ! 174: ZPROG = 'FM506' 00880508 ! 175: CBB** ********************** BBCHED0A **********************************00890508 ! 176: C**** 00900508 ! 177: C**** WRITE REPORT TITLE 00910508 ! 178: C**** 00920508 ! 179: WRITE (I02, 90002) 00930508 ! 180: WRITE (I02, 90006) 00940508 ! 181: WRITE (I02, 90007) 00950508 ! 182: WRITE (I02, 90008) ZVERS, ZVERSD 00960508 ! 183: WRITE (I02, 90009) ZPROG, ZPROG 00970508 ! 184: WRITE (I02, 90010) ZDATE, ZCOMPL 00980508 ! 185: CBE** ********************** BBCHED0A **********************************00990508 ! 186: C***** 01000508 ! 187: WRITE(NUVI,26200) 01010508 ! 188: 26200 FORMAT( 1H , / 39H BLKD3 - (262) BLOCK DATA SUBPROGRAM --// 01020508 ! 189: 1 36H VARYING CHARACTER VARIABLE LENGTHS// 01030508 ! 190: 2 15H ANS REF. - 16) 01040508 ! 191: CBB** ********************** BBCHED0B **********************************01050508 ! 192: C**** WRITE DETAIL REPORT HEADERS 01060508 ! 193: C**** 01070508 ! 194: WRITE (I02,90004) 01080508 ! 195: WRITE (I02,90004) 01090508 ! 196: WRITE (I02,90013) 01100508 ! 197: WRITE (I02,90014) 01110508 ! 198: WRITE (I02,90015) IVTOTL 01120508 ! 199: CBE** ********************** BBCHED0B **********************************01130508 ! 200: C***** 01140508 ! 201: CT001* TEST 1 3 CHARACTER VARIABLE 01150508 ! 202: IVTNUM = 1 01160508 ! 203: IVCOMP = 0 01170508 ! 204: IF (C3XVK.EQ.'123') IVCOMP = 1 01180508 ! 205: IF (IVCOMP - 1) 20010, 10010, 20010 01190508 ! 206: 10010 IVPASS = IVPASS + 1 01200508 ! 207: WRITE (NUVI, 80002) IVTNUM 01210508 ! 208: GO TO 0011 01220508 ! 209: 20010 IVFAIL = IVFAIL + 1 01230508 ! 210: CVCORR = '123' 01240508 ! 211: WRITE (NUVI, 80018) IVTNUM, C3XVK, CVCORR 01250508 ! 212: 0011 CONTINUE 01260508 ! 213: CT002* TEST 2 2 CHARACTER VARIABLE 01270508 ! 214: IVTNUM = 2 01280508 ! 215: IVCOMP = 0 01290508 ! 216: IF (D2XVK.EQ.'GH') IVCOMP = 1 01300508 ! 217: IF (IVCOMP - 1) 20020, 10020, 20020 01310508 ! 218: 10020 IVPASS = IVPASS + 1 01320508 ! 219: WRITE (NUVI, 80002) IVTNUM 01330508 ! 220: GO TO 0021 01340508 ! 221: 20020 IVFAIL = IVFAIL + 1 01350508 ! 222: CVCORR = 'GH' 01360508 ! 223: WRITE (NUVI, 80018) IVTNUM, D2XVK, CVCORR 01370508 ! 224: 0021 CONTINUE 01380508 ! 225: CT003* TEST 3 5 CHARACTER VARIABLE 01390508 ! 226: IVTNUM = 3 01400508 ! 227: IVCOMP = 0 01410508 ! 228: IF (E5XVK.EQ.'LONGS') IVCOMP = 1 01420508 ! 229: IF (IVCOMP - 1) 20030, 10030, 20030 01430508 ! 230: 10030 IVPASS = IVPASS + 1 01440508 ! 231: WRITE (NUVI, 80002) IVTNUM 01450508 ! 232: GO TO 0031 01460508 ! 233: 20030 IVFAIL = IVFAIL + 1 01470508 ! 234: CVCORR = 'LONGS' 01480508 ! 235: WRITE (NUVI, 80018) IVTNUM, E5XVK, CVCORR 01490508 ! 236: 0031 CONTINUE 01500508 ! 237: CT004* TEST 4 3 CHARACTER VARIABLE 01510508 ! 238: IVTNUM = 4 01520508 ! 239: IVCOMP = 0 01530508 ! 240: IF (F3XVK.EQ.'END') IVCOMP = 1 01540508 ! 241: IF (IVCOMP - 1) 20040, 10040, 20040 01550508 ! 242: 10040 IVPASS = IVPASS + 1 01560508 ! 243: WRITE (NUVI, 80002) IVTNUM 01570508 ! 244: GO TO 0041 01580508 ! 245: 20040 IVFAIL = IVFAIL + 1 01590508 ! 246: CVCORR = 'END' 01600508 ! 247: WRITE (NUVI, 80018) IVTNUM, F3XVK, CVCORR 01610508 ! 248: 0041 CONTINUE 01620508 ! 249: C***** 01630508 ! 250: CBB** ********************** BBCSUM0 **********************************01640508 ! 251: C**** WRITE OUT TEST SUMMARY 01650508 ! 252: C**** 01660508 ! 253: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 01670508 ! 254: WRITE (I02, 90004) 01680508 ! 255: WRITE (I02, 90014) 01690508 ! 256: WRITE (I02, 90004) 01700508 ! 257: WRITE (I02, 90020) IVPASS 01710508 ! 258: WRITE (I02, 90022) IVFAIL 01720508 ! 259: WRITE (I02, 90024) IVDELE 01730508 ! 260: WRITE (I02, 90026) IVINSP 01740508 ! 261: WRITE (I02, 90028) IVTOTN, IVTOTL 01750508 ! 262: CBE** ********************** BBCSUM0 **********************************01760508 ! 263: CBB** ********************** BBCFOOT0 **********************************01770508 ! 264: C**** WRITE OUT REPORT FOOTINGS 01780508 ! 265: C**** 01790508 ! 266: WRITE (I02,90016) ZPROG, ZPROG 01800508 ! 267: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 01810508 ! 268: WRITE (I02,90019) 01820508 ! 269: CBE** ********************** BBCFOOT0 **********************************01830508 ! 270: CBB** ********************** BBCFMT0A **********************************01840508 ! 271: C**** FORMATS FOR TEST DETAIL LINES 01850508 ! 272: C**** 01860508 ! 273: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 01870508 ! 274: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 01880508 ! 275: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 01890508 ! 276: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 01900508 ! 277: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 01910508 ! 278: 1I6,/,1H ,15X,10HCORRECT= ,I6) 01920508 ! 279: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 01930508 ! 280: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 01940508 ! 281: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 01950508 ! 282: 1A21,/,1H ,16X,10HCORRECT= ,A21) 01960508 ! 283: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 01970508 ! 284: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 01980508 ! 285: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 01990508 ! 286: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 02000508 ! 287: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 02010508 ! 288: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 02020508 ! 289: 80050 FORMAT (1H ,48X,A31) 02030508 ! 290: CBE** ********************** BBCFMT0A **********************************02040508 ! 291: CBB** ********************** BBCFMAT1 **********************************02050508 ! 292: C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 02060508 ! 293: C**** 02070508 ! 294: 80031 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02080508 ! 295: 1D17.10,/,1H ,16X,10HCORRECT= ,D17.10) 02090508 ! 296: 80033 FORMAT (1H ,16X,10HCOMPUTED= ,D17.10,10X,A31) 02100508 ! 297: 80035 FORMAT (1H ,16X,10HCORRECT= ,D17.10,10X,A31) 02110508 ! 298: 80037 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 02120508 ! 299: 80039 FORMAT (1H ,16X,10HCORRECT= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 02130508 ! 300: 80041 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 02140508 ! 301: 80043 FORMAT (1H ,16X,10HCORRECT= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 02150508 ! 302: 80045 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02160508 ! 303: 11H(,F12.5,2H, ,F12.5,1H)/,1H ,16X,10HCORRECT= , 02170508 ! 304: 21H(,F12.5,2H, ,F12.5,1H)) 02180508 ! 305: CBE** ********************** BBCFMAT1 **********************************02190508 ! 306: CBB** ********************** BBCFMT0B **********************************02200508 ! 307: C**** FORMAT STATEMENTS FOR PAGE HEADERS 02210508 ! 308: C**** 02220508 ! 309: 90002 FORMAT (1H1) 02230508 ! 310: 90004 FORMAT (1H ) 02240508 ! 311: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 02250508 ! 312: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 02260508 ! 313: 90008 FORMAT (1H ,21X,A13,A17) 02270508 ! 314: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 02280508 ! 315: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 02290508 ! 316: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 02300508 ! 317: 1 7X,7HREMARKS,24X) 02310508 ! 318: 90014 FORMAT (1H ,46H----------------------------------------------, 02320508 ! 319: 1 33H---------------------------------) 02330508 ! 320: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 02340508 ! 321: C**** 02350508 ! 322: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 02360508 ! 323: C**** 02370508 ! 324: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 02380508 ! 325: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 02390508 ! 326: 1 A13) 02400508 ! 327: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 02410508 ! 328: C**** 02420508 ! 329: C**** FORMAT STATEMENTS FOR RUN SUMMARY 02430508 ! 330: C**** 02440508 ! 331: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 02450508 ! 332: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 02460508 ! 333: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 02470508 ! 334: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 02480508 ! 335: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 02490508 ! 336: CBE** ********************** BBCFMT0B **********************************02500508 ! 337: C***** 02510508 ! 338: END 02520508
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.