![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM111.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 FM111.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***********************************************************************00010111
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 00020111
6: C***** FM111 IOFMTS - (353) 00030111
7: C***** 00040111
8: C***********************************************************************00050111
9: C***** GENERAL PURPOSE SUBSET REFS00060111
10: C***** TO TEST ADDITIONAL FEATURES OF READ AND WRITE 12.8 00070111
11: C***** STATEMENTS, FORMATTED RECORDS AND FORMAT STATEMENTS 12.1.1 00080111
12: C***** FOR INTEGER AND REAL DATA TYPES 00090111
13: C***** TO TEST CHARACTER CONSTANTS AS FORMAT SPECIFIERS. 13.1.2 00100111
14: C***** RESTRICTIONS OBSERVED 00110111
15: C***** * H AND X DESCRIPTORS ARE NEVER REPEATED 13.2.1 00120111
16: C***** * FOR W.D DESCRIPTORS, D IS ALWAYS SPECIFIED AND 00130111
17: C***** W IS EQUAL TO OR GREATER THAN D 00140111
18: C***** * FIELD WIDTH IS NEVER ZERO 00150111
19: C***** * IF AN I/O LIST SPECIFIES AT LEAST ONE ITEM 13.3 00160111
20: C***** AT LEAST ONE REPEATABLE EDIT DESCRIPTOR MUST EXIST 00170111
21: C***** IN THE FORMAT SPECIFICATION 00180111
22: C***** * ITEMS IN I/O LIST CORRESPOND TO EDIT DESCRIPTORS 00190111
23: C***** * NEGATIVE OUTPUT VALUES ARE SIGNED 13.5.9 00200111
24: C***** * AN H EDIT DESCRIPTOR IS NEVER USED ON INPUT 13.5.2 00210111
25: C***** * IN THE INPUT FIELD, FOR THE IW EDIT DESCRIPTOR 13.5.9.1 00220111
26: C***** THE CHARACTER STRING MUST BE AN OPTIONALLY SIGNED 00230111
27: C***** INTEGER CONSTANT 00240111
28: C***** GENERAL COMMENTS 00250111
29: C***** PLUS SIGNS FOR INPUT FIELDS ARE USUALLY OMITTED 13.5.9 00260111
30: C INPUT DATA TO THIS SEGMENT CONSISTS OF 8 CARD IMAGES IN COL. 1 - 39 00270111
31: COL. 1-------------------------------------------46 00280111
32: CARD 1 111 2 2 3 3. 3E-1 44 5 5 6 . 67 . 78 8. 8E-1 00290111
33: CARD 2 9 9 00300111
34: CARD 3 2345 1 34512 45123 51234 00310111
35: CARD 4 2345 1 34512 45123 51234 00320111
36: CARD 5 00330111
37: CARD 6 246801357912345678901234 00340111
38: CARD 7 .10203040506070809010E+0233.33 00350111
39: CARD 8 1 2 3 4 5 6 00360111
40: C***** 00370111
41: C***** S P E C I F I C A T I O N S SEGMENT 353 00380111
42: C***** 00390111
43: INTEGER I2I(2,2), I3I(2,2,2), J3I(1,2,3) 00400111
44: REAL A1S(5) 00410111
45: CHARACTER*80 IDATA 00420111
46: C***** 00430111
47: C***** I N P U T - O U T P U T TAPE ASSIGNMENT STATEMENTS 00440111
48: CBB** ********************** BBCCOMNT **********************************00450111
49: C**** 00460111
50: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00470111
51: C**** VERSION 2.0 00480111
52: C**** 00490111
53: C**** 00500111
54: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00510111
55: C**** GENERAL SERVICES ADMINISTRATION 00520111
56: C**** FEDERAL SOFTWARE TESTING CENTER 00530111
57: C**** 5203 LEESBURG PIKE, SUITE 1100 00540111
58: C**** FALLS CHURCH, VA. 22041 00550111
59: C**** 00560111
60: C**** (703) 756-6153 00570111
61: C**** 00580111
62: CBE** ********************** BBCCOMNT **********************************00590111
63: CBB** ********************** BBCINITA **********************************00600111
64: C**** SPECIFICATION STATEMENTS 00610111
65: C**** 00620111
66: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00630111
67: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00640111
68: CBE** ********************** BBCINITA **********************************00650111
69: CBB** ********************** BBCINITB **********************************00660111
70: C**** INITIALIZE SECTION 00670111
71: DATA ZVERS, ZVERSD, ZDATE 00680111
72: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00690111
73: DATA ZCOMPL, ZNAME, ZTAPE 00700111
74: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00710111
75: DATA ZPROJ, ZTAPED, ZPROG 00720111
76: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00730111
77: DATA REMRKS /' '/ 00740111
78: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00750111
79: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00760111
80: C**** 00770111
81: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00780111
82: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00790111
83: CZ03 ZPROG = 'PROGRAM NAME' 00800111
84: ZDATE = '07-Nov-85 ' *RP
85: ZCOMPL = 'CCI 5.2 ' *RP
86: ZPROJ = 'TC-85- -410' *RP
87: ZNAME = ' ' *RP
88: ZTAPE = ' ' *RP
89: ZTAPED = '850703 ' *RP
90: C 00870111
91: IVPASS = 0 00880111
92: IVFAIL = 0 00890111
93: IVDELE = 0 00900111
94: IVINSP = 0 00910111
95: IVTOTL = 0 00920111
96: IVTOTN = 0 00930111
97: ICZERO = 0 00940111
98: C 00950111
99: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00960111
100: I01 = 05 00970111
101: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00980111
102: I02 = 06 00990111
103: C 01000111
104: I01 = 5 01010111
105: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 01020111
106: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 01030111
107: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 01040111
108: C 01050111
109: I02 = 6 01060111
110: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 01070111
111: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 01080111
112: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 01090111
113: C 01100111
114: CBE** ********************** BBCINITB **********************************01110111
115: IRVI = I01 01120111
116: NUVI = I02 01130111
117: C***** TOTAL NUMBER OF EXPECTED TEST 01140111
118: IVTOTL =4 01150111
119: ZPROG='FM111' 01160111
120: CBB** ********************** BBCHED0A **********************************01170111
121: C**** 01180111
122: C**** WRITE REPORT TITLE 01190111
123: C**** 01200111
124: WRITE (I02, 90002) 01210111
125: WRITE (I02, 90006) 01220111
126: WRITE (I02, 90007) 01230111
127: WRITE (I02, 90008) ZVERS, ZVERSD 01240111
128: WRITE (I02, 90009) ZPROG, ZPROG 01250111
129: WRITE (I02, 90010) ZDATE, ZCOMPL 01260111
130: CBE** ********************** BBCHED0A **********************************01270111
131: C***** HEADER FORMAT STATEMENT 01280111
132: WRITE(NUVI, 35300) 01290111
133: 35300 FORMAT(/1X, 35HIOFMTS - (353) ADDITIONAL FORMATTED/16X, 01300111
134: 1 14HDATA TRANSFERS,//2X, 01310111
135: 2 32HSUBSET REFS 12.9.5.2 13.1 13.5) 01320111
136: CBB** ********************** BBCHED0B **********************************01330111
137: C**** WRITE DETAIL REPORT HEADERS 01340111
138: C**** 01350111
139: WRITE (I02,90004) 01360111
140: WRITE (I02,90004) 01370111
141: WRITE (I02,90013) 01380111
142: WRITE (I02,90014) 01390111
143: WRITE (I02,90015) IVTOTL 01400111
144: CBE** ********************** BBCHED0B **********************************01410111
145: C***** 01420111
146: C******************************************************* 01430111
147: C**** TO DELETE A TEST USED CODE SHOWN IN TEST 1 * 01440111
148: C**** REPLACE THE DELETE COMMENT WITH DELETE CODE * 01450111
149: C******************************************************* 01460111
150: CT001* TEST 1 01470111
151: C***** TEST VARIOUS COMBINATION OF BZ AND BN EDIT 13.5.8 01480111
152: C***** DESCRIPTORS, INCLUDING USING EACH AS A LEADING 13.5.9(1)01490111
153: C***** DESCRIPTOR, AND PRECEDING IW, EW.D, AND FW.D DESCRIPTORS. 01500111
154: C***** BN AND BZ HAVE NO EFFECT ON OUTPUT. 13.5.8 01510111
155: C***** CARDS 1-2 01520111
156: C***** 01530111
157: IVTNUM = 1 01540111
158: C**** TO DELETE TEST 1 - CARDS 1 THRU 5 MUST BE BYPASS 01550111
159: C**** USE THE FOLLOWING CODE: 01560111
160: C**** IVDELE=IVDELE+1 01570111
161: C**** WRITE (NUVI,80000) IVTNUM 01580111
162: C**** DO 0031 IPASS=1,5 01590111
163: C0011 FORMAT (A80) 01600111
164: C**** READ (IRVI,0011) IDATA 01610111
165: C0031 CONTINUE 01620111
166: C**** COMMENT OUT OUT FOLLOWING LINES UNTIL NEXT TEST 01630111
167: C************************* 01640111
168: IVINSP=IVINSP+1 01650111
169: WRITE (NUVI,80004) IVTNUM 01660111
170: READ(IRVI, 35301)I2I(1,2), IVI, A1S(3), JVI, KVI, A1S(2), AVS, 01670111
171: 1 A1S(1), I2I(1,1) 01680111
172: 35301 FORMAT(BZ,(2I4, E10.1, BN, 2I4, F5.2, BZ, F5.2, BN, E10.1)) 01690111
173: WRITE(NUVI, 35302)I2I(1,2), IVI, A1S(3), JVI, KVI, A1S(2), AVS, 01700111
174: 1 A1S(1), I2I(1,1) 01710111
175: C****************************TEST 1 ******************** 01720111
176: 35302 FORMAT (1H ,10X,11HCOMPUTED: , 2I5, 1X, E10.5, BN, 2I5, F6.1, 01730111
177: 1 BZ, F6.2, BN, 1X, E8.3, I5) 01740111
178: 70010 FORMAT (1H ,10X,10HCORRECT: , 01750111
179: 1 44H 1110 2020 .30303E-07 44 55 6.6 70.07, 01760111
180: 2 14H .888E+01 99) 01770111
181: WRITE (NUVI,70010) 01780111
182: C***** CARDS 3-4 01790111
183: READ(IRVI, 35303) I3I(1,2,1), A1S(3), AVS, IVI, I2I(1,1), 01800111
184: 1 JVI, BVS, A1S(2), (I3I(KVI,1,1), KVI=1,2) 01810111
185: 35303 FORMAT(BZ, (I5, F5.0, BN, F5.2, 2I5)) 01820111
186: C***************************************************************** 01830111
187: WRITE(NUVI, 35304) I3I(1,2,1), A1S(3), AVS, IVI, I2I(1,1), 01840111
188: 1 JVI, BVS, A1S(2), I3I(1,1,1), I3I(2,1,1) 01850111
189: 35304 FORMAT ( /BN, 11X,11HCOMPUTED: , I5, F7.0, BZ, 1X, F5.2, 01860111
190: 1 2(1X,I4),I5, F7.0, BZ, 1X, F5.2, 2(1X, I4)) 01870111
191: 70011 FORMAT (1H ,10X,10HCORRECT: , 01880111
192: 1 29H 23450 10345. 12.45 1235 1234, 01890111
193: 2 28H 2345 1345. 12.45 1235 1234) 01900111
194: WRITE (NUVI,70011) 01910111
195: C**** CARD 5 01920111
196: CVS = -0.0044 01930111
197: READ(IRVI, 35305) IVI, AVS, A1S(2), JVI, BVS 01940111
198: 35305 FORMAT(BZ, I5, F5.1, BN, F5.1, I5, BZ, F5.1, I5) 01950111
199: C************************************************************** 01960111
200: WRITE(NUVI, 35306) IVI, AVS, A1S(2), JVI, BVS, CVS, CVS 01970111
201: 35306 FORMAT (/11X,11HCOMPUTED: , 01980111
202: 1 I5, 2(3X, F2.1), I5, 3X, E5.1E1, 3X, F2.1, 3X, E6.1E1) 01990111
203: 70012 FORMAT (1H ,10X,10HCORRECT: , 02000111
204: 1 43H 0 .0 .0 0 .0E+0 .0 -.4E-2/) 02010*TI
205: WRITE (NUVI,70012) 02020111
206: C***** 02030111
207: CT002* TEST 2 02040111
208: C***** TEST CASES WHERE THE NUMBER OF CHARACTERS TO BE 13.5.9(3) 02050111
209: C***** OUTPUT EXCEEDS THE SPECIFIED OUTPUT FIELD WIDTH, 02060111
210: C***** OR AN EXPONENT EXCEEDS ITS SPECIFIED LENGTH. 02070111
211: C*************************************** 02080111
212: IVTNUM = 2 02090111
213: C***** SEE NOTES TEST 1 TO DELETE TEST (NO READS REQUIRED) 02100111
214: IVINSP=IVINSP+1 02110111
215: WRITE (NUVI,80004) IVTNUM 02120111
216: AVS = 0.12345E+10 02130111
217: C********************************************************* 02140111
218: WRITE(NUVI, 35307) AVS, AVS, AVS, AVS, AVS 02150111
219: 35307 FORMAT (1H ,10X,10HCOMPUTED: , 02160111
220: 1 E9.5E1, 1X, E10.5E2, 1X, E11.5E3,1X,E11.5E4,1X,E10.5) 02170111
221: 70020 FORMAT (1H ,10X,10HCORRECT: , 02180111
222: 1 44H********* .12345E+10 .12345E+010 ***********, 02190111
223: 2 11H .12345E+10/) 02200111
224: WRITE (NUVI,70020) 02210111
225: CT003* TEST 3 02220111
226: C***** 02230111
227: C***** - TEST THAT FW.D AND EW.D MAY HAVE MORE DIGITS 13.5.9(2) 02240111
228: C***** ON INPUT THAN THE PROCESSOR CAN USE. 02250111
229: C***** - READ IN AN ARRAY USING AN IMPLIED DO-LOOP, AND 12.8.2.3 02260111
230: C***** AND TEST VALUE OF THE IMPLIED DO-PARAMETER. 11.10 02270111
231: C***** - USE AS A FORMAT AN INTEGER VARIABLE WHOSE VALUE 10.3 02280111
232: C***** IS ASSIGNED USING AN ASSIGNMENT STATEMENT. 12.4(2) 02290111
233: C***** - TEST THAT ON INPUT, THE X-EDIT DESCRIPTOR MAY 13.5.3 02300111
234: C***** SPECIFY A POSITION BEYOND COLUMN 80 IF THERE ARE 02310111
235: C***** NO MORE ITEMS IN THE I/O LIST. 02320111
236: C***** 02330111
237: IVTNUM = 3 02340111
238: C***** CARDS 6-7 02350111
239: C***** SEE NOTES TEST 1 TO DELETE TEST 02360111
240: C***** CARDS 6 & 7 MUST BE BYPASSED 02370111
241: IVINSP=IVINSP+1 02380111
242: WRITE (NUVI,80004) IVTNUM 02390111
243: ASSIGN 35308 TO JVI 02400111
244: 35308 FORMAT(2F5.2, F14.0 / E25.20, F5.2, 51X) 02410111
245: READ(IRVI, JVI) (A1S(IVI), IVI=1,5) 02420111
246: C************************************************************* 02430111
247: ASSIGN 35309 TO JVI 02440111
248: 35309 FORMAT (11X,10HCOMPUTED: ,I5,1X,F5.2) 02450111
249: 70030 FORMAT (1H ,10X,10HCORRECT: , 02460111
250: 1 11H 6 33.33/) 02470111
251: WRITE(NUVI, JVI) IVI, A1S(5) 02480111
252: WRITE (NUVI,70030) 02490111
253: C***** 02500111
254: CT004* TEST 4 02510111
255: C***** - TEST NESTING OF 3 LEVELS OF PARENTHESES WITHIN A 02520111
256: C***** FORMAT STATEMENT. 02530111
257: C***** - TEST DIFFERENT FORMS OF CHARACTER CONSTANTS USED 12.4(2)02540111
258: C***** AS A FORMAT SPECIFIER, INCLUDING BLANKS BEFORE 13.1.2 02550111
259: C***** THE FIRST PARENTHESIS, AND CHARCTERS AFTER THE 02560111
260: C***** LAST PARENTHESIS. 02570111
261: C***** - 2 CONSECUTIVE APOSTROPHES IN A H-EDIT DESCRIPTOR 13.5.2 02580111
262: C***** CARD 8 02590111
263: IVTNUM = 4 02600111
264: C***** SEE NOTES TEST 1 TO DELETE TEST 02610111
265: C***** NO READS REQUIRED 02620111
266: IVINSP=IVINSP+1 02630111
267: WRITE (NUVI,80004) IVTNUM 02640111
268: READ(IRVI, ' (3(1(2(I5))))') 02650111
269: 1 (((J3I(IVI,JVI,KVI),IVI=1,1),JVI=1,2),KVI=1,3) 02660111
270: C*************************************************** 02670111
271: WRITE(NUVI, 02680111
272: 1 '(/11X, 10HCOMPUTED: ,4(2X, I3) )JUNK') 02690111
273: 2 (J3I(1,2,IVI),IVI=1,3) 02700111
274: WRITE (NUVI, 02710111
275: 1 '(11X,10HCORRECT: , 15H 2 4 6) ') 02720111
276: WRITE (NUVI, 02730111
277: 1 '(/11X,9HCOMPUTED:,21H ''THAT''S ALL FOR NOW'')') 02740111
278: 70040 FORMAT (11X,10HCORRECT: , 02750111
279: 1 20H'THAT'S ALL FOR NOW') 02760111
280: WRITE (NUVI,70040) 02770111
281: C***** 02780111
282: 0041 CONTINUE 02790111
283: C***** END OF TEST SEGMENT 353 02800111
284: CBB** ********************** BBCSUM0 **********************************02810111
285: C**** WRITE OUT TEST SUMMARY 02820111
286: C**** 02830111
287: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 02840111
288: WRITE (I02, 90004) 02850111
289: WRITE (I02, 90014) 02860111
290: WRITE (I02, 90004) 02870111
291: WRITE (I02, 90020) IVPASS 02880111
292: WRITE (I02, 90022) IVFAIL 02890111
293: WRITE (I02, 90024) IVDELE 02900111
294: WRITE (I02, 90026) IVINSP 02910111
295: WRITE (I02, 90028) IVTOTN, IVTOTL 02920111
296: CBE** ********************** BBCSUM0 **********************************02930111
297: CBB** ********************** BBCFOOT0 **********************************02940111
298: C**** WRITE OUT REPORT FOOTINGS 02950111
299: C**** 02960111
300: WRITE (I02,90016) ZPROG, ZPROG 02970111
301: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 02980111
302: WRITE (I02,90019) 02990111
303: CBE** ********************** BBCFOOT0 **********************************03000111
304: CBB** ********************** BBCFMT0A **********************************03010111
305: C**** FORMATS FOR TEST DETAIL LINES 03020111
306: C**** 03030111
307: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 03040111
308: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 03050111
309: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 03060111
310: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 03070111
311: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 03080111
312: 1I6,/,1H ,15X,10HCORRECT= ,I6) 03090111
313: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03100111
314: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 03110111
315: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03120111
316: 1A21,/,1H ,16X,10HCORRECT= ,A21) 03130111
317: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 03140111
318: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 03150111
319: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 03160111
320: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 03170111
321: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 03180111
322: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 03190111
323: 80050 FORMAT (1H ,48X,A31) 03200111
324: CBE** ********************** BBCFMT0A **********************************03210111
325: CBB** ********************** BBCFMT0B **********************************03220111
326: C**** FORMAT STATEMENTS FOR PAGE HEADERS 03230111
327: C**** 03240111
328: 90002 FORMAT (1H1) 03250111
329: 90004 FORMAT (1H ) 03260111
330: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 03270111
331: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 03280111
332: 90008 FORMAT (1H ,21X,A13,A17) 03290111
333: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 03300111
334: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 03310111
335: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 03320111
336: 1 7X,7HREMARKS,24X) 03330111
337: 90014 FORMAT (1H ,46H----------------------------------------------, 03340111
338: 1 33H---------------------------------) 03350111
339: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 03360111
340: C**** 03370111
341: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 03380111
342: C**** 03390111
343: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 03400111
344: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 03410111
345: 1 A13) 03420111
346: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 03430111
347: C**** 03440111
348: C**** FORMAT STATEMENTS FOR RUN SUMMARY 03450111
349: C**** 03460111
350: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 03470111
351: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 03480111
352: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 03490111
353: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 03500111
354: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 03510111
355: CBE** ********************** BBCFMT0B **********************************03520111
356: STOP 03530111
357: END 03540111
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.