![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM106.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 FM106.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 COMMENT SECTION. 00010106
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 00020106
6: C FM106 00030106
7: C 00040106
8: C THIS ROUTINE IS A TEST OF THE E FORMAT AND IS TAPE AND PRINTER00050106
9: C ORIENTED. THE ROUTINE CAN ALSO BE USED FOR DISK. BOTH THE READ 00060106
10: C AND WRITE STATEMENTS ARE TESTED. VARIABLES IN THE INPUT AND 00070106
11: C OUTPUT LISTS ARE REAL VARIABLES AND REAL ARRAY ELEMENTS OR 00080106
12: C ARRAY NAME REFERENCES. ALL READ AND WRITE STATEMENTS ARE DONE 00090106
13: C WITH FORMAT STATEMENTS. THE ROUTINE HAS AN OPTIONAL SECTION OF 00100106
14: C CODE TO DUMP THE FILE AFTER IT HAS BEEN WRITTEN. DO LOOPS AND 00110106
15: C DO-IMPLIED LISTS ARE USED IN CONJUNCTION WITH A ONE DIMENSIONAL 00120106
16: C INTEGER ARRAY FOR THE DUMP SECTION. 00130106
17: C 00140106
18: C THIS ROUTINE WRITES A SINGLE SEQUENTIAL FILE WHICH IS 00150106
19: C REWOUND AND READ SEQUENTIALLY FORWARD. EVERY FOURTH RECORD IS 00160106
20: C CHECKED DURING THE READ TEST SECTION PLUS THE LAST TWO RECORDS 00170106
21: C AND THE END OF FILE ON THE LAST RECORD. 00180106
22: C 00190106
23: C THE LINE CONTINUATION IN COLUMN 6 IS USED IN READ, WRITE, 00200106
24: C AND FORMAT STATEMENTS. FOR BOTH SYNTAX AND SEMANTIC TESTS, ALL 00210106
25: C STATEMENTS SHOULD BE CHECKED VISUALLY FOR THE PROPER FUNCTIONING 00220106
26: C OF THE CONTINUATION LINE. 00230106
27: C 00240106
28: C REFERENCES 00250106
29: C AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN, 00260106
30: C X3.9-1978 00270106
31: C 00280106
32: C SECTION 8, SPECIFICATION STATEMENTS 00290106
33: C SECTION 9, DATA STATEMENT 00300106
34: C SECTION 11.10, DO STATEMENT 00310106
35: C SECTION 12, INPUT/OUTPUT STATEMENTS 00320106
36: C SECTION 12.8.2, INPUT/OUTPUT LIST 00330106
37: C SECTION 12.9.5.2, FORMATTED DATA TRANSFER 00340106
38: C SECTION 13, FORMAT STATEMENT 00350106
39: C SECTION 13.2.1, EDIT DESCRIPTORS 00360106
40: C 00370106
41: DIMENSION ITEST(7), RTEST(20) 00380106
42: DIMENSION IDUMP(136) 00390106
43: CHARACTER*1 NINE,IDUMP 00400106
44: DATA NINE/'9'/ 00410106
45: C 00420106
46: 77701 FORMAT ( 110A1) 00430106
47: 77702 FORMAT (10X,19HPREMATURE EOF ONLY ,I3,13H RECORDS LUN ,I2,8H OUT O00440106
48: 1F ,I3,8H RECORDS) 00450106
49: 77703 FORMAT (10X,12HFILE ON LUN ,I2,7H OK... ,I3,8H RECORDS) 00460106
50: 77704 FORMAT (10X,12HFILE ON LUN ,I2,20H TOO LONG MORE THAN ,I3,8H RECOR00470106
51: 1DS) 00480106
52: 77705 FORMAT ( 1X,80A1,3(/ 10X,71A1) ) 00490106
53: 77706 FORMAT ( 10X, 44HFILE I09 CREATED WITH 124 SEQUENTIAL RECORDS ) 00500106
54: 77751 FORMAT ( I3,2I2,3I3,I4,3X,2E8.1,2X,3E9.2,2X,E10.3/24X,3E10.3,4X,2E00510106
55: 111.4,/1X,3E11.4,2X,2E12.5/26X,4E12.5,6X ) 00520106
56: C 00530106
57: C 00540106
58: C ********************************************************** 00550106
59: C 00560106
60: C A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE 00570106
61: C BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN NATIONAL STANDARD 00580106
62: C PROGRAMMING LANGUAGE FORTRAN X3.9-1978, HAS BEEN DEVELOPED BY THE 00590106
63: C FEDERAL COBOL COMPILER TESTING SERVICE. THE FORTRAN COMPILER 00600106
64: C VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT ROUTINES, THEIR RELATED00610106
65: C DATA, AND AN EXECUTIVE SYSTEM. EACH AUDIT ROUTINE IS A FORTRAN 00620106
66: C PROGRAM, SUBPROGRAM OR FUNCTION WHICH INCLUDES TESTS OF SPECIFIC 00630106
67: C LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING THE RESULT 00640106
68: C OF EXECUTING THESE TESTS. 00650106
69: C 00660106
70: C THIS PARTICULAR PROGRAM/SUBPROGRAM/FUNCTION CONTAINS FEATURES 00670106
71: C FOUND ONLY IN THE SUBSET AS DEFINED IN X3.9-1978. 00680106
72: C 00690106
73: C SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO - 00700106
74: C 00710106
75: C DEPARTMENT OF THE NAVY 00720106
76: C FEDERAL COBOL COMPILER TESTING SERVICE 00730106
77: C WASHINGTON, D.C. 20376 00740106
78: C 00750106
79: C ********************************************************** 00760106
80: C 00770106
81: C 00780106
82: C 00790106
83: C INITIALIZATION SECTION 00800106
84: C 00810106
85: C INITIALIZE CONSTANTS 00820106
86: C ************** 00830106
87: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00840106
88: I01 = 5 00850106
89: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00860106
90: I02 = 6 00870106
91: C SYSTEM ENVIRONMENT SECTION 00880106
92: C 00890106
93: I01 = 5 00900106
94: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00910106
95: C (UNIT NUMBER FOR CARD READER). 00920106
96: CX011 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD. 00930106
97: C THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00940106
98: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE. 00950106
99: C 00960106
100: I02 = 6 00970106
101: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6 00980106
102: C (UNIT NUMBER FOR PRINTER). 00990106
103: CX021 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD. 01000106
104: C THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 01010106
105: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE. 01020106
106: C 01030106
107: IVPASS=0 01040106
108: IVFAIL=0 01050106
109: IVDELE=0 01060106
110: ICZERO=0 01070106
111: C 01080106
112: C WRITE PAGE HEADERS 01090106
113: WRITE (I02,90000) 01100106
114: WRITE (I02,90001) 01110106
115: WRITE (I02,90002) 01120106
116: WRITE (I02, 90002) 01130106
117: WRITE (I02,90003) 01140106
118: WRITE (I02,90002) 01150106
119: WRITE (I02,90004) 01160106
120: WRITE (I02,90002) 01170106
121: WRITE (I02,90011) 01180106
122: WRITE (I02,90002) 01190106
123: WRITE (I02,90002) 01200106
124: WRITE (I02,90005) 01210106
125: WRITE (I02,90006) 01220106
126: WRITE (I02,90002) 01230106
127: C 01240106
128: C DEFAULT ASSIGNMENT FOR FILE 07 IS I09 = 7 01250106
129: I09 = 7 01260106
130: OPEN(UNIT=I09,ACCESS='SEQUENTIAL',FORM='FORMATTED') 01270106
131: CX091 THIS CARD IS REPLACED BY THE CONTENTS OF CARD X-091 01280106
132: C 01290106
133: C WRITE SECTION.... 01300106
134: C 01310106
135: C THIS SECTION OF CODE BUILDS A UNIT RECORD FILE ON LUN I09 THAT IS 01320106
136: C 80 CHARACTERS PER RECORD, 124 RECORDS AND CONSISTS OF ONLY 01330106
137: C REALS ( E FORMAT ). THIS IS THE ONLY FILE TESTED IN THE 01340106
138: C ROUTINE FM106 AND FOR PURPOSES OF IDENTIFICATION IS FILE 07. 01350106
139: C ALL OF THE DATA WITH THE EXCEPTION OF THE 20 CHARACTER INTEGER 01360106
140: C PREAMBLE FOR EACH RECORD, IS COMPRISED OF REAL VARIABLES SET BY 01370106
141: C REAL ASSIGNMENT STATEMENTS TO VARIOUS REAL CONSTANTS. 01380106
142: C 01390106
143: C ALL THE THE REAL CONSTANTS USED ARE POSITIVE, I.E. NO SIGN. 01400106
144: C 01410106
145: IPROG = 106 01420106
146: IFILE = 07 01430106
147: ILUN = I09 01440106
148: C THERE ARE 31 SETS OF FOUR 80 CHARACTER RECORDS EACH.. 01450106
149: C EACH WRITE OR READ OF THE FILE HANDLES 4 RECORDS. FOR THE 01460106
150: C PURPOSES OF THE OPTIONAL DUMP OF FILE 07, THE TOTAL NUMBER OF 01470106
151: C 80 CHARACTER RECORDS IS 4 * 31 = 124 RECORDS. 01480106
152: ITOTR = 124 01490106
153: IRLGN = 80 01500106
154: IEOF = 0000 01510106
155: C SET THE REAL VARIABLES USING E - NOTATION.... 01520106
156: RCON21 = 0.9E01 01530106
157: RCON22 = 0.9E00 01540106
158: RCON31 = 0.21E02 01550106
159: RCON32 = 0.21E01 01560106
160: RCON33 = 0.21E00 01570106
161: RCON41 = 0.512E03 01580106
162: RCON42 = 0.512E02 01590106
163: RCON43 = 0.512E01 01600106
164: RCON44 = 0.512E00 01610106
165: RCON51 = 0.9995E04 01620106
166: RCON52 = 0.9996E03 01630106
167: RCON53 = 0.9997E02 01640106
168: RCON54 = 0.9998E01 01650106
169: RCON55 = 0.9999E00 01660106
170: RCON61 = 0.32764E05 01670106
171: RCON62 = 0.32765E04 01680106
172: RCON63 = 0.32766E03 01690106
173: RCON64 = 0.32767E02 01700106
174: RCON65 = 0.32768E01 01710106
175: RCON66 = 0.32769E00 01720106
176: DO 1032 IRNUM = 1, 31 01730106
177: IF ( IRNUM .EQ. 31 ) IEOF = 9999 01740106
178: WRITE(I09,77751)IPROG,IFILE,ILUN,IRNUM,ITOTR,IRLGN,IEOF,RCON21,RCO01750106
179: 1N22,RCON31,RCON32,RCON33,RCON41,RCON42,RCON43,RCON44,RCON51,RCON5201760106
180: 2,RCON53,RCON54,RCON55,RCON61,RCON62,RCON63,RCON64,RCON65,RCON66 01770106
181: 1032 CONTINUE 01780106
182: WRITE (I02,77706) 01790106
183: C 01800106
184: C REWIND SECTION 01810106
185: C 01820106
186: REWIND I09 01830106
187: C 01840106
188: C READ SECTION.... 01850106
189: C 01860106
190: IVTNUM = 103 01870106
191: C 01880106
192: C **** TEST 103 THRU TEST 110 **** 01890106
193: C TEST 103 THRU 110 - THESE TESTS READ THE SEQUENTIAL FILE 01900106
194: C PREVIOUSLY WRITTEN ON LUN I09 AND CHECK THE FIRST AND EVERY FOURTH01910106
195: C RECORD. THE VALUES CHECKED ARE THE RECORD NUMBER - IRNUM AND 01920106
196: C SEVERAL VALUES WHICH SHOULD REMAIN CONSTANT FOR ALL OF THE 31 01930106
197: C SETS OF 4 RECORDS. 01940106
198: C 01950106
199: IRTST = 1 01960106
200: READ ( I09, 77751) ITEST, RTEST 01970106
201: C READ THE FIRST RECORD.... 01980106
202: DO 1034 I = 1, 8 01990106
203: IVON01 = 0 02000106
204: C THE INTEGER VARIABLE IS INITIALIZED TO ZERO FOR EACH TEST 1 THRU 802010106
205: IF ( ITEST(4) .EQ. IRTST ) IVON01 = IVON01 + 1 02020106
206: C THE ELEMENT (4) SHOULD EQUAL THE RECORD NUMBER.... 02030106
207: C THE ERROR TOLERANCE IS BASED ON A SIXTEEN BIT MANTISSA AND 02040106
208: C PROVIDES SOME ALLOWANCE FOR THE IMPLEMENTORS INPUT, OUTPUT, AND 02050106
209: C STORAGE OF REAL NUMBERS.... 02060106
210: IF(RTEST(1) .GE. 8.9995 .OR. RTEST(1) .LE. 9.0005) IVON01=IVON01+102070106
211: C THE ELEMENT(1) SHOULD EQUAL RCON21 = 9. .... 02080106
212: IF(RTEST(4) .GE. 2.0995 .OR. RTEST(4) .LE. 2.1005) IVON01=IVON01+102090106
213: C THE ELEMENT( 4) SHOULD EQUAL RCON32 = 2.1 .... 02100106
214: IF(RTEST(9) .GE. .51195 .OR. RTEST(9) .LE. .51205) IVON01=IVON01+102110106
215: C THE ELEMENT( 9) SHOULD EQUAL RCON44 = .512 .... 02120106
216: IF ( RTEST(13) .GE. 9.9975 .OR. RTEST(13) .LE. 9.9985 ) 02130106
217: 1 IVON01 = IVON01 + 1 02140106
218: C THE ELEMENT(13) SHOULD EQUAL RCON54 = 9.998 .... 02150106
219: IF ( RTEST(20) .GE. .32764 .OR. RTEST(20) .LE. .32774 ) 02160106
220: 1 IVON01 = IVON01 + 1 02170106
221: C THE ELEMENT(20) SHOULD EQUAL RCON66 = .32769 .... 02180106
222: IF ( IVON01 - 6 ) 21030, 11030, 21030 02190106
223: C WHEN IVON01 = 6 THEN ALL SIX OF THE ITEST ELEMENTS THAT WERE 02200106
224: C CHECKED HAD THE EXPECTED VALUES.... IF IVON01 DOES NOT EQUAL 6 02210106
225: C THEN AT LEAST ONE OF THE VALUES WAS INCORRECT.... 02220106
226: 11030 IVPASS = IVPASS + 1 02230106
227: WRITE (I02,80001) IVTNUM 02240106
228: GO TO 1041 02250106
229: 21030 IVFAIL = IVFAIL + 1 02260106
230: IVCOMP = IVON01 02270106
231: IVCORR = 6 02280106
232: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02290106
233: 1041 CONTINUE 02300106
234: IVTNUM = IVTNUM + 1 02310106
235: C INCREMENT THE TEST NUMBER.... 02320106
236: IF ( IVTNUM .EQ. 111 ) GO TO 1035 02330106
237: C TAPE SHOULD BE AT RECORD NUMBER 29 FOR TEST 110 - DO NOT READ MORE02340106
238: C UNTIL TEST NUMBER 111 WHICH CHECKS RECORD NUMBER 30.... 02350106
239: DO 1033 J = 1, 4 02360106
240: READ ( I09, 77751 ) ITEST, RTEST 02370106
241: C READ FOUR SETS OF RECORDS ON LUN I09.... 02380106
242: 1033 CONTINUE 02390106
243: IRTST = IRTST + 4 02400106
244: C INCREMENT THE RECORD NUMBER COUNTER.... 02410106
245: 1034 CONTINUE 02420106
246: IF ( ICZERO ) 31030, 1035, 31030 02430106
247: 31030 IVDELE = IVDELE + 1 02440106
248: WRITE (I02,80003) IVTNUM 02450106
249: 1035 CONTINUE 02460106
250: IVTNUM = 111 02470106
251: C 02480106
252: C **** TEST 111 **** 02490106
253: C TEST 111 - THIS CHECKS THE RECORD NUMBER ON EXPECTED RECORD 02500106
254: C SET 30.... 02510106
255: C 02520106
256: IF (ICZERO) 31110, 1110, 31110 02530106
257: 1110 CONTINUE 02540106
258: READ ( I09, 77751 ) ITEST, RTEST 02550106
259: IVCOMP = ITEST(4) 02560106
260: GO TO 41110 02570106
261: 31110 IVDELE = IVDELE + 1 02580106
262: WRITE (I02,80003) IVTNUM 02590106
263: IF (ICZERO) 41110, 1121, 41110 02600106
264: 41110 IF ( IVCOMP - 30 ) 21110, 11110, 21110 02610106
265: 11110 IVPASS = IVPASS + 1 02620106
266: WRITE (I02,80001) IVTNUM 02630106
267: GO TO 1121 02640106
268: 21110 IVFAIL = IVFAIL + 1 02650106
269: IVCORR = 30 02660106
270: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02670106
271: 1121 CONTINUE 02680106
272: IVTNUM = 112 02690106
273: C 02700106
274: C **** TEST 112 **** 02710106
275: C TEST 112 - THIS CHECKS THE RECORD NUMBER ON RECORD SET 31. 02720106
276: C 02730106
277: IF (ICZERO) 31120, 1120, 31120 02740106
278: 1120 CONTINUE 02750106
279: READ ( I09, 77751 ) ITEST, RTEST 02760106
280: IVCOMP = ITEST(4) 02770106
281: GO TO 41120 02780106
282: 31120 IVDELE = IVDELE + 1 02790106
283: WRITE (I02,80003) IVTNUM 02800106
284: IF (ICZERO) 41120, 1131, 41120 02810106
285: 41120 IF ( IVCOMP - 31 ) 21120, 11120, 21120 02820106
286: 11120 IVPASS = IVPASS + 1 02830106
287: WRITE (I02,80001) IVTNUM 02840106
288: GO TO 1131 02850106
289: 21120 IVFAIL = IVFAIL + 1 02860106
290: IVCORR = 31 02870106
291: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02880106
292: 1131 CONTINUE 02890106
293: IVTNUM = 113 02900106
294: C 02910106
295: C **** TEST 113 **** 02920106
296: C TEST 113 - THIS CHECKS THE END OF FILE INDICATOR ON RECORD SET 02930106
297: C NUMBER 31. 02940106
298: C 02950106
299: C 02960106
300: IF (ICZERO) 31130, 1130, 31130 02970106
301: 1130 CONTINUE 02980106
302: IVCOMP = ITEST(7) 02990106
303: GO TO 41130 03000106
304: 31130 IVDELE = IVDELE + 1 03010106
305: WRITE (I02,80003) IVTNUM 03020106
306: IF (ICZERO) 41130, 1141, 41130 03030106
307: 41130 IF ( IVCOMP - 9999 ) 21130, 11130, 21130 03040106
308: 11130 IVPASS = IVPASS + 1 03050106
309: WRITE (I02,80001) IVTNUM 03060106
310: GO TO 1141 03070106
311: 21130 IVFAIL = IVFAIL + 1 03080106
312: IVCORR = 9999 03090106
313: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03100106
314: 1141 CONTINUE 03110106
315: C THIS CODE IS OPTIONALLY COMPILED AND IS USED TO DUMP THE FILE 07 03120106
316: C TO THE LINE PRINTER. 03130106
317: CDB** 03140106
318: C ILUN = I09 03150106
319: C ITOTR = 124 03160106
320: C IRLGN = 80 03170106
321: C7777 REWIND ILUN 03180106
322: C IENDC = 0 03190106
323: C IRCNT = 0 03200106
324: C DO 7778 IRNUM = 1, ITOTR 03210106
325: C READ (ILUN,77701) (IDUMP(ICHAR), ICHAR = 1, IRLGN) 03220106
326: C WRITE ( I02,77705) (IDUMP(ICHAR), ICHAR = 1, IRLGN) 03230106
327: C IRCNT = IRCNT + 1 03240106
328: C IF ( IDUMP(20) .EQ. NINE ) IENDC = IRNUM 03250106
329: C7778 CONTINUE 03260106
330: C IF ( IENDC - 121 ) 7780,7779,7782 03270106
331: C7779 IF ( IRCNT - ITOTR ) 7780, 7781, 7782 03280106
332: C7780 WRITE (I02,77702) IRNUM,ILUN,ITOTR 03290106
333: C GO TO 7784 03300106
334: C7781 WRITE (I02,77703) ILUN,ITOTR 03310106
335: C GO TO 7784 03320106
336: C7782 WRITE (I02,77704) ILUN, ITOTR 03330106
337: C DO 7783 I = 1, 5 03340106
338: C READ (ILUN,77701) (IDUMP(ICHAR), ICHAR = 1, IRLGN) 03350106
339: C WRITE ( I02,77705) (IDUMP(ICHAR), ICHAR = 1, IRLGN) 03360106
340: C IF ( IDUMP(20) .EQ. NINE ) GO TO 7784 03370106
341: C7783 CONTINUE 03380106
342: C7784 GO TO 99999 03390106
343: CDE** 03400106
344: C WRITE PAGE FOOTINGS AND RUN SUMMARIES 03410106
345: 99999 CONTINUE 03420106
346: WRITE (I02,90002) 03430106
347: WRITE (I02,90006) 03440106
348: WRITE (I02,90002) 03450106
349: WRITE (I02,90002) 03460106
350: WRITE (I02,90007) 03470106
351: WRITE (I02,90002) 03480106
352: WRITE (I02,90008) IVFAIL 03490106
353: WRITE (I02,90009) IVPASS 03500106
354: WRITE (I02,90010) IVDELE 03510106
355: C 03520106
356: C 03530106
357: C TERMINATE ROUTINE EXECUTION 03540106
358: STOP 03550106
359: C 03560106
360: C FORMAT STATEMENTS FOR PAGE HEADERS 03570106
361: 90000 FORMAT (1H1) 03580106
362: 90002 FORMAT (1H ) 03590106
363: 90001 FORMAT (1H ,10X,34HFORTRAN COMPILER VALIDATION SYSTEM) 03600106
364: 90003 FORMAT (1H ,21X,11HVERSION 1.0) 03610106
365: 90004 FORMAT (1H ,10X,38HFOR OFFICIAL USE ONLY - COPYRIGHT 1978) 03620106
366: 90005 FORMAT (1H ,5X,4HTEST,5X,9HPASS/FAIL, 5X,8HCOMPUTED,8X,7HCORRECT) 03630106
367: 90006 FORMAT (1H ,5X,46H----------------------------------------------) 03640106
368: 90011 FORMAT (1H ,18X,17HSUBSET LEVEL TEST) 03650106
369: C 03660106
370: C FORMAT STATEMENTS FOR RUN SUMMARIES 03670106
371: 90008 FORMAT (1H ,15X,I5,19H ERRORS ENCOUNTERED) 03680106
372: 90009 FORMAT (1H ,15X,I5,13H TESTS PASSED) 03690106
373: 90010 FORMAT (1H ,15X,I5,14H TESTS DELETED) 03700106
374: C 03710106
375: C FORMAT STATEMENTS FOR TEST RESULTS 03720106
376: 80001 FORMAT (1H ,4X,I5,7X,4HPASS) 03730106
377: 80002 FORMAT (1H ,4X,I5,7X,4HFAIL) 03740106
378: 80003 FORMAT (1H ,4X,I5,7X,7HDELETED) 03750106
379: 80004 FORMAT (1H ,4X,I5,7X,4HFAIL,10X,I6,9X,I6) 03760106
380: 80005 FORMAT (1H ,4X,I5,7X,4HFAIL,4X,E12.5,3X,E12.5) 03770106
381: C 03780106
382: 90007 FORMAT (1H ,20X,20HEND OF PROGRAM FM106) 03790106
383: END 03800106
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.