![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM018.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 FM018.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 00010018
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 COMMENT SECTION. 00020018
6: C 00030018
7: C FM018 00040018
8: C 00050018
9: C THIS ROUTINE CONTINUES TESTS OF THE FORTRAN 00060018
10: C LOGICAL IF STATEMENT IN ALL OF THE VARIOUS FORMS. THE 00070018
11: C FOLLOWING LOGICAL OPERANDS ARE USED FOR THIS ROUTINE - LOGICAL 00080018
12: C CONSTANTS, LOGICAL VARIABLES, LOGICAL ARRAY ELEMENTS, AND 00090018
13: C ARITHMETIC EXPRESSIONS WITH VARIOUS RELATIONAL OPERATORS. BOTH 00100018
14: C THE TRUE AND FALSE BRANCHES ARE TESTED IN THE SERIES OF TESTS. 00110018
15: C 00120018
16: C REFERENCES 00130018
17: C AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN, 00140018
18: C X3.9-1978 00150018
19: C 00160018
20: C SECTION 4.7.1, LOGICAL CONSTANT 00170018
21: C SECTION 6, EXPRESSIONS 00180018
22: C SECTION 6.1, ARITHMETIC EXPRESSIONS 00190018
23: C SECTION 6.3, RELATIONAL EXPRESSIONS 00200018
24: C SECTION 6.4, LOGICAL EXPRESSIONS 00210018
25: C SECTION 6.6, EVALUATION OF EXPRESSIONS 00220018
26: C SECTION 10, ASSIGNMENT STATEMENTS 00230018
27: C SECTION 10.2, LOGICAL ASSIGNMENT STATEMENT 00240018
28: C SECTION 11.5, LOGICAL IF STATEMENT 00250018
29: C 00260018
30: LOGICAL LCTNT1, LCTNT2, LATN1A(2) 00270018
31: DIMENSION IADN11(2) 00280018
32: C 00290018
33: C ********************************************************** 00300018
34: C 00310018
35: C A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE 00320018
36: C BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN NATIONAL STANDARD 00330018
37: C PROGRAMMING LANGUAGE FORTRAN X3.9-1978, HAS BEEN DEVELOPED BY THE 00340018
38: C FEDERAL COBOL COMPILER TESTING SERVICE. THE FORTRAN COMPILER 00350018
39: C VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT ROUTINES, THEIR RELATED00360018
40: C DATA, AND AN EXECUTIVE SYSTEM. EACH AUDIT ROUTINE IS A FORTRAN 00370018
41: C PROGRAM, SUBPROGRAM OR FUNCTION WHICH INCLUDES TESTS OF SPECIFIC 00380018
42: C LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING THE RESULT 00390018
43: C OF EXECUTING THESE TESTS. 00400018
44: C 00410018
45: C THIS PARTICULAR PROGRAM/SUBPROGRAM/FUNCTION CONTAINS FEATURES 00420018
46: C FOUND ONLY IN THE SUBSET AS DEFINED IN X3.9-1978. 00430018
47: C 00440018
48: C SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO - 00450018
49: C 00460018
50: C DEPARTMENT OF THE NAVY 00470018
51: C FEDERAL COBOL COMPILER TESTING SERVICE 00480018
52: C WASHINGTON, D.C. 20376 00490018
53: C 00500018
54: C ********************************************************** 00510018
55: C 00520018
56: C 00530018
57: C 00540018
58: C INITIALIZATION SECTION 00550018
59: C 00560018
60: C INITIALIZE CONSTANTS 00570018
61: C ************** 00580018
62: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00590018
63: I01 = 5 00600018
64: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00610018
65: I02 = 6 00620018
66: C SYSTEM ENVIRONMENT SECTION 00630018
67: C 00640018
68: I01 = 5 00650018
69: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00660018
70: C (UNIT NUMBER FOR CARD READER). 00670018
71: CX011 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD. 00680018
72: C THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00690018
73: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE. 00700018
74: C 00710018
75: I02 = 6 00720018
76: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6 00730018
77: C (UNIT NUMBER FOR PRINTER). 00740018
78: CX021 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD. 00750018
79: C THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00760018
80: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE. 00770018
81: C 00780018
82: IVPASS=0 00790018
83: IVFAIL=0 00800018
84: IVDELE=0 00810018
85: ICZERO=0 00820018
86: C 00830018
87: C WRITE PAGE HEADERS 00840018
88: WRITE (I02,90000) 00850018
89: WRITE (I02,90001) 00860018
90: WRITE (I02,90002) 00870018
91: WRITE (I02, 90002) 00880018
92: WRITE (I02,90003) 00890018
93: WRITE (I02,90002) 00900018
94: WRITE (I02,90004) 00910018
95: WRITE (I02,90002) 00920018
96: WRITE (I02,90011) 00930018
97: WRITE (I02,90002) 00940018
98: WRITE (I02,90002) 00950018
99: WRITE (I02,90005) 00960018
100: WRITE (I02,90006) 00970018
101: WRITE (I02,90002) 00980018
102: IVTNUM = 500 00990018
103: C 01000018
104: C **** TEST 500 **** 01010018
105: C TEST 500 - LIKE TEST 197. TRUE .OR. TRUE TRUE PATH 01020018
106: C TEST OF THE FORTRAN INCLUSIVE OR (LE) .OR. (LT) 01030018
107: C 01040018
108: C 01050018
109: IF (ICZERO) 35000, 5000, 35000 01060018
110: 5000 CONTINUE 01070018
111: IVON01 = 0 01080018
112: LCTNT1 = .TRUE. 01090018
113: LCTNT2 = .TRUE. 01100018
114: IF ( LCTNT1 .OR. LCTNT2 ) IVON01 = 1 01110018
115: GO TO 45000 01120018
116: 35000 IVDELE = IVDELE + 1 01130018
117: WRITE (I02,80003) IVTNUM 01140018
118: IF (ICZERO) 45000, 5011, 45000 01150018
119: 45000 IF ( IVON01 - 1 ) 25000, 15000, 25000 01160018
120: 15000 IVPASS = IVPASS + 1 01170018
121: WRITE (I02,80001) IVTNUM 01180018
122: GO TO 5011 01190018
123: 25000 IVFAIL = IVFAIL + 1 01200018
124: IVCOMP = IVON01 01210018
125: IVCORR = 1 01220018
126: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01230018
127: 5011 CONTINUE 01240018
128: IVTNUM = 501 01250018
129: C 01260018
130: C **** TEST 501 **** 01270018
131: C TEST 501 - TEST OF PARENTHESES AROUND A LOGICAL EXPRESSION 01280018
132: C ( (LE) ) .OR. (LT) 01290018
133: C USES LOGICAL VARIABLES SET IN LOGICAL ASSIGNMENT STATEMENTS01300018
134: C ( FALSE ) .OR. FALSE FALSE PATH 01310018
135: C 01320018
136: C 01330018
137: IF (ICZERO) 35010, 5010, 35010 01340018
138: 5010 CONTINUE 01350018
139: IVON01 = 1 01360018
140: LCTNT1 = .FALSE. 01370018
141: LCTNT2 = .FALSE. 01380018
142: IF ( (LCTNT1) .OR. LCTNT2 ) IVON01 = 0 01390018
143: GO TO 45010 01400018
144: 35010 IVDELE = IVDELE + 1 01410018
145: WRITE (I02,80003) IVTNUM 01420018
146: IF (ICZERO) 45010, 5021, 45010 01430018
147: 45010 IF ( IVON01 - 1 ) 25010, 15010, 25010 01440018
148: 15010 IVPASS = IVPASS + 1 01450018
149: WRITE (I02,80001) IVTNUM 01460018
150: GO TO 5021 01470018
151: 25010 IVFAIL = IVFAIL + 1 01480018
152: IVCOMP = IVON01 01490018
153: IVCORR = 1 01500018
154: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01510018
155: 5021 CONTINUE 01520018
156: IVTNUM = 502 01530018
157: C 01540018
158: C **** TEST 502 **** 01550018
159: C TEST 502 - LIKE TEST 501 EXCEPT THAT IT IT IS OF THE FORM 01560018
160: C (LE) .OR. ( (LT) ) TRUE .OR. (TRUE) 01570018
161: C TRUE PATH 01580018
162: C 01590018
163: C 01600018
164: IF (ICZERO) 35020, 5020, 35020 01610018
165: 5020 CONTINUE 01620018
166: IVON01 = 0 01630018
167: LCTNT1 = .TRUE. 01640018
168: LCTNT2 = .TRUE. 01650018
169: IF ( LCTNT1 .OR. ( LCTNT2 ) ) IVON01 = 1 01660018
170: GO TO 45020 01670018
171: 35020 IVDELE = IVDELE + 1 01680018
172: WRITE (I02,80003) IVTNUM 01690018
173: IF (ICZERO) 45020, 5031, 45020 01700018
174: 45020 IF ( IVON01 - 1 ) 25020, 15020, 25020 01710018
175: 15020 IVPASS = IVPASS + 1 01720018
176: WRITE (I02,80001) IVTNUM 01730018
177: GO TO 5031 01740018
178: 25020 IVFAIL = IVFAIL + 1 01750018
179: IVCOMP = IVON01 01760018
180: IVCORR = 1 01770018
181: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01780018
182: 5031 CONTINUE 01790018
183: IVTNUM = 503 01800018
184: C 01810018
185: C **** TEST 503 **** 01820018
186: C TEST 503 - TEST OF PARENTHESES IN LOGICAL EXPRESSIONS 01830018
187: C ( (LE) ) .OR. ( (LT) ) 01840018
188: C (FALSE) .OR. (TRUE) TRUE PATH 01850018
189: C 01860018
190: C 01870018
191: IF (ICZERO) 35030, 5030, 35030 01880018
192: 5030 CONTINUE 01890018
193: IVON01 = 0 01900018
194: LCTNT1 = .FALSE. 01910018
195: LCTNT2 = .TRUE. 01920018
196: IF ( (LCTNT1) .OR. (LCTNT2) ) IVON01 = 1 01930018
197: GO TO 45030 01940018
198: 35030 IVDELE = IVDELE + 1 01950018
199: WRITE (I02,80003) IVTNUM 01960018
200: IF (ICZERO) 45030, 5041, 45030 01970018
201: 45030 IF ( IVON01 - 1 ) 25030, 15030, 25030 01980018
202: 15030 IVPASS = IVPASS + 1 01990018
203: WRITE (I02,80001) IVTNUM 02000018
204: GO TO 5041 02010018
205: 25030 IVFAIL = IVFAIL + 1 02020018
206: IVCOMP = IVON01 02030018
207: IVCORR = 1 02040018
208: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02050018
209: 5041 CONTINUE 02060018
210: IVTNUM = 504 02070018
211: C 02080018
212: C **** TEST 504 **** 02090018
213: C TEST 504 - LIKE TEST 503 ONLY MORE PARENTHESES TRUE PATH 02100018
214: C 02110018
215: C 02120018
216: IF (ICZERO) 35040, 5040, 35040 02130018
217: 5040 CONTINUE 02140018
218: IVON01 = 0 02150018
219: LCTNT1 = .TRUE. 02160018
220: LCTNT2 = .FALSE. 02170018
221: IF ( ( (LCTNT1) .OR. (LCTNT2) ) ) IVON01 = 1 02180018
222: GO TO 45040 02190018
223: 35040 IVDELE = IVDELE + 1 02200018
224: WRITE (I02,80003) IVTNUM 02210018
225: IF (ICZERO) 45040, 5051, 45040 02220018
226: 45040 IF ( IVON01 - 1 ) 25040, 15040, 25040 02230018
227: 15040 IVPASS = IVPASS + 1 02240018
228: WRITE (I02,80001) IVTNUM 02250018
229: GO TO 5051 02260018
230: 25040 IVFAIL = IVFAIL + 1 02270018
231: IVCOMP = IVON01 02280018
232: IVCORR = 1 02290018
233: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02300018
234: 5051 CONTINUE 02310018
235: IVTNUM = 505 02320018
236: C 02330018
237: C **** TEST 505 **** 02340018
238: C TEST 505 - TEST OF PARENTHESES WITH .AND. FALSE PATH 02350018
239: C 02360018
240: C 02370018
241: IF (ICZERO) 35050, 5050, 35050 02380018
242: 5050 CONTINUE 02390018
243: IVON01 = 1 02400018
244: LCTNT1 = .FALSE. 02410018
245: LCTNT2 = .FALSE. 02420018
246: IF ( (LCTNT1) .AND. LCTNT2 ) IVON01 = 0 02430018
247: GO TO 45050 02440018
248: 35050 IVDELE = IVDELE + 1 02450018
249: WRITE (I02,80003) IVTNUM 02460018
250: IF (ICZERO) 45050, 5061, 45050 02470018
251: 45050 IF ( IVON01 - 1 ) 25050, 15050, 25050 02480018
252: 15050 IVPASS = IVPASS + 1 02490018
253: WRITE (I02,80001) IVTNUM 02500018
254: GO TO 5061 02510018
255: 25050 IVFAIL = IVFAIL + 1 02520018
256: IVCOMP = IVON01 02530018
257: IVCORR = 1 02540018
258: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02550018
259: 5061 CONTINUE 02560018
260: IVTNUM = 506 02570018
261: C 02580018
262: C **** TEST 506 **** 02590018
263: C TEST 506 - LIKE TEST 505 FALSE PATH 02600018
264: C 02610018
265: C 02620018
266: IF (ICZERO) 35060, 5060, 35060 02630018
267: 5060 CONTINUE 02640018
268: IVON01 = 1 02650018
269: LCTNT1 = .FALSE. 02660018
270: LCTNT2 = .TRUE. 02670018
271: IF ( LCTNT1 .AND. (LCTNT2) ) IVON01 = 0 02680018
272: GO TO 45060 02690018
273: 35060 IVDELE = IVDELE + 1 02700018
274: WRITE (I02,80003) IVTNUM 02710018
275: IF (ICZERO) 45060, 5071, 45060 02720018
276: 45060 IF ( IVON01 - 1 ) 25060, 15060, 25060 02730018
277: 15060 IVPASS = IVPASS + 1 02740018
278: WRITE (I02,80001) IVTNUM 02750018
279: GO TO 5071 02760018
280: 25060 IVFAIL = IVFAIL + 1 02770018
281: IVCOMP = IVON01 02780018
282: IVCORR = 1 02790018
283: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02800018
284: 5071 CONTINUE 02810018
285: IVTNUM = 507 02820018
286: C 02830018
287: C **** TEST 507 **** 02840018
288: C TEST 507 - MORE PARENTHESES WITH LOGICAL .AND. FALSE PATH 02850018
289: C 02860018
290: C 02870018
291: IF (ICZERO) 35070, 5070, 35070 02880018
292: 5070 CONTINUE 02890018
293: IVON01 = 1 02900018
294: LCTNT1 = .TRUE. 02910018
295: LCTNT2 = .FALSE. 02920018
296: IF ( (LCTNT1) .AND. (LCTNT2) ) IVON01 = 0 02930018
297: GO TO 45070 02940018
298: 35070 IVDELE = IVDELE + 1 02950018
299: WRITE (I02,80003) IVTNUM 02960018
300: IF (ICZERO) 45070, 5081, 45070 02970018
301: 45070 IF ( IVON01 - 1 ) 25070, 15070, 25070 02980018
302: 15070 IVPASS = IVPASS + 1 02990018
303: WRITE (I02,80001) IVTNUM 03000018
304: GO TO 5081 03010018
305: 25070 IVFAIL = IVFAIL + 1 03020018
306: IVCOMP = IVON01 03030018
307: IVCORR = 1 03040018
308: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03050018
309: 5081 CONTINUE 03060018
310: IVTNUM = 508 03070018
311: C 03080018
312: C **** TEST 508 **** 03090018
313: C TEST 508 - TEST OF LOGICAL .NOT. WITH PARENTHESES AROUND A LOGIC03100018
314: C PRIMARY. FOR THIS TEST A LOGICAL ARRAY ELEMENT IS USED AS 03110018
315: C THE LOGICAL PRIMARY. .NOT. (FALSE) TRUE PATH. 03120018
316: C 03130018
317: C 03140018
318: IF (ICZERO) 35080, 5080, 35080 03150018
319: 5080 CONTINUE 03160018
320: IVON01 = 0 03170018
321: LATN1A(1) = .FALSE. 03180018
322: IF ( .NOT. (LATN1A(1)) ) IVON01 = 1 03190018
323: GO TO 45080 03200018
324: 35080 IVDELE = IVDELE + 1 03210018
325: WRITE (I02,80003) IVTNUM 03220018
326: IF (ICZERO) 45080, 5091, 45080 03230018
327: 45080 IF ( IVON01 - 1 ) 25080, 15080, 25080 03240018
328: 15080 IVPASS = IVPASS + 1 03250018
329: WRITE (I02,80001) IVTNUM 03260018
330: GO TO 5091 03270018
331: 25080 IVFAIL = IVFAIL + 1 03280018
332: IVCOMP = IVON01 03290018
333: IVCORR = 1 03300018
334: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03310018
335: 5091 CONTINUE 03320018
336: IVTNUM = 509 03330018
337: C 03340018
338: C **** TEST 509 **** 03350018
339: C TEST 509 - LIKE TEST 508 EXCEPT THAT THE WHOLE EXPRESSION 03360018
340: C IS IN PARENTHESES. FALSE PATH 03370018
341: C 03380018
342: C 03390018
343: IF (ICZERO) 35090, 5090, 35090 03400018
344: 5090 CONTINUE 03410018
345: IVON01 = 1 03420018
346: LATN1A(2) = .TRUE. 03430018
347: IF ( ( .NOT. (LATN1A(2)) ) ) IVON01 = 0 03440018
348: GO TO 45090 03450018
349: 35090 IVDELE = IVDELE + 1 03460018
350: WRITE (I02,80003) IVTNUM 03470018
351: IF (ICZERO) 45090, 5101, 45090 03480018
352: 45090 IF ( IVON01 - 1 ) 25090, 15090, 25090 03490018
353: 15090 IVPASS = IVPASS + 1 03500018
354: WRITE (I02,80001) IVTNUM 03510018
355: GO TO 5101 03520018
356: 25090 IVFAIL = IVFAIL + 1 03530018
357: IVCOMP = IVON01 03540018
358: IVCORR = 1 03550018
359: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03560018
360: 5101 CONTINUE 03570018
361: IVTNUM = 510 03580018
362: C 03590018
363: C **** TEST 510 **** 03600018
364: C TEST 510 - INTEGER CONSTANT EXPONIENTATION 03610018
365: C RELATIONAL EXPRESSION USING .EQ. TRUE PATH 03620018
366: C 03630018
367: C 03640018
368: IF (ICZERO) 35100, 5100, 35100 03650018
369: 5100 CONTINUE 03660018
370: IVON01 = 0 03670018
371: IF ( 3 ** 3 .EQ. 27 ) IVON01 = 1 03680018
372: GO TO 45100 03690018
373: 35100 IVDELE = IVDELE + 1 03700018
374: WRITE (I02,80003) IVTNUM 03710018
375: IF (ICZERO) 45100, 5111, 45100 03720018
376: 45100 IF ( IVON01 - 1 ) 25100, 15100, 25100 03730018
377: 15100 IVPASS = IVPASS + 1 03740018
378: WRITE (I02,80001) IVTNUM 03750018
379: GO TO 5111 03760018
380: 25100 IVFAIL = IVFAIL + 1 03770018
381: IVCOMP = IVON01 03780018
382: IVCORR = 1 03790018
383: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03800018
384: 5111 CONTINUE 03810018
385: IVTNUM = 511 03820018
386: C 03830018
387: C **** TEST 511 **** 03840018
388: C TEST 511 - EXPONIENTIATION USING AN INTEGER VARIABLE 03850018
389: C RELATIONAL EXPRESSION USING .NE. FALSE PATH 03860018
390: C 03870018
391: C 03880018
392: IF (ICZERO) 35110, 5110, 35110 03890018
393: 5110 CONTINUE 03900018
394: IVON01 = 1 03910018
395: IVON02 = 3 03920018
396: IF ( IVON02 ** 3 .NE. 27 ) IVON01 = 0 03930018
397: GO TO 45110 03940018
398: 35110 IVDELE = IVDELE + 1 03950018
399: WRITE (I02,80003) IVTNUM 03960018
400: IF (ICZERO) 45110, 5121, 45110 03970018
401: 45110 IF ( IVON01 - 1 ) 25110, 15110, 25110 03980018
402: 15110 IVPASS = IVPASS + 1 03990018
403: WRITE (I02,80001) IVTNUM 04000018
404: GO TO 5121 04010018
405: 25110 IVFAIL = IVFAIL + 1 04020018
406: IVCOMP = IVON01 04030018
407: IVCORR = 1 04040018
408: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04050018
409: 5121 CONTINUE 04060018
410: IVTNUM = 512 04070018
411: C 04080018
412: C **** TEST 512 **** 04090018
413: C TEST 512 - LIKE TEST 511 USES .LE. TRUE PATH 04100018
414: C 04110018
415: C 04120018
416: IF (ICZERO) 35120, 5120, 35120 04130018
417: 5120 CONTINUE 04140018
418: IVON01 = 0 04150018
419: IVON02 = 3 04160018
420: IF ( 3 ** IVON02 .LE. 27 ) IVON01 = 1 04170018
421: GO TO 45120 04180018
422: 35120 IVDELE = IVDELE + 1 04190018
423: WRITE (I02,80003) IVTNUM 04200018
424: IF (ICZERO) 45120, 5131, 45120 04210018
425: 45120 IF ( IVON01 - 1 ) 25120, 15120, 25120 04220018
426: 15120 IVPASS = IVPASS + 1 04230018
427: WRITE (I02,80001) IVTNUM 04240018
428: GO TO 5131 04250018
429: 25120 IVFAIL = IVFAIL + 1 04260018
430: IVCOMP = IVON01 04270018
431: IVCORR = 1 04280018
432: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04290018
433: 5131 CONTINUE 04300018
434: IVTNUM = 513 04310018
435: C 04320018
436: C **** TEST 513 **** 04330018
437: C TEST 513 - LIKE TEST 511 BUT USES ALL INTEGER VARIABLES 04340018
438: C RELATIONAL EXPRESSION USES .LT. FALSE PATH 04350018
439: C 04360018
440: C 04370018
441: IF (ICZERO) 35130, 5130, 35130 04380018
442: 5130 CONTINUE 04390018
443: IVON01 = 1 04400018
444: IVON02 = 3 04410018
445: IVON03 = 27 04420018
446: IF ( IVON02 ** IVON02 .LT. IVON03 ) IVON01 = 0 04430018
447: GO TO 45130 04440018
448: 35130 IVDELE = IVDELE + 1 04450018
449: WRITE (I02,80003) IVTNUM 04460018
450: IF (ICZERO) 45130, 5141, 45130 04470018
451: 45130 IF ( IVON01 - 1 ) 25130, 15130, 25130 04480018
452: 15130 IVPASS = IVPASS + 1 04490018
453: WRITE (I02,80001) IVTNUM 04500018
454: GO TO 5141 04510018
455: 25130 IVFAIL = IVFAIL + 1 04520018
456: IVCOMP = IVON01 04530018
457: IVCORR = 1 04540018
458: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04550018
459: 5141 CONTINUE 04560018
460: IVTNUM = 514 04570018
461: C 04580018
462: C **** TEST 514 **** 04590018
463: C TEST 514 - LIKE TEST 511 BUT USES INTEGER ARRAY ELEMENTS 04600018
464: C RELATIONAL EXPRESSION USES .GE. TRUE PATH 04610018
465: C 04620018
466: C 04630018
467: IF (ICZERO) 35140, 5140, 35140 04640018
468: 5140 CONTINUE 04650018
469: IVON01 = 0 04660018
470: IVON02 = 3 04670018
471: IADN11(1) = 3 04680018
472: IADN11(2) = 27 04690018
473: IF ( IADN11(1) ** IVON02 .GE. IADN11(2) ) IVON01 = 1 04700018
474: GO TO 45140 04710018
475: 35140 IVDELE = IVDELE + 1 04720018
476: WRITE (I02,80003) IVTNUM 04730018
477: IF (ICZERO) 45140, 5151, 45140 04740018
478: 45140 IF ( IVON01 - 1 ) 25140, 15140, 25140 04750018
479: 15140 IVPASS = IVPASS + 1 04760018
480: WRITE (I02,80001) IVTNUM 04770018
481: GO TO 5151 04780018
482: 25140 IVFAIL = IVFAIL + 1 04790018
483: IVCOMP = IVON01 04800018
484: IVCORR = 1 04810018
485: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04820018
486: 5151 CONTINUE 04830018
487: IVTNUM = 515 04840018
488: C 04850018
489: C **** TEST 515 **** 04860018
490: C TEST 515 - LIKE TEST 514 BUT USES ALL INTEGER ARRAY ELEMENTS 04870018
491: C RELATIONAL EXPRESSION USES .GT. FALSE PATH 04880018
492: C 04890018
493: C 04900018
494: IF (ICZERO) 35150, 5150, 35150 04910018
495: 5150 CONTINUE 04920018
496: IVON01 = 1 04930018
497: IADN11(1) = 3 04940018
498: IADN11(2) = 27 04950018
499: IF ( IADN11(1) ** IADN11(1) .GT. IADN11(2) ) IVON01 = 0 04960018
500: GO TO 45150 04970018
501: 35150 IVDELE = IVDELE + 1 04980018
502: WRITE (I02,80003) IVTNUM 04990018
503: IF (ICZERO) 45150, 5161, 45150 05000018
504: 45150 IF ( IVON01 - 1 ) 25150, 15150, 25150 05010018
505: 15150 IVPASS = IVPASS + 1 05020018
506: WRITE (I02,80001) IVTNUM 05030018
507: GO TO 5161 05040018
508: 25150 IVFAIL = IVFAIL + 1 05050018
509: IVCOMP = IVON01 05060018
510: IVCORR = 1 05070018
511: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05080018
512: 5161 CONTINUE 05090018
513: IVTNUM = 516 05100018
514: C 05110018
515: C **** TEST 516 **** 05120018
516: C TEST 516 - TEST OF INTEGER MULTIPLICATION USING INTEGER 05130018
517: C CONSTANTS. RELATIONAL EXPRESSION USES .LT. TRUE PATH 05140018
518: C 05150018
519: C 05160018
520: IF (ICZERO) 35160, 5160, 35160 05170018
521: 5160 CONTINUE 05180018
522: IVON01 = 0 05190018
523: IVON02 = 587 05200018
524: IF ( 3 * 3 .LT. IVON02 ) IVON01 = 1 05210018
525: GO TO 45160 05220018
526: 35160 IVDELE = IVDELE + 1 05230018
527: WRITE (I02,80003) IVTNUM 05240018
528: IF (ICZERO) 45160, 5171, 45160 05250018
529: 45160 IF ( IVON01 - 1 ) 25160, 15160, 25160 05260018
530: 15160 IVPASS = IVPASS + 1 05270018
531: WRITE (I02,80001) IVTNUM 05280018
532: GO TO 5171 05290018
533: 25160 IVFAIL = IVFAIL + 1 05300018
534: IVCOMP = IVON01 05310018
535: IVCORR = 1 05320018
536: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05330018
537: 5171 CONTINUE 05340018
538: IVTNUM = 517 05350018
539: C 05360018
540: C **** TEST 517 **** 05370018
541: C TEST 517 - INTEGER MULTIPLICATION WITH INTEGER CONSTANTS, 05380018
542: C VARIABLES, AND ARRAY ELEMENTS. RELATIONAL EXPRESSION USES 05390018
543: C .GT. FALSE PATH 05400018
544: C 05410018
545: C 05420018
546: IF (ICZERO) 35170, 5170, 35170 05430018
547: 5170 CONTINUE 05440018
548: IVON01 = 1 05450018
549: IVON02 = 32767 05460018
550: IADN11(1) = 3 05470018
551: IF ( IADN11(1) * 587 .GT. IVON02 ) IVON01 = 0 05480018
552: GO TO 45170 05490018
553: 35170 IVDELE = IVDELE + 1 05500018
554: WRITE (I02,80003) IVTNUM 05510018
555: IF (ICZERO) 45170, 5181, 45170 05520018
556: 45170 IF ( IVON01 - 1 ) 25170, 15170, 25170 05530018
557: 15170 IVPASS = IVPASS + 1 05540018
558: WRITE (I02,80001) IVTNUM 05550018
559: GO TO 5181 05560018
560: 25170 IVFAIL = IVFAIL + 1 05570018
561: IVCOMP = IVON01 05580018
562: IVCORR = 1 05590018
563: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05600018
564: 5181 CONTINUE 05610018
565: IVTNUM = 518 05620018
566: C 05630018
567: C **** TEST 518 **** 05640018
568: C TEST 518 - INTEGER MULTIPLICATION AND EXPONIENTATION 05650018
569: C RELATIONAL EXPRESSION USES .EQ. TRUE PATH 05660018
570: C 05670018
571: C 05680018
572: IF (ICZERO) 35180, 5180, 35180 05690018
573: 5180 CONTINUE 05700018
574: IVON01 = 0 05710018
575: IVON02 = 3 05720018
576: IVON03 = 27 05730018
577: IADN11(2) = 3 05740018
578: IF ( IADN11(2) ** 2 * IVON02 .EQ. IVON03 ) IVON01 = 1 05750018
579: GO TO 45180 05760018
580: 35180 IVDELE = IVDELE + 1 05770018
581: WRITE (I02,80003) IVTNUM 05780018
582: IF (ICZERO) 45180, 5191, 45180 05790018
583: 45180 IF ( IVON01 - 1 ) 25180, 15180, 25180 05800018
584: 15180 IVPASS = IVPASS + 1 05810018
585: WRITE (I02,80001) IVTNUM 05820018
586: GO TO 5191 05830018
587: 25180 IVFAIL = IVFAIL + 1 05840018
588: IVCOMP = IVON01 05850018
589: IVCORR = 1 05860018
590: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05870018
591: 5191 CONTINUE 05880018
592: IVTNUM = 519 05890018
593: C 05900018
594: C **** TEST 519 **** 05910018
595: C TEST 519 - INTEGER DIVISION. RELATIONAL EXPRESSION .NE. 05920018
596: C FALSE PATH 05930018
597: C 05940018
598: C 05950018
599: IF (ICZERO) 35190, 5190, 35190 05960018
600: 5190 CONTINUE 05970018
601: IVON01 = 1 05980018
602: IVON02 = 27 05990018
603: IADN11(1) = 3 06000018
604: IF ( IVON02 / 9 .NE. IADN11(1) ) IVON01 = 0 06010018
605: GO TO 45190 06020018
606: 35190 IVDELE = IVDELE + 1 06030018
607: WRITE (I02,80003) IVTNUM 06040018
608: IF (ICZERO) 45190, 5201, 45190 06050018
609: 45190 IF ( IVON01 - 1 ) 25190, 15190, 25190 06060018
610: 15190 IVPASS = IVPASS + 1 06070018
611: WRITE (I02,80001) IVTNUM 06080018
612: GO TO 5201 06090018
613: 25190 IVFAIL = IVFAIL + 1 06100018
614: IVCOMP = IVON01 06110018
615: IVCORR = 1 06120018
616: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06130018
617: 5201 CONTINUE 06140018
618: IVTNUM = 520 06150018
619: C 06160018
620: C **** TEST 520 **** 06170018
621: C TEST 520 - INTEGER VARIABLE DIVISION. RELATIONAL EXPRESSION 06180018
622: C USES .GE. TRUE PATH 06190018
623: C 06200018
624: C 06210018
625: IF (ICZERO) 35200, 5200, 35200 06220018
626: 5200 CONTINUE 06230018
627: IVON01 = 0 06240018
628: IVON02 = 32767 06250018
629: IVON03 = 3 06260018
630: IVON04 = 9999 06270018
631: IVON05 = 587 06280018
632: IF ( IVON02 / IVON03 .GE. IVON04 / IVON05 ) IVON01 = 1 06290018
633: GO TO 45200 06300018
634: 35200 IVDELE = IVDELE + 1 06310018
635: WRITE (I02,80003) IVTNUM 06320018
636: IF (ICZERO) 45200, 5211, 45200 06330018
637: 45200 IF ( IVON01 - 1 ) 25200, 15200, 25200 06340018
638: 15200 IVPASS = IVPASS + 1 06350018
639: WRITE (I02,80001) IVTNUM 06360018
640: GO TO 5211 06370018
641: 25200 IVFAIL = IVFAIL + 1 06380018
642: IVCOMP = IVON01 06390018
643: IVCORR = 1 06400018
644: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06410018
645: 5211 CONTINUE 06420018
646: IVTNUM = 521 06430018
647: C 06440018
648: C **** TEST 521 **** 06450018
649: C TEST 521 - INTEGER DIVISION AND EXPONIENTATION 06460018
650: C RELATIONAL EXPRESSION USES .LT. FALSE PATH 06470018
651: C 06480018
652: C 06490018
653: IF (ICZERO) 35210, 5210, 35210 06500018
654: 5210 CONTINUE 06510018
655: IVON01 = 1 06520018
656: IVON02 = 587 06530018
657: IVON03 = 3 06540018
658: IADN11(2) = 3 06550018
659: IF ( IVON02 / IADN11(2) ** 3 .LT. 3 ** IVON03 / IVON02 ) IVON01 =006560018
660: IF ( IVON02 / IADN11(2) ** 3 .LT. 3 ** IVON03 / IVON02 ) IVON01=006570018
661: GO TO 45210 06580018
662: 35210 IVDELE = IVDELE + 1 06590018
663: WRITE (I02,80003) IVTNUM 06600018
664: IF (ICZERO) 45210, 5221, 45210 06610018
665: 45210 IF ( IVON01 - 1 ) 25210, 15210, 25210 06620018
666: 15210 IVPASS = IVPASS + 1 06630018
667: WRITE (I02,80001) IVTNUM 06640018
668: GO TO 5221 06650018
669: 25210 IVFAIL = IVFAIL + 1 06660018
670: IVCOMP = IVON01 06670018
671: IVCORR = 1 06680018
672: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06690018
673: 5221 CONTINUE 06700018
674: IVTNUM = 522 06710018
675: C 06720018
676: C **** TEST 522 **** 06730018
677: C TEST 522 - TESTS 522 THRU 535 ARE TESTS OF SIGNED TERMS 06740018
678: C +(T) ALSO -(T) 06750018
679: C RELATIONAL EXPRESSION USES .GT. TRUE PATH 06760018
680: C 06770018
681: C 06780018
682: IF (ICZERO) 35220, 5220, 35220 06790018
683: 5220 CONTINUE 06800018
684: IVON01 = 0 06810018
685: IF ( 3 .GT. -3 ) IVON01 = 1 06820018
686: GO TO 45220 06830018
687: 35220 IVDELE = IVDELE + 1 06840018
688: WRITE (I02,80003) IVTNUM 06850018
689: IF (ICZERO) 45220, 5231, 45220 06860018
690: 45220 IF ( IVON01 - 1 ) 25220, 15220, 25220 06870018
691: 15220 IVPASS = IVPASS + 1 06880018
692: WRITE (I02,80001) IVTNUM 06890018
693: GO TO 5231 06900018
694: 25220 IVFAIL = IVFAIL + 1 06910018
695: IVCOMP = IVON01 06920018
696: IVCORR = 1 06930018
697: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06940018
698: 5231 CONTINUE 06950018
699: IVTNUM = 523 06960018
700: C 06970018
701: C **** TEST 523 **** 06980018
702: C TEST 523 - TEST OF SIGNED ZERO .LT. FALSE PATH 06990018
703: C 07000018
704: C 07010018
705: IF (ICZERO) 35230, 5230, 35230 07020018
706: 5230 CONTINUE 07030018
707: IVON01 = 1 07040018
708: IF ( 0 .LT. -0 ) IVON01 = 0 07050018
709: GO TO 45230 07060018
710: 35230 IVDELE = IVDELE + 1 07070018
711: WRITE (I02,80003) IVTNUM 07080018
712: IF (ICZERO) 45230, 5241, 45230 07090018
713: 45230 IF ( IVON01 - 1 ) 25230, 15230, 25230 07100018
714: 15230 IVPASS = IVPASS + 1 07110018
715: WRITE (I02,80001) IVTNUM 07120018
716: GO TO 5241 07130018
717: 25230 IVFAIL = IVFAIL + 1 07140018
718: IVCOMP = IVON01 07150018
719: IVCORR = 1 07160018
720: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07170018
721: 5241 CONTINUE 07180018
722: IVTNUM = 524 07190018
723: C 07200018
724: C **** TEST 524 **** 07210018
725: C TEST 524 - TEST OF SIGNED ZERO .LE. TRUE PATH 07220018
726: C 07230018
727: C 07240018
728: IF (ICZERO) 35240, 5240, 35240 07250018
729: 5240 CONTINUE 07260018
730: IVON01 = 0 07270018
731: IF ( 0 .LE. -0 ) IVON01 = 1 07280018
732: GO TO 45240 07290018
733: 35240 IVDELE = IVDELE + 1 07300018
734: WRITE (I02,80003) IVTNUM 07310018
735: IF (ICZERO) 45240, 5251, 45240 07320018
736: 45240 IF ( IVON01 - 1 ) 25240, 15240, 25240 07330018
737: 15240 IVPASS = IVPASS + 1 07340018
738: WRITE (I02,80001) IVTNUM 07350018
739: GO TO 5251 07360018
740: 25240 IVFAIL = IVFAIL + 1 07370018
741: IVCOMP = IVON01 07380018
742: IVCORR = 1 07390018
743: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07400018
744: 5251 CONTINUE 07410018
745: IVTNUM = 525 07420018
746: C 07430018
747: C **** TEST 525 **** 07440018
748: C TEST 525 - TEST OF SIGNED ZERO .EQ. TRUE PATH 07450018
749: C 07460018
750: C 07470018
751: IF (ICZERO) 35250, 5250, 35250 07480018
752: 5250 CONTINUE 07490018
753: IVON01 = 0 07500018
754: IF ( 0 .EQ. -0 ) IVON01 = 1 07510018
755: GO TO 45250 07520018
756: 35250 IVDELE = IVDELE + 1 07530018
757: WRITE (I02,80003) IVTNUM 07540018
758: IF (ICZERO) 45250, 5261, 45250 07550018
759: 45250 IF ( IVON01 - 1 ) 25250, 15250, 25250 07560018
760: 15250 IVPASS = IVPASS + 1 07570018
761: WRITE (I02,80001) IVTNUM 07580018
762: GO TO 5261 07590018
763: 25250 IVFAIL = IVFAIL + 1 07600018
764: IVCOMP = IVON01 07610018
765: IVCORR = 1 07620018
766: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07630018
767: 5261 CONTINUE 07640018
768: IVTNUM = 526 07650018
769: C 07660018
770: C **** TEST 526 **** 07670018
771: C TEST 526 - TEST OF SIGNED ZERO .NE. FALSE PATH 07680018
772: C 07690018
773: C 07700018
774: IF (ICZERO) 35260, 5260, 35260 07710018
775: 5260 CONTINUE 07720018
776: IVON01 = 1 07730018
777: IF ( 0 .NE. -0 ) IVON01 = 0 07740018
778: GO TO 45260 07750018
779: 35260 IVDELE = IVDELE + 1 07760018
780: WRITE (I02,80003) IVTNUM 07770018
781: IF (ICZERO) 45260, 5271, 45260 07780018
782: 45260 IF ( IVON01 - 1 ) 25260, 15260, 25260 07790018
783: 15260 IVPASS = IVPASS + 1 07800018
784: WRITE (I02,80001) IVTNUM 07810018
785: GO TO 5271 07820018
786: 25260 IVFAIL = IVFAIL + 1 07830018
787: IVCOMP = IVON01 07840018
788: IVCORR = 1 07850018
789: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07860018
790: 5271 CONTINUE 07870018
791: IVTNUM = 527 07880018
792: C 07890018
793: C **** TEST 527 **** 07900018
794: C TEST 527 - TEST OF SIGNED ZERO .GE. TRUE PATH 07910018
795: C 07920018
796: C 07930018
797: IF (ICZERO) 35270, 5270, 35270 07940018
798: 5270 CONTINUE 07950018
799: IVON01 = 0 07960018
800: IF ( 0 .GE. -0 ) IVON01 = 1 07970018
801: GO TO 45270 07980018
802: 35270 IVDELE = IVDELE + 1 07990018
803: WRITE (I02,80003) IVTNUM 08000018
804: IF (ICZERO) 45270, 5281, 45270 08010018
805: 45270 IF ( IVON01 - 1 ) 25270, 15270, 25270 08020018
806: 15270 IVPASS = IVPASS + 1 08030018
807: WRITE (I02,80001) IVTNUM 08040018
808: GO TO 5281 08050018
809: 25270 IVFAIL = IVFAIL + 1 08060018
810: IVCOMP = IVON01 08070018
811: IVCORR = 1 08080018
812: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 08090018
813: 5281 CONTINUE 08100018
814: IVTNUM = 528 08110018
815: C 08120018
816: C **** TEST 528 **** 08130018
817: C TEST 528 - TEST OF SIGNED ZERO .GT. FALSE PATH 08140018
818: C 08150018
819: C 08160018
820: IF (ICZERO) 35280, 5280, 35280 08170018
821: 5280 CONTINUE 08180018
822: IVON01 = 1 08190018
823: IF ( 0 .GT. -0 ) IVON01 = 0 08200018
824: GO TO 45280 08210018
825: 35280 IVDELE = IVDELE + 1 08220018
826: WRITE (I02,80003) IVTNUM 08230018
827: IF (ICZERO) 45280, 5291, 45280 08240018
828: 45280 IF ( IVON01 - 1 ) 25280, 15280, 25280 08250018
829: 15280 IVPASS = IVPASS + 1 08260018
830: WRITE (I02,80001) IVTNUM 08270018
831: GO TO 5291 08280018
832: 25280 IVFAIL = IVFAIL + 1 08290018
833: IVCOMP = IVON01 08300018
834: IVCORR = 1 08310018
835: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 08320018
836: 5291 CONTINUE 08330018
837: IVTNUM = 529 08340018
838: C 08350018
839: C **** TEST 529 **** 08360018
840: C TEST 529 - TEST OF 32767 AND -32766 .GT. TRUE PATH 08370018
841: C 08380018
842: C 08390018
843: IF (ICZERO) 35290, 5290, 35290 08400018
844: 5290 CONTINUE 08410018
845: IVON01 = 0 08420018
846: IF ( 32767 .GT. -32766 ) IVON01 = 1 08430018
847: GO TO 45290 08440018
848: 35290 IVDELE = IVDELE + 1 08450018
849: WRITE (I02,80003) IVTNUM 08460018
850: IF (ICZERO) 45290, 5301, 45290 08470018
851: 45290 IF ( IVON01 - 1 ) 25290, 15290, 25290 08480018
852: 15290 IVPASS = IVPASS + 1 08490018
853: WRITE (I02,80001) IVTNUM 08500018
854: GO TO 5301 08510018
855: 25290 IVFAIL = IVFAIL + 1 08520018
856: IVCOMP = IVON01 08530018
857: IVCORR = 1 08540018
858: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 08550018
859: 5301 CONTINUE 08560018
860: C 08570018
861: C WRITE PAGE FOOTINGS AND RUN SUMMARIES 08580018
862: 99999 CONTINUE 08590018
863: WRITE (I02,90002) 08600018
864: WRITE (I02,90006) 08610018
865: WRITE (I02,90002) 08620018
866: WRITE (I02,90002) 08630018
867: WRITE (I02,90007) 08640018
868: WRITE (I02,90002) 08650018
869: WRITE (I02,90008) IVFAIL 08660018
870: WRITE (I02,90009) IVPASS 08670018
871: WRITE (I02,90010) IVDELE 08680018
872: C 08690018
873: C 08700018
874: C TERMINATE ROUTINE EXECUTION 08710018
875: STOP 08720018
876: C 08730018
877: C FORMAT STATEMENTS FOR PAGE HEADERS 08740018
878: 90000 FORMAT (1H1) 08750018
879: 90002 FORMAT (1H ) 08760018
880: 90001 FORMAT (1H ,10X,34HFORTRAN COMPILER VALIDATION SYSTEM) 08770018
881: 90003 FORMAT (1H ,21X,11HVERSION 1.0) 08780018
882: 90004 FORMAT (1H ,10X,38HFOR OFFICIAL USE ONLY - COPYRIGHT 1978) 08790018
883: 90005 FORMAT (1H ,5X,4HTEST,5X,9HPASS/FAIL, 5X,8HCOMPUTED,8X,7HCORRECT) 08800018
884: 90006 FORMAT (1H ,5X,46H----------------------------------------------) 08810018
885: 90011 FORMAT (1H ,18X,17HSUBSET LEVEL TEST) 08820018
886: C 08830018
887: C FORMAT STATEMENTS FOR RUN SUMMARIES 08840018
888: 90008 FORMAT (1H ,15X,I5,19H ERRORS ENCOUNTERED) 08850018
889: 90009 FORMAT (1H ,15X,I5,13H TESTS PASSED) 08860018
890: 90010 FORMAT (1H ,15X,I5,14H TESTS DELETED) 08870018
891: C 08880018
892: C FORMAT STATEMENTS FOR TEST RESULTS 08890018
893: 80001 FORMAT (1H ,4X,I5,7X,4HPASS) 08900018
894: 80002 FORMAT (1H ,4X,I5,7X,4HFAIL) 08910018
895: 80003 FORMAT (1H ,4X,I5,7X,7HDELETED) 08920018
896: 80004 FORMAT (1H ,4X,I5,7X,4HFAIL,10X,I6,9X,I6) 08930018
897: 80005 FORMAT (1H ,4X,I5,7X,4HFAIL,4X,E12.5,3X,E12.5) 08940018
898: C 08950018
899: 90007 FORMAT (1H ,20X,20HEND OF PROGRAM FM018) 08960018
900: END 08970018
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.