![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM920.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 FM920.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***********************************************************************00010920
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 00020920
6: C***** FM920 00030920
7: C***** INQF2 - (439) 00040920
8: C***** 00050920
9: C***********************************************************************00060920
10: C***** GENERAL PURPOSE ANS REF 00070920
11: C***** TEST INQUIRE ON SEQUENTIAL, UNFORMATTED FILES 12.10.3 00080920
12: C***** 00090920
13: C***** THE TESTS IN THIS UNIT ARE ONLY PERFORMED ON A 00100920
14: C***** FILE THAT IS CONNECTED FOR SEQUENTIAL, UNFORMATTED ACCESS 00110920
15: C***** (ANS REF. 12.2.4.1 AND 12.9.5.1) 00120920
16: C***** THIS TEST PERFORMS AN EXPLICIT OPEN, AND PERFORMS 00130920
17: C***** A CLOSE WITH STATUS='DELETE' AT THE END OF THE SEGMENT. 00140920
18: C***** THE SEGMENT TESTS THAT INQUIRE IS PERFORMED CORRECTLY 00150920
19: C***** BEFORE READING OR WRITING TO A FILE, AFTER WRITING TO A FILE 00160920
20: C***** AND AFTER READING FROM A FILE. 00170920
21: C***********************************************************************00180920
22: C***** 00190920
23: CBB** ********************** BBCCOMNT **********************************00200920
24: C**** 00210920
25: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00220920
26: C**** VERSION 2.0 00230920
27: C**** 00240920
28: C**** 00250920
29: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00260920
30: C**** GENERAL SERVICES ADMINISTRATION 00270920
31: C**** FEDERAL SOFTWARE TESTING CENTER 00280920
32: C**** 5203 LEESBURG PIKE, SUITE 1100 00290920
33: C**** FALLS CHURCH, VA. 22041 00300920
34: C**** 00310920
35: C**** (703) 756-6153 00320920
36: C**** 00330920
37: CBE** ********************** BBCCOMNT **********************************00340920
38: C***** 00350920
39: LOGICAL AVB, BVB 00360920
40: CHARACTER*10 B10VK, C10VK, E11VK*11, G10VK 00370920
41: C***** BELOW CHARACTER STATEMENT ESTABLISHES THE FILE NAME VARIABLES. 00380920
42: CX19 REPLACED BY FEXEC X-19 CONTROL CARD. X-19 IS FOR REPLACING 00390920
43: CHARACTER*15 CSEQ 00400920
44: C THE CHARACTER STATEMENT FOR FILE NAMES ASSOCIATED WITH X-050 00410920
45: C (PROGRAM VARIABLE CSEQ) IF NOT VALID FOR THE PROCESSOR. 00420920
46: C***** 00430920
47: CBB** ********************** BBCINITA **********************************00440920
48: C**** SPECIFICATION STATEMENTS 00450920
49: C**** 00460920
50: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00470920
51: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00480920
52: CBE** ********************** BBCINITA **********************************00490920
53: CBB** ********************** BBCINITB **********************************00500920
54: C**** INITIALIZE SECTION 00510920
55: DATA ZVERS, ZVERSD, ZDATE 00520920
56: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00530920
57: DATA ZCOMPL, ZNAME, ZTAPE 00540920
58: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00550920
59: DATA ZPROJ, ZTAPED, ZPROG 00560920
60: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00570920
61: DATA REMRKS /' '/ 00580920
62: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00590920
63: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00600920
64: C**** 00610920
65: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00620920
66: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00630920
67: CZ03 ZPROG = 'PROGRAM NAME' 00640920
68: ZDATE = '07-Nov-85 ' *RP
69: ZCOMPL = 'CCI 5.2 ' *RP
70: ZPROJ = 'TC-85- -410' *RP
71: ZNAME = ' ' *RP
72: ZTAPE = ' ' *RP
73: ZTAPED = '850703 ' *RP
74: C 00710920
75: IVPASS = 0 00720920
76: IVFAIL = 0 00730920
77: IVDELE = 0 00740920
78: IVINSP = 0 00750920
79: IVTOTL = 0 00760920
80: IVTOTN = 0 00770920
81: ICZERO = 0 00780920
82: C 00790920
83: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00800920
84: I01 = 05 00810920
85: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00820920
86: I02 = 06 00830920
87: C 00840920
88: I01 = 5 00850920
89: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00860920
90: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00870920
91: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00880920
92: C 00890920
93: I02 = 6 00900920
94: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00910920
95: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00920920
96: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00930920
97: C 00940920
98: CBE** ********************** BBCINITB **********************************00950920
99: C***** 00960920
100: C***** THE FOLLOWING STATEMENT MUST BE CHANGED IF 00970920
101: C***** THE UNIT GIVEN IS NOT CAPABLE OF BEING OPENED AS A 00980920
102: C***** SEQUENTIAL, UNFORMATTED FILE. 00990920
103: C***** 01000920
104: I05 = 14 01010920
105: OPEN(UNIT=I05,ACCESS='SEQUENTIAL',FORM='UNFORMATTED') 01020920
106: C X-050 I05 = NN WILL OVERRIDE DEFAULT I05 = 14 01030920
107: C 01040920
108: C***** THE FOLLOWING STATEMENT MUST BE CHANGED IF THE NAME 01050920
109: C***** GIVEN IS NOT A VALID FILE SPECIFIER FOR A SEQUENTIAL, 01060920
110: C***** UNFORMATTED FILE. 01070920
111: C***** 01080920
112: C CSEQ CONTAINS THE FILE NAME FOR UNIT I05. 01090920
113: CSEQ = ' SEQFILE' 01100920
114: C 01110920
115: CX191 REPLACED BY FEXEC X-191 CONTROL CARD. CX191 IS FOR SYSTEMS 01120920
116: C REQUIRING A DIFFERENT FILE SPECIFIER FOR FILES ASSOCIATED WITH 01130920
117: C X-050 THAN THE DEFAULT CSEQ = ' SEQFILE'. 01140920
118: C***** 01150920
119: NUVI = I02 01160920
120: IMVI = I05 01170920
121: ZPROG = 'FM920' 01180920
122: IVTOTL = 3 01190920
123: CBB** ********************** BBCHED0A **********************************01200920
124: C**** 01210920
125: C**** WRITE REPORT TITLE 01220920
126: C**** 01230920
127: WRITE (I02, 90002) 01240920
128: WRITE (I02, 90006) 01250920
129: WRITE (I02, 90007) 01260920
130: WRITE (I02, 90008) ZVERS, ZVERSD 01270920
131: WRITE (I02, 90009) ZPROG, ZPROG 01280920
132: WRITE (I02, 90010) ZDATE, ZCOMPL 01290920
133: CBE** ********************** BBCHED0A **********************************01300920
134: C***** 01310920
135: WRITE(NUVI,43900) 01320920
136: 43900 FORMAT(1H , / 30H INQF2 - (439) INQUIRE BY FILE// 01330920
137: 1 47H SEQUENTIAL UNFORMATTED FILE, CONNECTED BY OPEN// 01340920
138: 2 19H ANS REF. - 12.10.3) 01350920
139: CBB** ********************** BBCHED0B **********************************01360920
140: C**** WRITE DETAIL REPORT HEADERS 01370920
141: C**** 01380920
142: WRITE (I02,90004) 01390920
143: WRITE (I02,90004) 01400920
144: WRITE (I02,90013) 01410920
145: WRITE (I02,90014) 01420920
146: WRITE (I02,90015) IVTOTL 01430920
147: CBE** ********************** BBCHED0B **********************************01440920
148: C***** 01450920
149: C***** OPEN FILE 01460920
150: OPEN(FILE=CSEQ, UNIT=IMVI, ACCESS='SEQUENTIAL', 01470920
151: 1 FORM='UNFORMATTED') 01480920
152: C***** 01490920
153: CT001* TEST 1 - FIRST INQUIRE (AFTER OPEN) 01500920
154: IVTNUM = 1 01510920
155: INQUIRE(FILE=CSEQ, EXIST=AVB, OPENED=BVB, NUMBER=JVI, 01520920
156: 1 ACCESS=B10VK, SEQUENTIAL=C10VK, FORM=E11VK, 01530920
157: 2 UNFORMATTED=G10VK, ERR=20014, IOSTAT=IVI) 01540920
158: C***** 01550920
159: IF (IVI .NE. 0) GO TO 20010 01560920
160: IF (.NOT. AVB) GO TO 20010 01570920
161: IF (.NOT. BVB) GO TO 20010 01580920
162: IF (JVI .NE. IMVI) GO TO 20010 01590920
163: IF (B10VK .NE. 'SEQUENTIAL') GO TO 20010 01600920
164: IF (C10VK. NE. 'YES') GO TO 20010 01610920
165: IF (E11VK .NE. 'UNFORMATTED') GO TO 20010 01620920
166: IF (G10VK .NE. 'YES' ) GO TO 20010 01630920
167: WRITE (NUVI, 80002) IVTNUM 01640920
168: IVPASS = IVPASS + 1 01650920
169: GO TO 0011 01660920
170: 20014 CONTINUE 01670920
171: WRITE (NUVI, 20015) IVTNUM 01680920
172: 20015 FORMAT (1H ,2X,I3,4X,5H FAIL,12X, 01690920
173: 1 46HERROR IN EXECUTION OF INQUIRE STATEMENT (ERR=)/) 01700920
174: GO TO 20016 01710920
175: 20010 CONTINUE 01720920
176: WRITE (NUVI, 20011) IVTNUM 01730920
177: 20011 FORMAT(1H ,2X,I3,4X,5H FAIL,12X, 01740920
178: 1 29HERROR IN AN INQUIRE SPECIFIER/) 01750920
179: 20016 IVFAIL = IVFAIL + 1 01760920
180: WRITE (NUVI, 20012) IVI,AVB,BVB,JVI,B10VK,C10VK,E11VK, 01770920
181: 1 G10VK 01780920
182: 20012 FORMAT (1H ,16X,10HCOMPUTED: ,7HIOSTAT=,I1,8H, EXIST=,L1, 01790920
183: 1 9H ,OPENED=,L1,9H, NUMBER=,I4,1H,/ 01800920
184: 2 1H ,26X,7HACCESS=,A10,13H, SEQUENTIAL=,A3,7H, FORM=, 01810920
185: 3 A11,1H,/1H ,26X,12HUNFORMATTED=,A3) 01820920
186: WRITE (NUVI, 20013) IMVI 01830920
187: 20013 FORMAT (1H ,16X,10HCORRECT: ,19HIOSTAT=0, EXIST=T, , 01840920
188: 1 17HOPENED=T, NUMBER=,I4,1H,/ 01850920
189: 2 1H ,26X,40HACCESS=SEQUENTIAL, SEQUENTIAL=YES, FORM=, 01860920
190: 3 12HUNFORMATTED,/1H ,26X,15HUNFORMATTED=YES) 01870920
191: 0011 CONTINUE 01880920
192: C***** 01890920
193: C***** WRITE TO FILE 01900920
194: WRITE(IMVI) JVI 01910920
195: C***** 01920920
196: CT002* TEST 2 - SECOND INQUIRE (AFTER WRITE) 01930920
197: IVTNUM = 2 01940920
198: INQUIRE(FILE=CSEQ, EXIST=AVB, OPENED=BVB, NUMBER=JVI, 01950920
199: 1 ACCESS=B10VK, SEQUENTIAL=C10VK, FORM=E11VK, 01960920
200: 2 UNFORMATTED=G10VK, ERR=20024, IOSTAT=IVI) 01970920
201: C***** 01980920
202: IF (IVI .NE. 0) GO TO 20020 01990920
203: IF (.NOT. AVB) GO TO 20020 02000920
204: IF (.NOT. BVB) GO TO 20020 02010920
205: IF (JVI .NE. IMVI) GO TO 20020 02020920
206: IF (B10VK .NE. 'SEQUENTIAL') GO TO 20020 02030920
207: IF (C10VK.NE. 'YES') GO TO 20020 02040920
208: IF (E11VK .NE. 'UNFORMATTED') GO TO 20020 02050920
209: IF (G10VK .NE. 'YES' ) GO TO 20020 02060920
210: WRITE (NUVI, 80002) IVTNUM 02070920
211: IVPASS = IVPASS + 1 02080920
212: GO TO 0021 02090920
213: 20024 CONTINUE 02100920
214: WRITE (NUVI, 20025) IVTNUM 02110920
215: 20025 FORMAT (1H ,2X,I3,4X,5H FAIL,12X, 02120920
216: 1 46HERROR IN EXECUTION OF INQUIRE STATEMENT (ERR=)/) 02130920
217: GO TO 20026 02140920
218: 20020 CONTINUE 02150920
219: WRITE (NUVI, 20011) IVTNUM 02160920
220: 20021 FORMAT(1H ,2X,I3,4X,5H FAIL,12X, 02170920
221: 1 29HERROR IN AN INQUIRE SPECIFIER/) 02180920
222: 20026 IVFAIL = IVFAIL + 1 02190920
223: WRITE (NUVI, 20022) IVI,AVB,BVB,JVI,B10VK,C10VK,E11VK, 02200920
224: 1 G10VK 02210920
225: 20022 FORMAT (1H ,16X,10HCOMPUTED: ,7HIOSTAT=,I1,8H, EXIST=,L1, 02220920
226: 1 9H ,OPENED=,L1,9H, NUMBER=,I4,1H,/ 02230920
227: 2 1H ,26X,7HACCESS=,A10,13H, SEQUENTIAL=,A3,7H, FORM=, 02240920
228: 3 A11,1H,/1H ,26X,12HUNFORMATTED=,A3) 02250920
229: WRITE (NUVI, 20023) IMVI 02260920
230: 20023 FORMAT (1H ,16X,10HCORRECT: ,19HIOSTAT=0, EXIST=T, , 02270920
231: 1 17HOPENED=T, NUMBER=,I4,1H,/ 02280920
232: 2 1H ,26X,40HACCESS=SEQUENTIAL, SEQUENTIAL=YES, FORM=, 02290920
233: 3 12HUNFORMATTED,/1H ,26X,15HUNFORMATTED=YES) 02300920
234: 0021 CONTINUE 02310920
235: C***** 02320920
236: C***** REWIND AND READ FILE 02330920
237: REWIND IMVI 02340920
238: READ(IMVI) JVI 02350920
239: REWIND IMVI 02360920
240: C***** 02370920
241: CT003* TEST 3 - THIRD INQUIRE (AFTER READ) 02380920
242: IVTNUM = 3 02390920
243: INQUIRE(FILE=CSEQ, EXIST=AVB, OPENED=BVB, NUMBER=JVI, 02400920
244: 1 ACCESS=B10VK, SEQUENTIAL=C10VK, FORM=E11VK, 02410920
245: 2 UNFORMATTED=G10VK, ERR=20034, IOSTAT=IVI) 02420920
246: C***** 02430920
247: IF (IVI .NE. 0) GO TO 20030 02440920
248: IF (.NOT. AVB) GO TO 20030 02450920
249: IF (.NOT. BVB) GO TO 20030 02460920
250: IF (JVI .NE. IMVI) GO TO 20030 02470920
251: IF (B10VK .NE. 'SEQUENTIAL') GO TO 20030 02480920
252: IF (C10VK .NE. 'YES') GO TO 20030 02490920
253: IF (E11VK .NE. 'UNFORMATTED') GO TO 20030 02500920
254: IF (G10VK .NE. 'YES' ) GO TO 20030 02510920
255: WRITE (NUVI, 80002) IVTNUM 02520920
256: IVPASS = IVPASS + 1 02530920
257: GO TO 0031 02540920
258: 20034 CONTINUE 02550920
259: WRITE (NUVI, 20035) IVTNUM 02560920
260: 20035 FORMAT (1H ,2X,I3,4X,5H FAIL,12X, 02570920
261: 1 46HERROR IN EXECUTION OF INQUIRE STATEMENT (ERR=)/) 02580920
262: GO TO 20036 02590920
263: 20030 CONTINUE 02600920
264: WRITE (NUVI, 20031) IVTNUM 02610920
265: 20031 FORMAT(1H ,2X,I3,4X,5H FAIL,12X, 02620920
266: 1 29HERROR IN AN INQUIRE SPECIFIER/) 02630920
267: 20036 IVFAIL = IVFAIL + 1 02640920
268: WRITE (NUVI, 20032) IVI,AVB,BVB,JVI,B10VK,C10VK,E11VK, 02650920
269: 1 G10VK 02660920
270: 20032 FORMAT (1H ,16X,10HCOMPUTED: ,7HIOSTAT=,I1,8H, EXIST=,L1, 02670920
271: 1 9H ,OPENED=,L1,9H, NUMBER=,I4,1H,/ 02680920
272: 2 1H ,26X,7HACCESS=,A10,13H, SEQUENTIAL=,A3,7H, FORM=, 02690920
273: 3 A11,1H,/1H ,26X,12HUNFORMATTED=,A3) 02700920
274: WRITE (NUVI, 20033) IMVI 02710920
275: 20033 FORMAT (1H ,16X,10HCORRECT: ,19HIOSTAT=0, EXIST=T, , 02720920
276: 1 17HOPENED=T, NUMBER=,I4,1H,/ 02730920
277: 2 1H ,26X,40HACCESS=SEQUENTIAL, SEQUENTIAL=YES, FORM=, 02740920
278: 3 12HUNFORMATTED,/1H ,26X,15HUNFORMATTED=YES) 02750920
279: 0031 CONTINUE 02760920
280: C***** 02770920
281: CLOSE(UNIT=IMVI, STATUS='DELETE') 02780920
282: C***** 02790920
283: CBB** ********************** BBCSUM0 **********************************02800920
284: C**** WRITE OUT TEST SUMMARY 02810920
285: C**** 02820920
286: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 02830920
287: WRITE (I02, 90004) 02840920
288: WRITE (I02, 90014) 02850920
289: WRITE (I02, 90004) 02860920
290: WRITE (I02, 90020) IVPASS 02870920
291: WRITE (I02, 90022) IVFAIL 02880920
292: WRITE (I02, 90024) IVDELE 02890920
293: WRITE (I02, 90026) IVINSP 02900920
294: WRITE (I02, 90028) IVTOTN, IVTOTL 02910920
295: CBE** ********************** BBCSUM0 **********************************02920920
296: CBB** ********************** BBCFOOT0 **********************************02930920
297: C**** WRITE OUT REPORT FOOTINGS 02940920
298: C**** 02950920
299: WRITE (I02,90016) ZPROG, ZPROG 02960920
300: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 02970920
301: WRITE (I02,90019) 02980920
302: CBE** ********************** BBCFOOT0 **********************************02990920
303: CBB** ********************** BBCFMT0A **********************************03000920
304: C**** FORMATS FOR TEST DETAIL LINES 03010920
305: C**** 03020920
306: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 03030920
307: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 03040920
308: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 03050920
309: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 03060920
310: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 03070920
311: 1I6,/,1H ,15X,10HCORRECT= ,I6) 03080920
312: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03090920
313: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 03100920
314: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03110920
315: 1A21,/,1H ,16X,10HCORRECT= ,A21) 03120920
316: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 03130920
317: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 03140920
318: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 03150920
319: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 03160920
320: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 03170920
321: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 03180920
322: 80050 FORMAT (1H ,48X,A31) 03190920
323: CBE** ********************** BBCFMT0A **********************************03200920
324: CBB** ********************** BBCFMT0B **********************************03210920
325: C**** FORMAT STATEMENTS FOR PAGE HEADERS 03220920
326: C**** 03230920
327: 90002 FORMAT (1H1) 03240920
328: 90004 FORMAT (1H ) 03250920
329: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 03260920
330: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 03270920
331: 90008 FORMAT (1H ,21X,A13,A17) 03280920
332: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 03290920
333: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 03300920
334: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 03310920
335: 1 7X,7HREMARKS,24X) 03320920
336: 90014 FORMAT (1H ,46H----------------------------------------------, 03330920
337: 1 33H---------------------------------) 03340920
338: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 03350920
339: C**** 03360920
340: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 03370920
341: C**** 03380920
342: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 03390920
343: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 03400920
344: 1 A13) 03410920
345: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 03420920
346: C**** 03430920
347: C**** FORMAT STATEMENTS FOR RUN SUMMARY 03440920
348: C**** 03450920
349: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 03460920
350: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 03470920
351: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 03480920
352: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 03490920
353: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 03500920
354: CBE** ********************** BBCFMT0B **********************************03510920
355: C***** 03520920
356: C***** END OF TEST SEGMENT 439 03530920
357: STOP 03540920
358: END 03550920
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.