![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM915.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 FM915.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***********************************************************************00010915
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 00020915
6: C***** FM915 00030915
7: C***** INQU2 - (431) 00040915
8: C***** 00050915
9: C***********************************************************************00060915
10: C***** GENERAL PURPOSE ANS REF 00070915
11: C***** TEST INQUIRE ON SEQUENTIAL, UNFORMATTED FILES 12.10.3 00080915
12: C***** 00090915
13: C***** THE TESTS IN THIS UNIT ARE ONLY PERFORMED ON A 00100915
14: C***** UNIT THAT IS CONNECTED FOR SEQUENTIAL, UNFORMATTED ACCESS 00110915
15: C***** (ANS REF. 12.2.4.1 AND 12.9.5.1) 00120915
16: C***** THIS TEST PERFORMS AN EXPLICIT OPEN, AND PERFORMS 00130915
17: C***** A CLOSE WITH STATUS='DELETE' AT THE END OF THE SEGMENT. 00140915
18: C***** THE SEGMENT TESTS THAT INQUIRE IS PERFORMED CORRECTLY 00150915
19: C***** BEFORE READING OR WRITING TO A FILE, AFTER WRITING TO A FILE 00160915
20: C***** AND AFTER READING FROM A FILE. 00170915
21: C***********************************************************************00180915
22: CBB** ********************** BBCCOMNT **********************************00190915
23: C**** 00200915
24: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00210915
25: C**** VERSION 2.0 00220915
26: C**** 00230915
27: C**** 00240915
28: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00250915
29: C**** GENERAL SERVICES ADMINISTRATION 00260915
30: C**** FEDERAL SOFTWARE TESTING CENTER 00270915
31: C**** 5203 LEESBURG PIKE, SUITE 1100 00280915
32: C**** FALLS CHURCH, VA. 22041 00290915
33: C**** 00300915
34: C**** (703) 756-6153 00310915
35: C**** 00320915
36: CBE** ********************** BBCCOMNT **********************************00330915
37: LOGICAL AVB, BVB 00340915
38: CHARACTER*10 B10VK, C10VK, E11VK*11, G10VK 00350915
39: C***** 00360915
40: CBB** ********************** BBCINITA **********************************00370915
41: C**** SPECIFICATION STATEMENTS 00380915
42: C**** 00390915
43: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00400915
44: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00410915
45: CBE** ********************** BBCINITA **********************************00420915
46: CBB** ********************** BBCINITB **********************************00430915
47: C**** INITIALIZE SECTION 00440915
48: DATA ZVERS, ZVERSD, ZDATE 00450915
49: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00460915
50: DATA ZCOMPL, ZNAME, ZTAPE 00470915
51: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00480915
52: DATA ZPROJ, ZTAPED, ZPROG 00490915
53: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00500915
54: DATA REMRKS /' '/ 00510915
55: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00520915
56: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00530915
57: C**** 00540915
58: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00550915
59: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00560915
60: CZ03 ZPROG = 'PROGRAM NAME' 00570915
61: ZDATE = '07-Nov-85 ' *RP
62: ZCOMPL = 'CCI 5.2 ' *RP
63: ZPROJ = 'TC-85- -410' *RP
64: ZNAME = ' ' *RP
65: ZTAPE = ' ' *RP
66: ZTAPED = '850703 ' *RP
67: C 00640915
68: IVPASS = 0 00650915
69: IVFAIL = 0 00660915
70: IVDELE = 0 00670915
71: IVINSP = 0 00680915
72: IVTOTL = 0 00690915
73: IVTOTN = 0 00700915
74: ICZERO = 0 00710915
75: C 00720915
76: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00730915
77: I01 = 05 00740915
78: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00750915
79: I02 = 06 00760915
80: C 00770915
81: I01 = 5 00780915
82: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00790915
83: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00800915
84: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00810915
85: C 00820915
86: I02 = 6 00830915
87: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00840915
88: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00850915
89: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00860915
90: C 00870915
91: CBE** ********************** BBCINITB **********************************00880915
92: C***** 00890915
93: C***** THE FOLLOWING STATEMENT MUST BE CHANGED IF 00900915
94: C***** THE UNIT GIVEN IS NOT CAPABLE OF BEING OPENED AS A 00910915
95: C***** SEQUENTIAL, UNFORMATTED FILE. 00920915
96: C I05 CONTAINS THE UNIT NUMBER FOR A SEQUENTIAL UNFORMATTED FILE. 00930915
97: I05 = 14 00940915
98: OPEN(UNIT=I05,ACCESS='SEQUENTIAL',FORM='UNFORMATTED') 00950915
99: C SPECIFYING I05 = NN OVERRIDES THE DEFAULT I05 = 14. 00960915
100: C***** 00970915
101: NUVI = I02 00980915
102: IMVI = I05 00990915
103: ZPROG = 'FM915' 01000915
104: IVTOTL = 3 01010915
105: CBB** ********************** BBCHED0A **********************************01020915
106: C**** 01030915
107: C**** WRITE REPORT TITLE 01040915
108: C**** 01050915
109: WRITE (I02, 90002) 01060915
110: WRITE (I02, 90006) 01070915
111: WRITE (I02, 90007) 01080915
112: WRITE (I02, 90008) ZVERS, ZVERSD 01090915
113: WRITE (I02, 90009) ZPROG, ZPROG 01100915
114: WRITE (I02, 90010) ZDATE, ZCOMPL 01110915
115: CBE** ********************** BBCHED0A **********************************01120915
116: C***** 01130915
117: WRITE(NUVI,43100) 01140915
118: 43100 FORMAT(1H , / 30H INQU2 - (431) INQUIRE BY UNIT// 01150915
119: 1 47H SEQUENTIAL UNFORMATTED FILE, CONNECTED BY OPEN// 01160915
120: 2 19H ANS REF. - 12.10.3) 01170915
121: CBB** ********************** BBCHED0B **********************************01180915
122: C**** WRITE DETAIL REPORT HEADERS 01190915
123: C**** 01200915
124: WRITE (I02,90004) 01210915
125: WRITE (I02,90004) 01220915
126: WRITE (I02,90013) 01230915
127: WRITE (I02,90014) 01240915
128: WRITE (I02,90015) IVTOTL 01250915
129: CBE** ********************** BBCHED0B **********************************01260915
130: C***** 01270915
131: C***** OPEN FILE 01280915
132: C***** 01290915
133: OPEN(UNIT=IMVI, ACCESS='SEQUENTIAL', FORM='UNFORMATTED') 01300915
134: CT001* TEST 1 - FIRST INQUIRE (AFTER OPEN) 01310915
135: IVTNUM = 1 01320915
136: INQUIRE(UNIT=IMVI, EXIST=AVB, OPENED=BVB, NUMBER=JVI, 01330915
137: 1 ACCESS=B10VK, SEQUENTIAL=C10VK, FORM=E11VK, 01340915
138: 2 UNFORMATTED=G10VK, ERR=20014, IOSTAT=KVI) 01350915
139: C***** 01360915
140: IF (KVI .NE. 0) GO TO 20010 01370915
141: IF (.NOT. AVB) GO TO 20010 01380915
142: IF (.NOT. BVB) GO TO 20010 01390915
143: IF (JVI .NE. IMVI) GO TO 20010 01400915
144: IF (B10VK .NE. 'SEQUENTIAL') GO TO 20010 01410915
145: IF (C10VK. NE. 'YES') GO TO 20010 01420915
146: IF (E11VK .NE. 'UNFORMATTED') GO TO 20010 01430915
147: IF (G10VK .NE. 'YES' ) GO TO 20010 01440915
148: WRITE (NUVI, 80002) IVTNUM 01450915
149: IVPASS = IVPASS + 1 01460915
150: GO TO 0011 01470915
151: 20014 CONTINUE 01480915
152: WRITE (NUVI, 20015) IVTNUM 01490915
153: 20015 FORMAT (1H ,2X,I3,4X,5H FAIL,12X, 01500915
154: 1 46HERROR IN EXECUTION OF INQUIRE STATEMENT (ERR=)/) 01510915
155: GO TO 20016 01520915
156: 20010 CONTINUE 01530915
157: WRITE (NUVI, 20011) IVTNUM 01540915
158: 20011 FORMAT(1H ,2X,I3,4X,5H FAIL,12X, 01550915
159: 1 29HERROR IN AN INQUIRE SPECIFIER/) 01560915
160: 20016 IVFAIL = IVFAIL + 1 01570915
161: WRITE (NUVI, 20012) KVI,AVB,BVB,JVI,B10VK,C10VK,E11VK, 01580915
162: 1 G10VK 01590915
163: 20012 FORMAT (1H ,16X,10HCOMPUTED: ,7HIOSTAT=,I1,8H, EXIST=,L1, 01600915
164: 1 9H ,OPENED=,L1,9H, NUMBER=,I4,1H,/ 01610915
165: 2 1H ,26X,7HACCESS=,A10,13H, SEQUENTIAL=,A3,7H, FORM=, 01620915
166: 3 A11,1H,/1H ,26X,12HUNFORMATTED=,A3) 01630915
167: WRITE (NUVI, 20013) IMVI 01640915
168: 20013 FORMAT (1H ,16X,10HCORRECT: ,19HIOSTAT=0, EXIST=T, , 01650915
169: 1 17HOPENED=T, NUMBER=,I4,1H,/ 01660915
170: 2 1H ,26X,40HACCESS=SEQUENTIAL, SEQUENTIAL=YES, FORM=, 01670915
171: 3 12HUNFORMATTED,/1H ,26X,15HUNFORMATTED=YES) 01680915
172: 0011 CONTINUE 01690915
173: C***** 01700915
174: C***** WRITE TO FILE 01710915
175: C***** 01720915
176: WRITE(IMVI) JVI 01730915
177: CT002* TEST 2 - SECOND INQUIRE (AFTER WRITE) 01740915
178: IVTNUM = 2 01750915
179: INQUIRE(UNIT=IMVI, EXIST=AVB, OPENED=BVB, NUMBER=JVI, 01760915
180: 1 ACCESS=B10VK, SEQUENTIAL=C10VK, FORM=E11VK, 01770915
181: 2 UNFORMATTED=G10VK, ERR=20024, IOSTAT=KVI) 01780915
182: C***** 01790915
183: IF (KVI .NE. 0) GO TO 20020 01800915
184: IF (.NOT. AVB) GO TO 20020 01810915
185: IF (.NOT. BVB) GO TO 20020 01820915
186: IF (JVI .NE. IMVI) GO TO 20020 01830915
187: IF (B10VK .NE. 'SEQUENTIAL') GO TO 20020 01840915
188: IF (C10VK.NE. 'YES') GO TO 20020 01850915
189: IF (E11VK .NE. 'UNFORMATTED') GO TO 20020 01860915
190: IF (G10VK .NE. 'YES' ) GO TO 20020 01870915
191: WRITE (NUVI, 80002) IVTNUM 01880915
192: IVPASS = IVPASS + 1 01890915
193: GO TO 0021 01900915
194: 20024 CONTINUE 01910915
195: WRITE (NUVI, 20025) IVTNUM 01920915
196: 20025 FORMAT (1H ,2X,I3,4X,5H FAIL,12X, 01930915
197: 1 46HERROR IN EXECUTION OF INQUIRE STATEMENT (ERR=)/) 01940915
198: GO TO 20026 01950915
199: 20020 CONTINUE 01960915
200: WRITE (NUVI, 20021) IVTNUM 01970915
201: 20021 FORMAT(1H ,2X,I3,4X,5H FAIL,12X, 01980915
202: 1 29HERROR IN AN INQUIRE SPECIFIER/) 01990915
203: 20026 IVFAIL = IVFAIL + 1 02000915
204: WRITE (NUVI, 20022) KVI,AVB,BVB,JVI,B10VK,C10VK,E11VK, 02010915
205: 1 G10VK 02020915
206: 20022 FORMAT (1H ,16X,10HCOMPUTED: ,7HIOSTAT=,I1,8H, EXIST=,L1, 02030915
207: 1 9H ,OPENED=,L1,9H, NUMBER=,I4,1H,/ 02040915
208: 2 1H ,26X,7HACCESS=,A10,13H, SEQUENTIAL=,A3,7H, FORM=, 02050915
209: 3 A11,1H,/1H ,26X,12HUNFORMATTED=,A3) 02060915
210: WRITE (NUVI, 20023) IMVI 02070915
211: 20023 FORMAT (1H ,16X,10HCORRECT: ,19HIOSTAT=0, EXIST=T, , 02080915
212: 1 17HOPENED=T, NUMBER=,I4,1H,/ 02090915
213: 2 1H ,26X,40HACCESS=SEQUENTIAL, SEQUENTIAL=YES, FORM=, 02100915
214: 3 12HUNFORMATTED,/1H ,26X,15HUNFORMATTED=YES) 02110915
215: 0021 CONTINUE 02120915
216: C***** 02130915
217: C***** REWIND AND READ FILE 02140915
218: REWIND IMVI 02150915
219: READ(IMVI) JVI 02160915
220: REWIND IMVI 02170915
221: C***** 02180915
222: CT003* TEST 3 - THIRD INQUIRE (AFTER READ) 02190915
223: IVTNUM = 3 02200915
224: INQUIRE(UNIT=IMVI, EXIST=AVB, OPENED=BVB, NUMBER=JVI, 02210915
225: 1 ACCESS=B10VK, SEQUENTIAL=C10VK, FORM=E11VK, 02220915
226: 2 UNFORMATTED=G10VK, ERR=20034,IOSTAT=KVI) 02230915
227: C***** 02240915
228: IF (KVI .NE. 0) GO TO 20030 02250915
229: IF (.NOT. AVB) GO TO 20030 02260915
230: IF (.NOT. BVB) GO TO 20030 02270915
231: IF (JVI .NE. IMVI) GO TO 20030 02280915
232: IF (B10VK .NE. 'SEQUENTIAL') GO TO 20030 02290915
233: IF (C10VK .NE. 'YES') GO TO 20030 02300915
234: IF (E11VK .NE. 'UNFORMATTED') GO TO 20030 02310915
235: IF (G10VK .NE. 'YES' ) GO TO 20030 02320915
236: WRITE (NUVI, 80002) IVTNUM 02330915
237: IVPASS = IVPASS + 1 02340915
238: GO TO 0031 02350915
239: 20034 CONTINUE 02360915
240: WRITE (NUVI, 20035) IVTNUM 02370915
241: 20035 FORMAT (1H ,2X,I3,4X,5H FAIL,12X, 02380915
242: 1 46HERROR IN EXECUTION OF INQUIRE STATEMENT (ERR=)/) 02390915
243: GO TO 20036 02400915
244: 20030 CONTINUE 02410915
245: WRITE (NUVI, 20031) IVTNUM 02420915
246: 20031 FORMAT(1H ,2X,I3,4X,5H FAIL,12X, 02430915
247: 1 29HERROR IN AN INQUIRE SPECIFIER/) 02440915
248: 20036 IVFAIL = IVFAIL + 1 02450915
249: WRITE (NUVI, 20032) KVI,AVB,BVB,JVI,B10VK,C10VK,E11VK, 02460915
250: 1 G10VK 02470915
251: 20032 FORMAT (1H ,16X,10HCOMPUTED: ,7HIOSTAT=,I1,8H, EXIST=,L1, 02480915
252: 1 9H ,OPENED=,L1,9H, NUMBER=,I4,1H,/ 02490915
253: 2 1H ,26X,7HACCESS=,A10,13H, SEQUENTIAL=,A3,7H, FORM=, 02500915
254: 3 A11,1H,/1H ,26X,12HUNFORMATTED=,A3) 02510915
255: WRITE (NUVI, 20033) IMVI 02520915
256: 20033 FORMAT (1H ,16X,10HCORRECT: ,19HIOSTAT=0, EXIST=T, , 02530915
257: 1 17HOPENED=T, NUMBER=,I4,1H,/ 02540915
258: 2 1H ,26X,40HACCESS=SEQUENTIAL, SEQUENTIAL=YES, FORM=, 02550915
259: 3 12HUNFORMATTED,/1H ,26X,15HUNFORMATTED=YES) 02560915
260: 0031 CONTINUE 02570915
261: CLOSE(UNIT=IMVI, STATUS='DELETE') 02580915
262: C***** 02590915
263: CBB** ********************** BBCSUM0 **********************************02600915
264: C**** WRITE OUT TEST SUMMARY 02610915
265: C**** 02620915
266: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 02630915
267: WRITE (I02, 90004) 02640915
268: WRITE (I02, 90014) 02650915
269: WRITE (I02, 90004) 02660915
270: WRITE (I02, 90020) IVPASS 02670915
271: WRITE (I02, 90022) IVFAIL 02680915
272: WRITE (I02, 90024) IVDELE 02690915
273: WRITE (I02, 90026) IVINSP 02700915
274: WRITE (I02, 90028) IVTOTN, IVTOTL 02710915
275: CBE** ********************** BBCSUM0 **********************************02720915
276: CBB** ********************** BBCFOOT0 **********************************02730915
277: C**** WRITE OUT REPORT FOOTINGS 02740915
278: C**** 02750915
279: WRITE (I02,90016) ZPROG, ZPROG 02760915
280: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 02770915
281: WRITE (I02,90019) 02780915
282: CBE** ********************** BBCFOOT0 **********************************02790915
283: CBB** ********************** BBCFMT0A **********************************02800915
284: C**** FORMATS FOR TEST DETAIL LINES 02810915
285: C**** 02820915
286: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 02830915
287: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 02840915
288: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 02850915
289: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 02860915
290: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 02870915
291: 1I6,/,1H ,15X,10HCORRECT= ,I6) 02880915
292: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02890915
293: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 02900915
294: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02910915
295: 1A21,/,1H ,16X,10HCORRECT= ,A21) 02920915
296: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 02930915
297: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 02940915
298: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 02950915
299: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 02960915
300: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 02970915
301: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 02980915
302: 80050 FORMAT (1H ,48X,A31) 02990915
303: CBE** ********************** BBCFMT0A **********************************03000915
304: CBB** ********************** BBCFMAT1 **********************************03010915
305: C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 03020915
306: C**** 03030915
307: 80031 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03040915
308: 1D17.10,/,1H ,16X,10HCORRECT= ,D17.10) 03050915
309: 80033 FORMAT (1H ,16X,10HCOMPUTED= ,D17.10,10X,A31) 03060915
310: 80035 FORMAT (1H ,16X,10HCORRECT= ,D17.10,10X,A31) 03070915
311: 80037 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 03080915
312: 80039 FORMAT (1H ,16X,10HCORRECT= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 03090915
313: 80041 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 03100915
314: 80043 FORMAT (1H ,16X,10HCORRECT= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 03110915
315: 80045 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03120915
316: 11H(,F12.5,2H, ,F12.5,1H)/,1H ,16X,10HCORRECT= , 03130915
317: 21H(,F12.5,2H, ,F12.5,1H)) 03140915
318: CBE** ********************** BBCFMAT1 **********************************03150915
319: CBB** ********************** BBCFMT0B **********************************03160915
320: C**** FORMAT STATEMENTS FOR PAGE HEADERS 03170915
321: C**** 03180915
322: 90002 FORMAT (1H1) 03190915
323: 90004 FORMAT (1H ) 03200915
324: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 03210915
325: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 03220915
326: 90008 FORMAT (1H ,21X,A13,A17) 03230915
327: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 03240915
328: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 03250915
329: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 03260915
330: 1 7X,7HREMARKS,24X) 03270915
331: 90014 FORMAT (1H ,46H----------------------------------------------, 03280915
332: 1 33H---------------------------------) 03290915
333: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 03300915
334: C**** 03310915
335: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 03320915
336: C**** 03330915
337: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 03340915
338: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 03350915
339: 1 A13) 03360915
340: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 03370915
341: C**** 03380915
342: C**** FORMAT STATEMENTS FOR RUN SUMMARY 03390915
343: C**** 03400915
344: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 03410915
345: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 03420915
346: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 03430915
347: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 03440915
348: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 03450915
349: CBE** ********************** BBCFMT0B **********************************03460915
350: C***** 03470915
351: C***** END OF TEST SEGMENT 431 03480915
352: STOP 03490915
353: END 03500915
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.