![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM921.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 FM921.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***********************************************************************00010921
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 00020921
6: C***** FM921 00030921
7: C***** INQF4 - (441) 00040921
8: C***** 00050921
9: C***********************************************************************00060921
10: C***** GENERAL PURPOSE ANS REF 00070921
11: C***** TEST INQUIRE BY FILE ON DIRECT, UNFORMATTED FILE 12.10.3 00080921
12: C***** 00090921
13: C***** THE TESTS IN THE UNIT ARE ONLY PERFORMED ON A 00100921
14: C***** FILE THAT IS CONNECTED FOR DIRECT, UNFORMATTED ACCESS 00110921
15: C***** (ANS REF. 12.2.4.2 AND 12.9.5.1) 00120921
16: C***** THIS TEST PERFORMS AN EXPLICIT OPEN, AND PERFORMS 00130921
17: C***** A CLOSE WITH STATUS='DELETE' AT THE END OF THE SEGMENT. 00140921
18: C***** THIS SEGMENT TESTS THAT AN INQUIRE IS PERFORMED CORRECTLY 00150921
19: C***** BEFORE READING OR WRITING TO THE FILE, AFTER WRITING TO 00160921
20: C***** THE FILE, AND AFTER READING FROM THE FILE. 00170921
21: C***** 00180921
22: C***** NOTE: 00190921
23: C***** AN INQUIRE STATEMENT IS NEEDED TO TEST THE READ AND 00200921
24: C***** WRITE OF MORE THAN A SINGLE RECORD AT A TIME, IN ORDER TO 00210921
25: C***** DETERMINE THAT THE RECORD NUMBER IS ADVANCED THE CORRECT 00220921
26: C***** NUMBER (ONE MORE THAN THE RECORD NUMBER LAST READ OR WRITTEN).00230921
27: C***** THIS TEST WILL BE PERFORMED IN THE SEGMENTS WHICH TEST 00240921
28: C***** DIRECT ACCESS FILES - DIRAF3 (412). 00250921
29: C***********************************************************************00260921
30: CBB** ********************** BBCCOMNT **********************************00270921
31: C**** 00280921
32: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00290921
33: C**** VERSION 2.0 00300921
34: C**** 00310921
35: C**** 00320921
36: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00330921
37: C**** GENERAL SERVICES ADMINISTRATION 00340921
38: C**** FEDERAL SOFTWARE TESTING CENTER 00350921
39: C**** 5203 LEESBURG PIKE, SUITE 1100 00360921
40: C**** FALLS CHURCH, VA. 22041 00370921
41: C**** 00380921
42: C**** (703) 756-6153 00390921
43: C**** 00400921
44: CBE** ********************** BBCCOMNT **********************************00410921
45: C***** 00420921
46: LOGICAL AVB, BVB 00430921
47: CHARACTER*10 B10VK, D10VK, E11VK*11, G10VK 00440921
48: C***** BELOW CHARACTER STATEMENT ESTABLISHES THE FILE NAME VARIABLES. 00450921
49: CX20 REPLACED BY FEXEC X-20 CONTROL CARD. X-20 IS FOR REPLACING 00460921
50: CHARACTER*15 CDIR, CSEQ 00470921
51: C THE CHARACTER STATEMENT FOR FILE NAMES ASSOCIATED WITH X-100 00480921
52: C (PROGRAM VARIABLE CDIR) IF NOT VALID FOR THE PROCESSOR. 00490921
53: CBB** ********************** BBCINITA **********************************00500921
54: C**** SPECIFICATION STATEMENTS 00510921
55: C**** 00520921
56: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00530921
57: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00540921
58: CBE** ********************** BBCINITA **********************************00550921
59: CBB** ********************** BBCINITB **********************************00560921
60: C**** INITIALIZE SECTION 00570921
61: DATA ZVERS, ZVERSD, ZDATE 00580921
62: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00590921
63: DATA ZCOMPL, ZNAME, ZTAPE 00600921
64: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00610921
65: DATA ZPROJ, ZTAPED, ZPROG 00620921
66: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00630921
67: DATA REMRKS /' '/ 00640921
68: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00650921
69: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00660921
70: C**** 00670921
71: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00680921
72: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00690921
73: CZ03 ZPROG = 'PROGRAM NAME' 00700921
74: ZDATE = '07-Nov-85 ' *RP
75: ZCOMPL = 'CCI 5.2 ' *RP
76: ZPROJ = 'TC-85- -410' *RP
77: ZNAME = ' ' *RP
78: ZTAPE = ' ' *RP
79: ZTAPED = '850703 ' *RP
80: C 00770921
81: IVPASS = 0 00780921
82: IVFAIL = 0 00790921
83: IVDELE = 0 00800921
84: IVINSP = 0 00810921
85: IVTOTL = 0 00820921
86: IVTOTN = 0 00830921
87: ICZERO = 0 00840921
88: C 00850921
89: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00860921
90: I01 = 05 00870921
91: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00880921
92: I02 = 06 00890921
93: C 00900921
94: I01 = 5 00910921
95: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00920921
96: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00930921
97: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00940921
98: C 00950921
99: I02 = 6 00960921
100: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00970921
101: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00980921
102: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00990921
103: C 01000921
104: CBE** ********************** BBCINITB **********************************01010921
105: C***** 01020921
106: C***** THE FOLLOWING STATEMENT MUST BE CHANGED IF 01030921
107: C***** THE UNIT GIVEN IS NOT CAPABLE OF BEING OPENED AS A 01040921
108: C***** DIRECT, UNFORMATTED FILE. 01050921
109: C***** 01060921
110: C I10 CONTAINS THE UNIT NUMBER FOR A DIRECT, UNFORMATTED FILE. 01070921
111: I10 = 24 01080921
112: OPEN(UNIT=I10,ACCESS='DIRECT',FORM='UNFORMATTED',RECL=80) 01090921
113: C SPECIFYING I10 = NN OVERRIDES THE DEFAULT I10 = 24. 01100921
114: C***** 01110921
115: C***** THE FOLLOWING STATEMENT MUST BE CHANGED IF THE NAME 01120921
116: C***** GIVEN IS NOT A VALID FILE SPECIFIER FOR A DIRECT, 01130921
117: C***** UNFORMATTED FILE. 01140921
118: C***** 01150921
119: C CDIR CONTAINS THE FILE NAME FOR UNIT I10. 01160921
120: CDIR = ' DIRFILE' 01170921
121: C 01180921
122: CX201 REPLACED BY FEXEC X-201 CONTROL CARD. CX201 IS FOR SYSTEMS 01190921
123: C REQUIRING A DIFFERENT FILE SPECIFIER FOR FILES ASSOCIATED WITH 01200921
124: C X-100 THAN THE DEFAULT CDIR = ' DIRFILE'. 01210921
125: C***** 01220921
126: C***** THE FOLLOWING STATEMENT MUST BE CHANGED IF 40 IS 01230921
127: C***** NOT A VALID RECORD LENGTH. 01240921
128: MVI = 40 01250921
129: C***** 01260921
130: NUVI = I02 01270921
131: IOVI = I10 01280921
132: ZPROG = 'FM921' 01290921
133: IVTOTL = 3 01300921
134: CBB** ********************** BBCHED0A **********************************01310921
135: C**** 01320921
136: C**** WRITE REPORT TITLE 01330921
137: C**** 01340921
138: WRITE (I02, 90002) 01350921
139: WRITE (I02, 90006) 01360921
140: WRITE (I02, 90007) 01370921
141: WRITE (I02, 90008) ZVERS, ZVERSD 01380921
142: WRITE (I02, 90009) ZPROG, ZPROG 01390921
143: WRITE (I02, 90010) ZDATE, ZCOMPL 01400921
144: CBE** ********************** BBCHED0A **********************************01410921
145: C***** 01420921
146: WRITE(NUVI,44100) 01430921
147: 44100 FORMAT(1H , / 30H INQF4 - (441) INQUIRE BY FILE// 01440921
148: 1 31H DIRECT ACCESS UNFORMATTED FILE// 01450921
149: 2 19H ANS REF. - 12.10.3) 01460921
150: CBB** ********************** BBCHED0B **********************************01470921
151: C**** WRITE DETAIL REPORT HEADERS 01480921
152: C**** 01490921
153: WRITE (I02,90004) 01500921
154: WRITE (I02,90004) 01510921
155: WRITE (I02,90013) 01520921
156: WRITE (I02,90014) 01530921
157: WRITE (I02,90015) IVTOTL 01540921
158: CBE** ********************** BBCHED0B **********************************01550921
159: C***** 01560921
160: C***** OPEN FILE 01570921
161: OPEN(FILE=CDIR, UNIT=IOVI, ACCESS='DIRECT', RECL=MVI, 01580921
162: 1 FORM='UNFORMATTED') 01590921
163: C***** 01600921
164: CT001* TEST 1 - FIRST INQUIRE (AFTER OPEN) 01610921
165: IVTNUM = 1 01620921
166: INQUIRE(FILE=CDIR, EXIST=AVB, OPENED=BVB, NUMBER=JVI, 01630921
167: 1 ACCESS=B10VK, DIRECT=D10VK, RECL=KVI, NEXTREC=LVI, 01640921
168: 2 FORM=E11VK, UNFORMATTED=G10VK, ERR=20014, IOSTAT=IVI) 01650921
169: C***** 01660921
170: IF (IVI .NE. 0) GO TO 20010 01670921
171: IF (.NOT. AVB) GO TO 20010 01680921
172: IF (.NOT. BVB) GO TO 20010 01690921
173: IF (JVI .NE. IOVI) GO TO 20010 01700921
174: IF (B10VK .NE. 'DIRECT') GO TO 20010 01710921
175: IF (D10VK .NE. 'YES') GO TO 20010 01720921
176: IF (KVI .NE. MVI) GO TO 20010 01730921
177: IF (LVI .NE. 1) GO TO 20010 01740921
178: IF (E11VK .NE. 'UNFORMATTED') GO TO 20010 01750921
179: IF (G10VK .NE. 'YES' ) GO TO 20010 01760921
180: WRITE (NUVI, 80002) IVTNUM 01770921
181: IVPASS = IVPASS + 1 01780921
182: GO TO 0011 01790921
183: 20014 CONTINUE 01800921
184: WRITE (NUVI, 20015) IVTNUM 01810921
185: 20015 FORMAT (1H ,2X,I3,4X,5H FAIL,12X, 01820921
186: 1 46HERROR IN EXECUTION OF INQUIRE STATEMENT (ERR=)/) 01830921
187: GO TO 20016 01840921
188: 20010 CONTINUE 01850921
189: WRITE (NUVI, 20011) IVTNUM 01860921
190: 20011 FORMAT(1H ,2X,I3,4X,5H FAIL,12X, 01870921
191: 1 29HERROR IN AN INQUIRE SPECIFIER/) 01880921
192: 20016 IVFAIL = IVFAIL + 1 01890921
193: WRITE (NUVI, 20012) IVI,AVB,BVB,JVI,B10VK,D10VK,KVI, 01900921
194: 1 LVI,E11VK,G10VK 01910921
195: 20012 FORMAT (1H ,16X,10HCOMPUTED: ,7HIOSTAT=,I1,8H, EXIST=,L1, 01920921
196: 1 9H ,OPENED=,L1,9H, NUMBER=,I4,1H,/ 01930921
197: 2 1H ,26X,7HACCESS=,A6,9H, DIRECT=,A3,7H, RECL=, 01940921
198: 3 I4,1H,/1H ,26X,8HNEXTREC=,I4,7H, FORM=, 01950921
199: 4 A11,1H,/1H ,26X,12HUNFORMATTED=,A3) 01960921
200: WRITE (NUVI, 20013) IOVI,MVI 01970921
201: 20013 FORMAT (1H ,16X,10HCORRECT: ,19HIOSTAT=0, EXIST=T, , 01980921
202: 1 17HOPENED=T, NUMBER=,I4,1H,/ 01990921
203: 2 1H ,26X,32HACCESS=DIRECT, DIRECT=YES, RECL=, 02000921
204: 3 I4,1H,/1H ,26X,31HNEXTREC= 1, FORM=UNFORMATTED,/ 02010921
205: 4 1H ,26X,15HUNFORMATTED=YES) 02020921
206: 0011 CONTINUE 02030921
207: C***** 02040921
208: C***** WRITE A RECORD TO FILE 02050921
209: 44103 WRITE(IOVI, REC=1) JVI 02060921
210: C***** 02070921
211: CT002* TEST 2 - SECOND INQUIRE (AFTER WRITE) 02080921
212: IVTNUM = 2 02090921
213: C***** THIS INQUIRE ONLY TESTS THE DIRECT, RECL, AND NEXTREC 02100921
214: C***** AS THE OTHER SPECIFIERS HAVE BEEN PREVIOUSLY TESTED 02110921
215: INQUIRE(FILE=CDIR, DIRECT=D10VK, RECL=KVI, NEXTREC=LVI, 02120921
216: 1 ERR=20024, IOSTAT=IVI) 02130921
217: C***** 02140921
218: IF (IVI .NE. 0) GO TO 20020 02150921
219: IF (D10VK .NE. 'YES') GO TO 20020 02160921
220: IF (KVI .NE. MVI) GO TO 20020 02170921
221: IF (LVI .NE. 2) GO TO 20020 02180921
222: WRITE (NUVI, 80002) IVTNUM 02190921
223: IVPASS = IVPASS + 1 02200921
224: GO TO 0021 02210921
225: 20024 CONTINUE 02220921
226: WRITE (NUVI, 20025) IVTNUM 02230921
227: 20025 FORMAT (1H ,2X,I3,4X,5H FAIL,12X, 02240921
228: 1 46HERROR IN EXECUTION OF INQUIRE STATEMENT (ERR=)/) 02250921
229: GO TO 20026 02260921
230: 20020 CONTINUE 02270921
231: WRITE (NUVI, 20021) IVTNUM 02280921
232: 20021 FORMAT(1H ,2X,I3,4X,5H FAIL,12X, 02290921
233: 1 29HERROR IN AN INQUIRE SPECIFIER/) 02300921
234: 20026 IVFAIL = IVFAIL + 1 02310921
235: WRITE (NUVI, 20022) IVI,D10VK,KVI,LVI 02320921
236: 20022 FORMAT (1H ,16X,10HCOMPUTED: ,7HIOSTAT=,I1,9H, DIRECT=,A3, 02330921
237: 1 7H ,RECL=,I4,10H, NEXTREC=,I4) 02340921
238: WRITE (NUVI, 20023) MVI 02350921
239: 20023 FORMAT (1H ,16X,10HCORRECT: ,20HIOSTAT=0, DIRECT=YES, 02360921
240: 1 7H ,RECL=,I4,14H, NEXTREC= 2) 02370921
241: 0021 CONTINUE 02380921
242: C***** 02390921
243: C***** READ A RECORD FROM FILE 02400921
244: 44106 READ(IOVI, REC=1) JVI 02410921
245: C***** 02420921
246: CT003* TEST 3 - THIRD INQUIRE (AFTER READ) 02430921
247: IVTNUM = 3 02440921
248: C***** THIS INQUIRE ONLY TESTS THE DIRECT, RECL, AND NEXTREC 02450921
249: C***** AS THE OTHER SPECIFIERS HAVE BEEN PREVIOUSLY TESTED 02460921
250: INQUIRE(FILE=CDIR, DIRECT=D10VK, RECL=KVI, NEXTREC=LVI, 02470921
251: 1 ERR=20034, IOSTAT=IVI) 02480921
252: C***** 02490921
253: IF (IVI .NE. 0) GO TO 20030 02500921
254: IF (D10VK .NE. 'YES') GO TO 20030 02510921
255: IF (KVI .NE. MVI) GO TO 20030 02520921
256: IF (LVI .NE. 2) GO TO 20030 02530921
257: WRITE (NUVI, 80002) IVTNUM 02540921
258: IVPASS = IVPASS + 1 02550921
259: GO TO 0031 02560921
260: 20034 CONTINUE 02570921
261: WRITE (NUVI, 20035) IVTNUM 02580921
262: 20035 FORMAT (1H ,2X,I3,4X,5H FAIL,12X, 02590921
263: 1 46HERROR IN EXECUTION OF INQUIRE STATEMENT (ERR=)/) 02600921
264: GO TO 20036 02610921
265: 20030 CONTINUE 02620921
266: WRITE (NUVI, 20031) IVTNUM 02630921
267: 20031 FORMAT(1H ,2X,I3,4X,5H FAIL,12X, 02640921
268: 1 29HERROR IN AN INQUIRE SPECIFIER/) 02650921
269: 20036 IVFAIL = IVFAIL + 1 02660921
270: WRITE (NUVI, 20032) IVI,D10VK,KVI,LVI 02670921
271: 20032 FORMAT (1H ,16X,10HCOMPUTED: ,7HIOSTAT=,I1,9H, DIRECT=,A3, 02680921
272: 1 7H ,RECL=,I4,10H, NEXTREC=,I4) 02690921
273: WRITE (NUVI, 20033) MVI 02700921
274: 20033 FORMAT (1H ,16X,10HCORRECT: ,20HIOSTAT=0, DIRECT=YES, 02710921
275: 1 7H ,RECL=,I4,14H, NEXTREC= 2) 02720921
276: 0031 CONTINUE 02730921
277: C***** 02740921
278: CLOSE(UNIT=IOVI, STATUS='DELETE') 02750921
279: C***** 02760921
280: CBB** ********************** BBCSUM0 **********************************02770921
281: C**** WRITE OUT TEST SUMMARY 02780921
282: C**** 02790921
283: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 02800921
284: WRITE (I02, 90004) 02810921
285: WRITE (I02, 90014) 02820921
286: WRITE (I02, 90004) 02830921
287: WRITE (I02, 90020) IVPASS 02840921
288: WRITE (I02, 90022) IVFAIL 02850921
289: WRITE (I02, 90024) IVDELE 02860921
290: WRITE (I02, 90026) IVINSP 02870921
291: WRITE (I02, 90028) IVTOTN, IVTOTL 02880921
292: CBE** ********************** BBCSUM0 **********************************02890921
293: CBB** ********************** BBCFOOT0 **********************************02900921
294: C**** WRITE OUT REPORT FOOTINGS 02910921
295: C**** 02920921
296: WRITE (I02,90016) ZPROG, ZPROG 02930921
297: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 02940921
298: WRITE (I02,90019) 02950921
299: CBE** ********************** BBCFOOT0 **********************************02960921
300: CBB** ********************** BBCFMT0A **********************************02970921
301: C**** FORMATS FOR TEST DETAIL LINES 02980921
302: C**** 02990921
303: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 03000921
304: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 03010921
305: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 03020921
306: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 03030921
307: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 03040921
308: 1I6,/,1H ,15X,10HCORRECT= ,I6) 03050921
309: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03060921
310: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 03070921
311: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03080921
312: 1A21,/,1H ,16X,10HCORRECT= ,A21) 03090921
313: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 03100921
314: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 03110921
315: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 03120921
316: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 03130921
317: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 03140921
318: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 03150921
319: 80050 FORMAT (1H ,48X,A31) 03160921
320: CBE** ********************** BBCFMT0A **********************************03170921
321: CBB** ********************** BBCFMT0B **********************************03180921
322: C**** FORMAT STATEMENTS FOR PAGE HEADERS 03190921
323: C**** 03200921
324: 90002 FORMAT (1H1) 03210921
325: 90004 FORMAT (1H ) 03220921
326: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 03230921
327: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 03240921
328: 90008 FORMAT (1H ,21X,A13,A17) 03250921
329: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 03260921
330: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 03270921
331: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 03280921
332: 1 7X,7HREMARKS,24X) 03290921
333: 90014 FORMAT (1H ,46H----------------------------------------------, 03300921
334: 1 33H---------------------------------) 03310921
335: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 03320921
336: C**** 03330921
337: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 03340921
338: C**** 03350921
339: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 03360921
340: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 03370921
341: 1 A13) 03380921
342: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 03390921
343: C**** 03400921
344: C**** FORMAT STATEMENTS FOR RUN SUMMARY 03410921
345: C**** 03420921
346: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 03430921
347: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 03440921
348: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 03450921
349: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 03460921
350: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 03470921
351: CBE** ********************** BBCFMT0B **********************************03480921
352: C***** 03490921
353: C***** END OF TEST SEGMENT 441 03500921
354: STOP 03510921
355: END 03520921
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.