![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM901.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 FM901.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***********************************************************************00010901 ! 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 00020901 ! 6: C***** FM901 AFMTF - (023) 00030901 ! 7: C***** 00040901 ! 8: C***********************************************************************00050901 ! 9: C***** GENERAL PURPOSE ANS REFS00060901 ! 10: C***** TO TEST SIMPLE FORMAT AND FORMATTED DATA 12.9.5.200070901 ! 11: C***** TRANSFER STATEMENTS IN EXTERNAL SEQUENTIAL I/O SO 13.1.1 00080901 ! 12: C***** THAT THESE FEATURES MAY BE USED IN OTHER TEST 12.8.1 00090901 ! 13: C***** PROGRAM SEGMENTS FOR CHARACTER DATA TYPES. 4.8 00100901 ! 14: C***** TO TEST READ AND WRITE OF SUBSTRINGS. 5.7 00110901 ! 15: C***** 00120901 ! 16: C***** RESTRICTIONS OBSERVED 00130901 ! 17: C***** * ALL FORMAT STATEMENTS ARE LABELED 12.8.2 00140901 ! 18: C***** * H AND X DESCRIPTORS ARE NEVER REPEATED 13.1.1 00150901 ! 19: C***** * FIELD WIDTH IS NEVER ZERO 13.5.11 00160901 ! 20: C***** * IF AN I/O LIST SPECIFIES AT LEAST ONE LIST ITEM 13.3 00170901 ! 21: C***** AT LEAST ONE REPEATABLE EDIT DESCRIPTOR MUST EXIST 00180901 ! 22: C***** IN THE FORMAT SPECIFICATION. 00190901 ! 23: C***** * ITEMS IN I/O LIST CORRESPOND TO FORMAT DESCRIPTORS 13.3 00200901 ! 24: C***** 00210901 ! 25: CBB** ********************** BBCCOMNT **********************************00220901 ! 26: C**** 00230901 ! 27: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00240901 ! 28: C**** VERSION 2.0 00250901 ! 29: C**** 00260901 ! 30: C**** 00270901 ! 31: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00280901 ! 32: C**** GENERAL SERVICES ADMINISTRATION 00290901 ! 33: C**** FEDERAL SOFTWARE TESTING CENTER 00300901 ! 34: C**** 5203 LEESBURG PIKE, SUITE 1100 00310901 ! 35: C**** FALLS CHURCH, VA. 22041 00320901 ! 36: C**** 00330901 ! 37: C**** (703) 756-6153 00340901 ! 38: C**** 00350901 ! 39: CBE** ********************** BBCCOMNT **********************************00360901 ! 40: C***** 00370901 ! 41: C INPUT DATA TO THIS SEG. CONSISTS OF 5 DATA CARD IMAGES IN COLS. 1 - 5200380901 ! 42: COL. 1-------------------------------------------------52 00390901 ! 43: CARD 1 XYZ123:45$'),.JKLABCDEF67890MNOPQRSTUVW =+-*/(GHI 00400901 ! 44: CARD 2 ONEFIVENINEELEVENSEVENTHREE 00410901 ! 45: CARD 3 SQUARE THE WORLD IN 40 NIGHTS 00420901 ! 46: CARD 4 DAYS 80AROUND 00430901 ! 47: CARD 5 TO XXXXX NOT TO XXXX- THAT IS THE QUESTIONXXBE ORBE 00440901 ! 48: C***** 00450901 ! 49: C***** S P E C I F I C A T I O N S SEGMENT 023 00460901 ! 50: C***** 00470901 ! 51: CHARACTER*13 A13VK 00480901 ! 52: CHARACTER*27 A27VK 00490901 ! 53: CHARACTER*29 A29VK 00500901 ! 54: CHARACTER*36 A36VK 00510901 ! 55: CHARACTER*43 B43VK 00520901 ! 56: C***** 00530901 ! 57: CBB** ********************** BBCINITA **********************************00540901 ! 58: C**** SPECIFICATION STATEMENTS 00550901 ! 59: C**** 00560901 ! 60: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00570901 ! 61: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00580901 ! 62: CBE** ********************** BBCINITA **********************************00590901 ! 63: CBB** ********************** BBCINITB **********************************00600901 ! 64: C**** INITIALIZE SECTION 00610901 ! 65: DATA ZVERS, ZVERSD, ZDATE 00620901 ! 66: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00630901 ! 67: DATA ZCOMPL, ZNAME, ZTAPE 00640901 ! 68: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00650901 ! 69: DATA ZPROJ, ZTAPED, ZPROG 00660901 ! 70: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00670901 ! 71: DATA REMRKS /' '/ 00680901 ! 72: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00690901 ! 73: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00700901 ! 74: C**** 00710901 ! 75: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00720901 ! 76: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00730901 ! 77: CZ03 ZPROG = 'PROGRAM NAME' 00740901 ! 78: ZDATE = '07-Nov-85 ' *RP ! 79: ZCOMPL = 'CCI 5.2 ' *RP ! 80: ZPROJ = 'TC-85- -410' *RP ! 81: ZNAME = ' ' *RP ! 82: ZTAPE = ' ' *RP ! 83: ZTAPED = '850703 ' *RP ! 84: C 00810901 ! 85: IVPASS = 0 00820901 ! 86: IVFAIL = 0 00830901 ! 87: IVDELE = 0 00840901 ! 88: IVINSP = 0 00850901 ! 89: IVTOTL = 0 00860901 ! 90: IVTOTN = 0 00870901 ! 91: ICZERO = 0 00880901 ! 92: C 00890901 ! 93: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00900901 ! 94: I01 = 05 00910901 ! 95: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00920901 ! 96: I02 = 06 00930901 ! 97: C 00940901 ! 98: I01 = 5 00950901 ! 99: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00960901 ! 100: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00970901 ! 101: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00980901 ! 102: C 00990901 ! 103: I02 = 6 01000901 ! 104: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 01010901 ! 105: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 01020901 ! 106: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 01030901 ! 107: C 01040901 ! 108: CBE** ********************** BBCINITB **********************************01050901 ! 109: IRVI = I01 01060901 ! 110: NUVI = I02 01070901 ! 111: IVTOTL = 4 01080901 ! 112: ZPROG = 'FM901' 01090901 ! 113: CBB** ********************** BBCHED0A **********************************01100901 ! 114: C**** 01110901 ! 115: C**** WRITE REPORT TITLE 01120901 ! 116: C**** 01130901 ! 117: WRITE (I02, 90002) 01140901 ! 118: WRITE (I02, 90006) 01150901 ! 119: WRITE (I02, 90007) 01160901 ! 120: WRITE (I02, 90008) ZVERS, ZVERSD 01170901 ! 121: WRITE (I02, 90009) ZPROG, ZPROG 01180901 ! 122: WRITE (I02, 90010) ZDATE, ZCOMPL 01190901 ! 123: CBE** ********************** BBCHED0A **********************************01200901 ! 124: C***** 01210901 ! 125: C***** HEADER FOR SEGMENT 23 01220901 ! 126: WRITE (NUVI,02300) 01230901 ! 127: 02300 FORMAT(1H , /1X,38H AFMTF - (023) FORMATTED DATA TRANSFER// 01240901 ! 128: 1 1X,35H USING A-CONVERSION WITH SUBSTRINGS//1X, 01250901 ! 129: 2 31H REFS - 12.9.5.2 13.3 13.5.11) 01260901 ! 130: CBB** ********************** BBCHED0B **********************************01270901 ! 131: C**** WRITE DETAIL REPORT HEADERS 01280901 ! 132: C**** 01290901 ! 133: WRITE (I02,90004) 01300901 ! 134: WRITE (I02,90004) 01310901 ! 135: WRITE (I02,90013) 01320901 ! 136: WRITE (I02,90014) 01330901 ! 137: WRITE (I02,90015) IVTOTL 01340901 ! 138: CBE** ********************** BBCHED0B **********************************01350901 ! 139: C***** 01360901 ! 140: C***** TEST THAT DATA MAY BE READ IN A SERIES OF SUBSTRINGS, 5.701370901 ! 141: C***** NOT NECESSARILY IN THE ORDER OF POSITION IN THE STRING, 12.8.201380901 ! 142: C***** AND CAN BE WRITTEN AS A CHARACTER STRING. 13.5.1101390901 ! 143: C***** SHOW ALSO THAT THE FULL FORTRAN CHARACTER SET CAN BE READ 3.101400901 ! 144: C***** (INCLUDES $ AND :) 01410901 ! 145: C***** 01420901 ! 146: C***** INPUT CARD 1 01430901 ! 147: READ(IRVI, 02301) A36VK(24:29), A13VK(13:13), A36VK(30:31), 01440901 ! 148: 1 A13VK(11:12), A13VK(8:10), A36VK(10:12), A36VK(:6), 01450901 ! 149: 2 A36VK(32:), A36VK(13:23), A13VK(1:7), A36VK(7:9) 01460901 ! 150: 02301 FORMAT(A6, A1, 2A2, A3, A3, A6, A5, A11, A7, A3) 01470901 ! 151: CT001* TEST 1 01480901 ! 152: IVTNUM = 1 01490901 ! 153: REMRKS = '2 SETS OF 2 COMPUTED LINES ' 01500901 ! 154: WRITE (NUVI, 80004) IVTNUM, REMRKS 01510901 ! 155: REMRKS = 'EXPECTED ' 01520901 ! 156: WRITE (NUVI, 80050) REMRKS 01530901 ! 157: WRITE (NUVI, 80020) 01540901 ! 158: WRITE (NUVI, 70010) A36VK(1:6), A36VK(7:9), A36VK(10:12), 01550901 ! 159: 1 A36VK(13:23), A36VK(24:29), A36VK(30:31), A36VK(32:36), 01560901 ! 160: 2 A36VK, A13VK(:7), A13VK(8:10), A13VK(11:12), A13VK(13:), 01570901 ! 161: 3 A13VK 01580901 ! 162: 70010 FORMAT (26X,A6,2(A3),A11,A6,A2,A5/26X,A36//26X,A7,A3,A2,A1/ 01590901 ! 163: 1 26X,A13) 01600901 ! 164: IVINSP = IVINSP + 1 01610901 ! 165: WRITE (NUVI, 70011) 01620901 ! 166: 70011 FORMAT(1H ,16X,10HCORRECT: ,22X,32HCORRESPONDING LINE(S) MUST M01630901 ! 167: 1ATCH) 01640901 ! 168: WRITE (NUVI, 70012) 01650901 ! 169: 70012 FORMAT(26X,36HABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890/ 01660901 ! 170: 1 26X,13H =+-*/(),.$':) 01670901 ! 171: C***** 01680901 ! 172: C***** TEST THAT A CHARACTER VARIABLE CAN BE OUTPUT AS SUBSTRINGS. 01690901 ! 173: C***** 13.5.1101700901 ! 174: C***** INPUT CARD 2 01710901 ! 175: READ(IRVI, 02303) A27VK 01720901 ! 176: 02303 FORMAT(A27) 01730901 ! 177: CT002* TEST 2 01740901 ! 178: IVTNUM = 2 01750901 ! 179: WRITE (NUVI, 80004) IVTNUM 01760901 ! 180: WRITE (NUVI, 80020) 01770901 ! 181: WRITE(NUVI, 70020) A27VK(1:3), A27VK(23:27), A27VK(4:7), 01780901 ! 182: 1 A27VK(18:22), A27VK(8:11), A27VK(12:17) 01790901 ! 183: 70020 FORMAT(26X,A3,A6,A5,A6,A5,A7) 01800901 ! 184: IVINSP = IVINSP + 1 01810901 ! 185: WRITE (NUVI, 80022) 01820901 ! 186: WRITE (NUVI, 70022) 01830901 ! 187: 70022 FORMAT(26X,32HONE THREE FIVE SEVEN NINE ELEVEN) 01840901 ! 188: C***** 01850901 ! 189: C***** TEST THAT A SUBSTRING CAN BE READ IN, AND PARTIALLY REPLACE 01860901 ! 190: C***** A PREVIOUSLY READ CHARACTER STRING. 13.5.1101870901 ! 191: C***** THIS SHOWS THAT THE LENGTH IS DERIVED FROM THE SUBSTRING, 01880901 ! 192: C***** AND NOT THE CHARACTER VARIABLE LENGTH. 01890901 ! 193: C***** 01900901 ! 194: C***** INPUT CARDS 3-4 01910901 ! 195: READ(IRVI, 02305) A29VK, A29VK(24:29), A29VK(21:22), A29VK(1:6)01920901 ! 196: 02305 FORMAT(A29/A,2A) 01930901 ! 197: CT003* TEST 3 01940901 ! 198: IVTNUM = 3 01950901 ! 199: WRITE (NUVI, 80004) IVTNUM 01960901 ! 200: WRITE (NUVI, 80020) 01970901 ! 201: WRITE(NUVI, 70030) A29VK(1:3), A29VK(4:21), A29VK(22:29) 01980901 ! 202: 70030 FORMAT (26X,3(A)) 01990901 ! 203: IVINSP = IVINSP + 1 02000901 ! 204: WRITE (NUVI, 80022) 02010901 ! 205: WRITE (NUVI, 70032) 02020901 ! 206: 70032 FORMAT(25X,30H AROUND THE WORLD IN 80 DAYS ) 02030901 ! 207: C***** 02040901 ! 208: C***** SPECIFIED FIELD WIDTH IN A A-EDIT DESCRIPTOR 02050901 ! 209: C***** IS DIFFERENT FROM SUBSTRING LENGTH 02060901 ! 210: C***** 02070901 ! 211: C***** INPUT CARD 5 02080901 ! 212: READ(IRVI, 02307) B43VK, B43VK(4:8), B43VK(17:20) 02090901 ! 213: 02307 FORMAT(A43, A7, A2) 02100901 ! 214: CT004* TEST 4 02110901 ! 215: IVTNUM = 4 02120901 ! 216: WRITE (NUVI, 80004) IVTNUM 02130901 ! 217: WRITE (NUVI, 80020) 02140901 ! 218: WRITE (NUVI, 70040) B43VK(:) 02150901 ! 219: 70040 FORMAT (26X,A20) 02160901 ! 220: IVINSP = IVINSP + 1 02170901 ! 221: WRITE (NUVI, 80022) 02180901 ! 222: WRITE (NUVI, 70042) 02190901 ! 223: 70042 FORMAT(26X,20HTO BE OR NOT TO BE ) 02200901 ! 224: C***** 02210901 ! 225: CBB** ********************** BBCSUM0 **********************************02220901 ! 226: C**** WRITE OUT TEST SUMMARY 02230901 ! 227: C**** 02240901 ! 228: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 02250901 ! 229: WRITE (I02, 90004) 02260901 ! 230: WRITE (I02, 90014) 02270901 ! 231: WRITE (I02, 90004) 02280901 ! 232: WRITE (I02, 90020) IVPASS 02290901 ! 233: WRITE (I02, 90022) IVFAIL 02300901 ! 234: WRITE (I02, 90024) IVDELE 02310901 ! 235: WRITE (I02, 90026) IVINSP 02320901 ! 236: WRITE (I02, 90028) IVTOTN, IVTOTL 02330901 ! 237: CBE** ********************** BBCSUM0 **********************************02340901 ! 238: CBB** ********************** BBCFOOT0 **********************************02350901 ! 239: C**** WRITE OUT REPORT FOOTINGS 02360901 ! 240: C**** 02370901 ! 241: WRITE (I02,90016) ZPROG, ZPROG 02380901 ! 242: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 02390901 ! 243: WRITE (I02,90019) 02400901 ! 244: CBE** ********************** BBCFOOT0 **********************************02410901 ! 245: CBB** ********************** BBCFMT0A **********************************02420901 ! 246: C**** FORMATS FOR TEST DETAIL LINES 02430901 ! 247: C**** 02440901 ! 248: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 02450901 ! 249: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 02460901 ! 250: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 02470901 ! 251: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 02480901 ! 252: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 02490901 ! 253: 1I6,/,1H ,15X,10HCORRECT= ,I6) 02500901 ! 254: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02510901 ! 255: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 02520901 ! 256: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02530901 ! 257: 1A21,/,1H ,16X,10HCORRECT= ,A21) 02540901 ! 258: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 02550901 ! 259: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 02560901 ! 260: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 02570901 ! 261: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 02580901 ! 262: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 02590901 ! 263: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 02600901 ! 264: 80050 FORMAT (1H ,48X,A31) 02610901 ! 265: CBE** ********************** BBCFMT0A **********************************02620901 ! 266: CBB** ********************** BBCFMAT1 **********************************02630901 ! 267: C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 02640901 ! 268: C**** 02650901 ! 269: 80031 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02660901 ! 270: 1D17.10,/,1H ,16X,10HCORRECT= ,D17.10) 02670901 ! 271: 80033 FORMAT (1H ,16X,10HCOMPUTED= ,D17.10,10X,A31) 02680901 ! 272: 80035 FORMAT (1H ,16X,10HCORRECT= ,D17.10,10X,A31) 02690901 ! 273: 80037 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 02700901 ! 274: 80039 FORMAT (1H ,16X,10HCORRECT= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 02710901 ! 275: 80041 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 02720901 ! 276: 80043 FORMAT (1H ,16X,10HCORRECT= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 02730901 ! 277: 80045 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02740901 ! 278: 11H(,F12.5,2H, ,F12.5,1H)/,1H ,16X,10HCORRECT= , 02750901 ! 279: 21H(,F12.5,2H, ,F12.5,1H)) 02760901 ! 280: CBE** ********************** BBCFMAT1 **********************************02770901 ! 281: CBB** ********************** BBCFMT0B **********************************02780901 ! 282: C**** FORMAT STATEMENTS FOR PAGE HEADERS 02790901 ! 283: C**** 02800901 ! 284: 90002 FORMAT (1H1) 02810901 ! 285: 90004 FORMAT (1H ) 02820901 ! 286: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 02830901 ! 287: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 02840901 ! 288: 90008 FORMAT (1H ,21X,A13,A17) 02850901 ! 289: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 02860901 ! 290: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 02870901 ! 291: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 02880901 ! 292: 1 7X,7HREMARKS,24X) 02890901 ! 293: 90014 FORMAT (1H ,46H----------------------------------------------, 02900901 ! 294: 1 33H---------------------------------) 02910901 ! 295: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 02920901 ! 296: C**** 02930901 ! 297: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 02940901 ! 298: C**** 02950901 ! 299: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 02960901 ! 300: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 02970901 ! 301: 1 A13) 02980901 ! 302: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 02990901 ! 303: C**** 03000901 ! 304: C**** FORMAT STATEMENTS FOR RUN SUMMARY 03010901 ! 305: C**** 03020901 ! 306: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 03030901 ! 307: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 03040901 ! 308: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 03050901 ! 309: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 03060901 ! 310: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 03070901 ! 311: CBE** ********************** BBCFMT0B **********************************03080901 ! 312: C***** 03090901 ! 313: C***** END OF TEST SEGMENT 023 03100901 ! 314: STOP 03110901 ! 315: END 03120901
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.