![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM043.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 FM043.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 00010043
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 00020043
6: C FM043 00030043
7: C 00040043
8: C THIS ROUTINE TESTS ARITHMETIC ASSIGNMENTS OF THE FORM 00050043
9: C 00060043
10: C INTEGER VAR. = INTEGER VAR. <OP1> INTEGER VAR. <OP2> INTEGER VAR. 00070043
11: C 00080043
12: C WHERE <OP1> AND <OP2> ARE ARITHMETIC OPERATORS, BUT <OP1> IS 00090043
13: C NOT THE SAME AS <OP2>. 00100043
14: C 00110043
15: C REFERENCES 00120043
16: C AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN, 00130043
17: C X3.9-1978 00140043
18: C 00150043
19: C SECTION 4.3, INTEGER TYPE 00160043
20: C SECTION 4.3.1, INTEGER CONSTANT 00170043
21: C SECTION 6.1, ARITHMETIC EXPRESSIONS 00180043
22: C SECTION 6.6, EVALUATION OF EXPRESSIONS 00190043
23: C SECTION 10.1, ARITHMETIC ASSIGNMENT STATEMENT 00200043
24: C 00210043
25: C 00220043
26: C ********************************************************** 00230043
27: C 00240043
28: C A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE 00250043
29: C BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN NATIONAL STANDARD 00260043
30: C PROGRAMMING LANGUAGE FORTRAN X3.9-1978, HAS BEEN DEVELOPED BY THE 00270043
31: C FEDERAL COBOL COMPILER TESTING SERVICE. THE FORTRAN COMPILER 00280043
32: C VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT ROUTINES, THEIR RELATED00290043
33: C DATA, AND AN EXECUTIVE SYSTEM. EACH AUDIT ROUTINE IS A FORTRAN 00300043
34: C PROGRAM, SUBPROGRAM OR FUNCTION WHICH INCLUDES TESTS OF SPECIFIC 00310043
35: C LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING THE RESULT 00320043
36: C OF EXECUTING THESE TESTS. 00330043
37: C 00340043
38: C THIS PARTICULAR PROGRAM/SUBPROGRAM/FUNCTION CONTAINS FEATURES 00350043
39: C FOUND ONLY IN THE SUBSET AS DEFINED IN X3.9-1978. 00360043
40: C 00370043
41: C SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO - 00380043
42: C 00390043
43: C DEPARTMENT OF THE NAVY 00400043
44: C FEDERAL COBOL COMPILER TESTING SERVICE 00410043
45: C WASHINGTON, D.C. 20376 00420043
46: C 00430043
47: C ********************************************************** 00440043
48: C 00450043
49: C 00460043
50: C 00470043
51: C INITIALIZATION SECTION 00480043
52: C 00490043
53: C INITIALIZE CONSTANTS 00500043
54: C ************** 00510043
55: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00520043
56: I01 = 5 00530043
57: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00540043
58: I02 = 6 00550043
59: C SYSTEM ENVIRONMENT SECTION 00560043
60: C 00570043
61: I01 = 5 00580043
62: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00590043
63: C (UNIT NUMBER FOR CARD READER). 00600043
64: CX011 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD. 00610043
65: C THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00620043
66: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE. 00630043
67: C 00640043
68: I02 = 6 00650043
69: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6 00660043
70: C (UNIT NUMBER FOR PRINTER). 00670043
71: CX021 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD. 00680043
72: C THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00690043
73: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE. 00700043
74: C 00710043
75: IVPASS=0 00720043
76: IVFAIL=0 00730043
77: IVDELE=0 00740043
78: ICZERO=0 00750043
79: C 00760043
80: C WRITE PAGE HEADERS 00770043
81: WRITE (I02,90000) 00780043
82: WRITE (I02,90001) 00790043
83: WRITE (I02,90002) 00800043
84: WRITE (I02, 90002) 00810043
85: WRITE (I02,90003) 00820043
86: WRITE (I02,90002) 00830043
87: WRITE (I02,90004) 00840043
88: WRITE (I02,90002) 00850043
89: WRITE (I02,90011) 00860043
90: WRITE (I02,90002) 00870043
91: WRITE (I02,90002) 00880043
92: WRITE (I02,90005) 00890043
93: WRITE (I02,90006) 00900043
94: WRITE (I02,90002) 00910043
95: C 00920043
96: C TEST SECTION 00930043
97: C 00940043
98: C ARITHMETIC ASSIGNMENT STATEMENT 00950043
99: C 00960043
100: C TESTS 683 THROUGH 694 TEST STATEMENTS WHERE <OP1> IS '+' AND 00970043
101: C <OP2> VARIES. 00980043
102: C 00990043
103: C TEST 695 THROUGH 706 TEST STATEMENTS WHERE <OP1> IS '-' AND 01000043
104: C <OP2> VARIES. 01010043
105: C 01020043
106: C TESTS 707 THROUGH 718 TEST STATEMENTS WHERE <OP1> IS '*' AND 01030043
107: C <OP2> VARIES. 01040043
108: C 01050043
109: C 01060043
110: C 01070043
111: C TESTS 683 THROUGH 685 TEST '+' FOLLOWED BY '-'. 01080043
112: C 01090043
113: IVTNUM = 683 01100043
114: C 01110043
115: C **** TEST 683 **** 01120043
116: C 01130043
117: IF (ICZERO) 36830, 6830, 36830 01140043
118: 6830 CONTINUE 01150043
119: IVON01 = 45 01160043
120: IVON02 = 9 01170043
121: IVON03 = 3 01180043
122: IVCOMP = IVON01 + IVON02 - IVON03 01190043
123: GO TO 46830 01200043
124: 36830 IVDELE = IVDELE + 1 01210043
125: WRITE (I02,80003) IVTNUM 01220043
126: IF (ICZERO) 46830, 6841, 46830 01230043
127: 46830 IF (IVCOMP - 51) 26830,16830,26830 01240043
128: 16830 IVPASS = IVPASS + 1 01250043
129: WRITE (I02,80001) IVTNUM 01260043
130: GO TO 6841 01270043
131: 26830 IVFAIL = IVFAIL + 1 01280043
132: IVCORR = 51 01290043
133: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 01300043
134: 6841 CONTINUE 01310043
135: IVTNUM = 684 01320043
136: C 01330043
137: C **** TEST 684 **** 01340043
138: C 01350043
139: IF (ICZERO) 36840, 6840, 36840 01360043
140: 6840 CONTINUE 01370043
141: IVON01 = 45 01380043
142: IVON02 = 9 01390043
143: IVON03 = 3 01400043
144: IVCOMP = (IVON01 + IVON02) - IVON03 01410043
145: GO TO 46840 01420043
146: 36840 IVDELE = IVDELE + 1 01430043
147: WRITE (I02,80003) IVTNUM 01440043
148: IF (ICZERO) 46840, 6851, 46840 01450043
149: 46840 IF (IVCOMP - 51) 26840,16840,26840 01460043
150: 16840 IVPASS = IVPASS + 1 01470043
151: WRITE (I02,80001) IVTNUM 01480043
152: GO TO 6851 01490043
153: 26840 IVFAIL = IVFAIL + 1 01500043
154: IVCORR = 51 01510043
155: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 01520043
156: 6851 CONTINUE 01530043
157: IVTNUM = 685 01540043
158: C 01550043
159: C **** TEST 685 **** 01560043
160: C 01570043
161: IF (ICZERO) 36850, 6850, 36850 01580043
162: 6850 CONTINUE 01590043
163: IVON01 = 45 01600043
164: IVON02 = 9 01610043
165: IVON03 = 3 01620043
166: IVCOMP = IVON01 + (IVON02 - IVON03) 01630043
167: GO TO 46850 01640043
168: 36850 IVDELE = IVDELE + 1 01650043
169: WRITE (I02,80003) IVTNUM 01660043
170: IF (ICZERO) 46850, 6861, 46850 01670043
171: 46850 IF (IVCOMP - 51) 26850,16850,26850 01680043
172: 16850 IVPASS = IVPASS + 1 01690043
173: WRITE (I02,80001) IVTNUM 01700043
174: GO TO 6861 01710043
175: 26850 IVFAIL = IVFAIL + 1 01720043
176: IVCORR = 51 01730043
177: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 01740043
178: 6861 CONTINUE 01750043
179: C 01760043
180: C TESTS 686 THROUGH 688 TEST '+' FOLLOWED BY '*'. 01770043
181: C 01780043
182: IVTNUM = 686 01790043
183: C 01800043
184: C **** TEST 686 **** 01810043
185: C 01820043
186: IF (ICZERO) 36860, 6860, 36860 01830043
187: 6860 CONTINUE 01840043
188: IVON01 = 45 01850043
189: IVON02 = 9 01860043
190: IVON03 = 3 01870043
191: IVCOMP = IVON01 + IVON02 * IVON03 01880043
192: GO TO 46860 01890043
193: 36860 IVDELE = IVDELE + 1 01900043
194: WRITE (I02,80003) IVTNUM 01910043
195: IF (ICZERO) 46860, 6871, 46860 01920043
196: 46860 IF (IVCOMP - 72) 26860,16860,26860 01930043
197: 16860 IVPASS = IVPASS + 1 01940043
198: WRITE (I02,80001) IVTNUM 01950043
199: GO TO 6871 01960043
200: 26860 IVFAIL = IVFAIL + 1 01970043
201: IVCORR = 72 01980043
202: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 01990043
203: 6871 CONTINUE 02000043
204: IVTNUM = 687 02010043
205: C 02020043
206: C **** TEST 687 **** 02030043
207: C 02040043
208: IF (ICZERO) 36870, 6870, 36870 02050043
209: 6870 CONTINUE 02060043
210: IVON01 = 45 02070043
211: IVON02 = 9 02080043
212: IVON03 = 3 02090043
213: IVCOMP = (IVON01 + IVON02) * IVON03 02100043
214: GO TO 46870 02110043
215: 36870 IVDELE = IVDELE + 1 02120043
216: WRITE (I02,80003) IVTNUM 02130043
217: IF (ICZERO) 46870, 6881, 46870 02140043
218: 46870 IF (IVCOMP - 162) 26870,16870,26870 02150043
219: 16870 IVPASS = IVPASS + 1 02160043
220: WRITE (I02,80001) IVTNUM 02170043
221: GO TO 6881 02180043
222: 26870 IVFAIL = IVFAIL + 1 02190043
223: IVCORR = 162 02200043
224: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 02210043
225: 6881 CONTINUE 02220043
226: IVTNUM = 688 02230043
227: C 02240043
228: C **** TEST 688 **** 02250043
229: C 02260043
230: IF (ICZERO) 36880, 6880, 36880 02270043
231: 6880 CONTINUE 02280043
232: IVON01 = 45 02290043
233: IVON02 = 9 02300043
234: IVON03 = 3 02310043
235: IVCOMP = IVON01 + (IVON02 * IVON03) 02320043
236: GO TO 46880 02330043
237: 36880 IVDELE = IVDELE + 1 02340043
238: WRITE (I02,80003) IVTNUM 02350043
239: IF (ICZERO) 46880, 6891, 46880 02360043
240: 46880 IF (IVCOMP - 72) 26880,16880,26880 02370043
241: 16880 IVPASS = IVPASS + 1 02380043
242: WRITE (I02,80001) IVTNUM 02390043
243: GO TO 6891 02400043
244: 26880 IVFAIL = IVFAIL + 1 02410043
245: IVCORR = 72 02420043
246: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 02430043
247: 6891 CONTINUE 02440043
248: C 02450043
249: C TESTS 689 THROUGH 691 TEST '+' FOLLOWED BY '/'. 02460043
250: C 02470043
251: IVTNUM = 689 02480043
252: C 02490043
253: C **** TEST 689 **** 02500043
254: C 02510043
255: IF (ICZERO) 36890, 6890, 36890 02520043
256: 6890 CONTINUE 02530043
257: IVON01 = 45 02540043
258: IVON02 = 9 02550043
259: IVON03 = 3 02560043
260: IVCOMP = IVON01 + IVON02 / IVON03 02570043
261: GO TO 46890 02580043
262: 36890 IVDELE = IVDELE + 1 02590043
263: WRITE (I02,80003) IVTNUM 02600043
264: IF (ICZERO) 46890, 6901, 46890 02610043
265: 46890 IF (IVCOMP - 48) 26890,16890,26890 02620043
266: 16890 IVPASS = IVPASS + 1 02630043
267: WRITE (I02,80001) IVTNUM 02640043
268: GO TO 6901 02650043
269: 26890 IVFAIL = IVFAIL + 1 02660043
270: IVCORR = 48 02670043
271: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 02680043
272: 6901 CONTINUE 02690043
273: IVTNUM = 690 02700043
274: C 02710043
275: C **** TEST 690 **** 02720043
276: C 02730043
277: IF (ICZERO) 36900, 6900, 36900 02740043
278: 6900 CONTINUE 02750043
279: IVON01 = 45 02760043
280: IVON02 = 9 02770043
281: IVON03 = 3 02780043
282: IVCOMP = (IVON01 + IVON02) / IVON03 02790043
283: GO TO 46900 02800043
284: 36900 IVDELE = IVDELE + 1 02810043
285: WRITE (I02,80003) IVTNUM 02820043
286: IF (ICZERO) 46900, 6911, 46900 02830043
287: 46900 IF (IVCOMP - 18) 26900,16900,26900 02840043
288: 16900 IVPASS = IVPASS + 1 02850043
289: WRITE (I02,80001) IVTNUM 02860043
290: GO TO 6911 02870043
291: 26900 IVFAIL = IVFAIL + 1 02880043
292: IVCORR = 18 02890043
293: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 02900043
294: 6911 CONTINUE 02910043
295: IVTNUM = 691 02920043
296: C 02930043
297: C **** TEST 691 **** 02940043
298: C 02950043
299: IF (ICZERO) 36910, 6910, 36910 02960043
300: 6910 CONTINUE 02970043
301: IVON01 = 45 02980043
302: IVON02 = 9 02990043
303: IVON03 = 3 03000043
304: IVCOMP = IVON01 + (IVON02 / IVON03) 03010043
305: GO TO 46910 03020043
306: 36910 IVDELE = IVDELE + 1 03030043
307: WRITE (I02,80003) IVTNUM 03040043
308: IF (ICZERO) 46910, 6921, 46910 03050043
309: 46910 IF (IVCOMP - 48) 26910,16910,26910 03060043
310: 16910 IVPASS = IVPASS + 1 03070043
311: WRITE (I02,80001) IVTNUM 03080043
312: GO TO 6921 03090043
313: 26910 IVFAIL = IVFAIL + 1 03100043
314: IVCORR = 48 03110043
315: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 03120043
316: 6921 CONTINUE 03130043
317: C 03140043
318: C TESTS 692 THROUGH 694 TEST '+' FOLLOWED BY '**'. 03150043
319: C 03160043
320: IVTNUM = 692 03170043
321: C 03180043
322: C **** TEST 692 **** 03190043
323: C 03200043
324: IF (ICZERO) 36920, 6920, 36920 03210043
325: 6920 CONTINUE 03220043
326: IVON01 = 15 03230043
327: IVON02 = 9 03240043
328: IVON03 = 3 03250043
329: IVCOMP = IVON01 + IVON02 ** IVON03 03260043
330: GO TO 46920 03270043
331: 36920 IVDELE = IVDELE + 1 03280043
332: WRITE (I02,80003) IVTNUM 03290043
333: IF (ICZERO) 46920, 6931, 46920 03300043
334: 46920 IF (IVCOMP - 744) 26920,16920,26920 03310043
335: 16920 IVPASS = IVPASS + 1 03320043
336: WRITE (I02,80001) IVTNUM 03330043
337: GO TO 6931 03340043
338: 26920 IVFAIL = IVFAIL + 1 03350043
339: IVCORR = 744 03360043
340: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 03370043
341: 6931 CONTINUE 03380043
342: IVTNUM = 693 03390043
343: C 03400043
344: C **** TEST 693 **** 03410043
345: C 03420043
346: IF (ICZERO) 36930, 6930, 36930 03430043
347: 6930 CONTINUE 03440043
348: IVON01 = 15 03450043
349: IVON02 = 9 03460043
350: IVON03 = 3 03470043
351: IVCOMP = (IVON01 + IVON02) ** IVON03 03480043
352: GO TO 46930 03490043
353: 36930 IVDELE = IVDELE + 1 03500043
354: WRITE (I02,80003) IVTNUM 03510043
355: IF (ICZERO) 46930, 6941, 46930 03520043
356: 46930 IF (IVCOMP - 13824) 26930,16930,26930 03530043
357: 16930 IVPASS = IVPASS + 1 03540043
358: WRITE (I02,80001) IVTNUM 03550043
359: GO TO 6941 03560043
360: 26930 IVFAIL = IVFAIL + 1 03570043
361: IVCORR = 13824 03580043
362: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 03590043
363: 6941 CONTINUE 03600043
364: IVTNUM = 694 03610043
365: C 03620043
366: C **** TEST 694 **** 03630043
367: C 03640043
368: IF (ICZERO) 36940, 6940, 36940 03650043
369: 6940 CONTINUE 03660043
370: IVON01 = 15 03670043
371: IVON02 = 9 03680043
372: IVON03 = 3 03690043
373: IVCOMP = IVON01 + (IVON02 ** IVON03) 03700043
374: GO TO 46940 03710043
375: 36940 IVDELE = IVDELE + 1 03720043
376: WRITE (I02,80003) IVTNUM 03730043
377: IF (ICZERO) 46940, 6951, 46940 03740043
378: 46940 IF (IVCOMP - 744) 26940,16940,26940 03750043
379: 16940 IVPASS = IVPASS + 1 03760043
380: WRITE (I02,80001) IVTNUM 03770043
381: GO TO 6951 03780043
382: 26940 IVFAIL = IVFAIL + 1 03790043
383: IVCORR = 744 03800043
384: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 03810043
385: 6951 CONTINUE 03820043
386: C 03830043
387: C TESTS 695 THROUGH 697 TEST '-' FOLLOWED BY '+'. 03840043
388: C 03850043
389: IVTNUM = 695 03860043
390: C 03870043
391: C **** TEST 695 **** 03880043
392: C 03890043
393: IF (ICZERO) 36950, 6950, 36950 03900043
394: 6950 CONTINUE 03910043
395: IVON01 = 45 03920043
396: IVON02 = 9 03930043
397: IVON03 = 3 03940043
398: IVCOMP = IVON01 - IVON02 + IVON03 03950043
399: GO TO 46950 03960043
400: 36950 IVDELE = IVDELE + 1 03970043
401: WRITE (I02,80003) IVTNUM 03980043
402: IF (ICZERO) 46950, 6961, 46950 03990043
403: 46950 IF (IVCOMP - 39) 26950,16950,26950 04000043
404: 16950 IVPASS = IVPASS + 1 04010043
405: WRITE (I02,80001) IVTNUM 04020043
406: GO TO 6961 04030043
407: 26950 IVFAIL = IVFAIL + 1 04040043
408: IVCORR = 39 04050043
409: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 04060043
410: 6961 CONTINUE 04070043
411: IVTNUM = 696 04080043
412: C 04090043
413: C **** TEST 696 **** 04100043
414: C 04110043
415: IF (ICZERO) 36960, 6960, 36960 04120043
416: 6960 CONTINUE 04130043
417: IVON01 = 45 04140043
418: IVON02 = 9 04150043
419: IVON03 = 3 04160043
420: IVCOMP = (IVON01 - IVON02) + IVON03 04170043
421: GO TO 46960 04180043
422: 36960 IVDELE = IVDELE + 1 04190043
423: WRITE (I02,80003) IVTNUM 04200043
424: IF (ICZERO) 46960, 6971, 46960 04210043
425: 46960 IF (IVCOMP - 39) 26960,16960,26960 04220043
426: 16960 IVPASS = IVPASS + 1 04230043
427: WRITE (I02,80001) IVTNUM 04240043
428: GO TO 6971 04250043
429: 26960 IVFAIL = IVFAIL + 1 04260043
430: IVCORR = 39 04270043
431: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 04280043
432: 6971 CONTINUE 04290043
433: IVTNUM = 697 04300043
434: C 04310043
435: C **** TEST 697 **** 04320043
436: C 04330043
437: IF (ICZERO) 36970, 6970, 36970 04340043
438: 6970 CONTINUE 04350043
439: IVON01 = 45 04360043
440: IVON02 = 9 04370043
441: IVON03 = 3 04380043
442: IVCOMP = IVON01 - (IVON02 + IVON03) 04390043
443: GO TO 46970 04400043
444: 36970 IVDELE = IVDELE + 1 04410043
445: WRITE (I02,80003) IVTNUM 04420043
446: IF (ICZERO) 46970, 6981, 46970 04430043
447: 46970 IF (IVCOMP - 33) 26970,16970,26970 04440043
448: 16970 IVPASS = IVPASS + 1 04450043
449: WRITE (I02,80001) IVTNUM 04460043
450: GO TO 6981 04470043
451: 26970 IVFAIL = IVFAIL + 1 04480043
452: IVCORR = 33 04490043
453: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 04500043
454: 6981 CONTINUE 04510043
455: C 04520043
456: C TESTS 698 THROUGH 700 TEST '-' FOLLOWED BY '*'. 04530043
457: C 04540043
458: IVTNUM = 698 04550043
459: C 04560043
460: C **** TEST 698 **** 04570043
461: C 04580043
462: IF (ICZERO) 36980, 6980, 36980 04590043
463: 6980 CONTINUE 04600043
464: IVON01 = 45 04610043
465: IVON02 = 9 04620043
466: IVON03 = 3 04630043
467: IVCOMP = IVON01 - IVON02 * IVON03 04640043
468: GO TO 46980 04650043
469: 36980 IVDELE = IVDELE + 1 04660043
470: WRITE (I02,80003) IVTNUM 04670043
471: IF (ICZERO) 46980, 6991, 46980 04680043
472: 46980 IF (IVCOMP - 18) 26980,16980,26980 04690043
473: 16980 IVPASS = IVPASS + 1 04700043
474: WRITE (I02,80001) IVTNUM 04710043
475: GO TO 6991 04720043
476: 26980 IVFAIL = IVFAIL + 1 04730043
477: IVCORR = 18 04740043
478: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 04750043
479: 6991 CONTINUE 04760043
480: IVTNUM = 699 04770043
481: C 04780043
482: C **** TEST 699 **** 04790043
483: C 04800043
484: IF (ICZERO) 36990, 6990, 36990 04810043
485: 6990 CONTINUE 04820043
486: IVON01 = 45 04830043
487: IVON02 = 9 04840043
488: IVON03 = 3 04850043
489: IVCOMP = (IVON01 - IVON02) * IVON03 04860043
490: GO TO 46990 04870043
491: 36990 IVDELE = IVDELE + 1 04880043
492: WRITE (I02,80003) IVTNUM 04890043
493: IF (ICZERO) 46990, 7001, 46990 04900043
494: 46990 IF (IVCOMP - 108) 26990,16990,26990 04910043
495: 16990 IVPASS = IVPASS + 1 04920043
496: WRITE (I02,80001) IVTNUM 04930043
497: GO TO 7001 04940043
498: 26990 IVFAIL = IVFAIL + 1 04950043
499: IVCORR = 108 04960043
500: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 04970043
501: 7001 CONTINUE 04980043
502: IVTNUM = 700 04990043
503: C 05000043
504: C **** TEST 700 **** 05010043
505: C 05020043
506: IF (ICZERO) 37000, 7000, 37000 05030043
507: 7000 CONTINUE 05040043
508: IVON01 = 45 05050043
509: IVON02 = 9 05060043
510: IVON03 = 3 05070043
511: IVCOMP = IVON01 - (IVON02 * IVON03) 05080043
512: GO TO 47000 05090043
513: 37000 IVDELE = IVDELE + 1 05100043
514: WRITE (I02,80003) IVTNUM 05110043
515: IF (ICZERO) 47000, 7011, 47000 05120043
516: 47000 IF (IVCOMP - 18) 27000,17000,27000 05130043
517: 17000 IVPASS = IVPASS + 1 05140043
518: WRITE (I02,80001) IVTNUM 05150043
519: GO TO 7011 05160043
520: 27000 IVFAIL = IVFAIL + 1 05170043
521: IVCORR = 18 05180043
522: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 05190043
523: 7011 CONTINUE 05200043
524: C 05210043
525: C TESTS 701 THROUGH 703 TEST '-' FOLLOWED BY '/'. 05220043
526: C 05230043
527: IVTNUM = 701 05240043
528: C 05250043
529: C **** TEST 701 **** 05260043
530: C 05270043
531: IF (ICZERO) 37010, 7010, 37010 05280043
532: 7010 CONTINUE 05290043
533: IVON01 = 45 05300043
534: IVON02 = 9 05310043
535: IVON03 = 3 05320043
536: IVCOMP = IVON01 - IVON02 / IVON03 05330043
537: GO TO 47010 05340043
538: 37010 IVDELE = IVDELE + 1 05350043
539: WRITE (I02,80003) IVTNUM 05360043
540: IF (ICZERO) 47010, 7021, 47010 05370043
541: 47010 IF (IVCOMP - 42) 27010,17010,27010 05380043
542: 17010 IVPASS = IVPASS + 1 05390043
543: WRITE (I02,80001) IVTNUM 05400043
544: GO TO 7021 05410043
545: 27010 IVFAIL = IVFAIL + 1 05420043
546: IVCORR = 42 05430043
547: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 05440043
548: 7021 CONTINUE 05450043
549: IVTNUM = 702 05460043
550: C 05470043
551: C **** TEST 702 **** 05480043
552: C 05490043
553: IF (ICZERO) 37020, 7020, 37020 05500043
554: 7020 CONTINUE 05510043
555: IVON01 = 45 05520043
556: IVON02 = 9 05530043
557: IVON03 = 3 05540043
558: IVCOMP = (IVON01 - IVON02) / IVON03 05550043
559: GO TO 47020 05560043
560: 37020 IVDELE = IVDELE + 1 05570043
561: WRITE (I02,80003) IVTNUM 05580043
562: IF (ICZERO) 47020, 7031, 47020 05590043
563: 47020 IF (IVCOMP - 12) 27020,17020,27020 05600043
564: 17020 IVPASS = IVPASS + 1 05610043
565: WRITE (I02,80001) IVTNUM 05620043
566: GO TO 7031 05630043
567: 27020 IVFAIL = IVFAIL + 1 05640043
568: IVCORR = 12 05650043
569: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 05660043
570: 7031 CONTINUE 05670043
571: IVTNUM = 703 05680043
572: C 05690043
573: C **** TEST 703 **** 05700043
574: C 05710043
575: IF (ICZERO) 37030, 7030, 37030 05720043
576: 7030 CONTINUE 05730043
577: IVON01 = 45 05740043
578: IVON02 = 9 05750043
579: IVON03 = 3 05760043
580: IVCOMP = IVON01 - (IVON02 / IVON03) 05770043
581: GO TO 47030 05780043
582: 37030 IVDELE = IVDELE + 1 05790043
583: WRITE (I02,80003) IVTNUM 05800043
584: IF (ICZERO) 47030, 7041, 47030 05810043
585: 47030 IF (IVCOMP - 42) 27030,17030,27030 05820043
586: 17030 IVPASS = IVPASS + 1 05830043
587: WRITE (I02,80001) IVTNUM 05840043
588: GO TO 7041 05850043
589: 27030 IVFAIL = IVFAIL + 1 05860043
590: IVCORR = 42 05870043
591: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 05880043
592: 7041 CONTINUE 05890043
593: C 05900043
594: C TESTS 704 THROUGH 706 TEST '-' FOLLOWED BY '**'. 05910043
595: C 05920043
596: IVTNUM = 704 05930043
597: C 05940043
598: C **** TEST 704 **** 05950043
599: C 05960043
600: IF (ICZERO) 37040, 7040, 37040 05970043
601: 7040 CONTINUE 05980043
602: IVON01 = 35 05990043
603: IVON02 = 9 06000043
604: IVON03 = 3 06010043
605: IVCOMP = IVON01 - IVON02 ** IVON03 06020043
606: GO TO 47040 06030043
607: 37040 IVDELE = IVDELE + 1 06040043
608: WRITE (I02,80003) IVTNUM 06050043
609: IF (ICZERO) 47040, 7051, 47040 06060043
610: 47040 IF (IVCOMP + 694) 27040,17040,27040 06070043
611: 17040 IVPASS = IVPASS + 1 06080043
612: WRITE (I02,80001) IVTNUM 06090043
613: GO TO 7051 06100043
614: 27040 IVFAIL = IVFAIL + 1 06110043
615: IVCORR = -694 06120043
616: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 06130043
617: 7051 CONTINUE 06140043
618: IVTNUM = 705 06150043
619: C 06160043
620: C **** TEST 705 **** 06170043
621: C 06180043
622: IF (ICZERO) 37050, 7050, 37050 06190043
623: 7050 CONTINUE 06200043
624: IVON01 = 35 06210043
625: IVON02 = 9 06220043
626: IVON03 = 3 06230043
627: IVCOMP = (IVON01 - IVON02) ** IVON03 06240043
628: GO TO 47050 06250043
629: 37050 IVDELE = IVDELE + 1 06260043
630: WRITE (I02,80003) IVTNUM 06270043
631: IF (ICZERO) 47050, 7061, 47050 06280043
632: 47050 IF (IVCOMP - 17576) 27050,17050,27050 06290043
633: 17050 IVPASS = IVPASS + 1 06300043
634: WRITE (I02,80001) IVTNUM 06310043
635: GO TO 7061 06320043
636: 27050 IVFAIL = IVFAIL + 1 06330043
637: IVCORR = 17576 06340043
638: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 06350043
639: 7061 CONTINUE 06360043
640: IVTNUM = 706 06370043
641: C 06380043
642: C **** TEST 706 **** 06390043
643: C 06400043
644: IF (ICZERO) 37060, 7060, 37060 06410043
645: 7060 CONTINUE 06420043
646: IVON01 = 35 06430043
647: IVON02 = 9 06440043
648: IVON03 = 3 06450043
649: IVCOMP = IVON01 - (IVON02 ** IVON03) 06460043
650: GO TO 47060 06470043
651: 37060 IVDELE = IVDELE + 1 06480043
652: WRITE (I02,80003) IVTNUM 06490043
653: IF (ICZERO) 47060, 7071, 47060 06500043
654: 47060 IF (IVCOMP + 694) 27060,17060,27060 06510043
655: 17060 IVPASS = IVPASS + 1 06520043
656: WRITE (I02,80001) IVTNUM 06530043
657: GO TO 7071 06540043
658: 27060 IVFAIL = IVFAIL + 1 06550043
659: IVCORR = -694 06560043
660: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 06570043
661: 7071 CONTINUE 06580043
662: C 06590043
663: C TESTS 707 THROUGH 709 TEST '*' FOLLOWED BY '+'. 06600043
664: C 06610043
665: IVTNUM = 707 06620043
666: C 06630043
667: C **** TEST 707 **** 06640043
668: C 06650043
669: IF (ICZERO) 37070, 7070, 37070 06660043
670: 7070 CONTINUE 06670043
671: IVON01 = 45 06680043
672: IVON02 = 9 06690043
673: IVON03 = 3 06700043
674: IVCOMP = IVON01 * IVON02 + IVON03 06710043
675: GO TO 47070 06720043
676: 37070 IVDELE = IVDELE + 1 06730043
677: WRITE (I02,80003) IVTNUM 06740043
678: IF (ICZERO) 47070, 7081, 47070 06750043
679: 47070 IF (IVCOMP - 408) 27070,17070,27070 06760043
680: 17070 IVPASS = IVPASS + 1 06770043
681: WRITE (I02,80001) IVTNUM 06780043
682: GO TO 7081 06790043
683: 27070 IVFAIL = IVFAIL + 1 06800043
684: IVCORR = 408 06810043
685: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 06820043
686: 7081 CONTINUE 06830043
687: IVTNUM = 708 06840043
688: C 06850043
689: C **** TEST 708 **** 06860043
690: C 06870043
691: IF (ICZERO) 37080, 7080, 37080 06880043
692: 7080 CONTINUE 06890043
693: IVON01 = 45 06900043
694: IVON02 = 9 06910043
695: IVON03 = 3 06920043
696: IVCOMP = (IVON01 * IVON02) + IVON03 06930043
697: GO TO 47080 06940043
698: 37080 IVDELE = IVDELE + 1 06950043
699: WRITE (I02,80003) IVTNUM 06960043
700: IF (ICZERO) 47080, 7091, 47080 06970043
701: 47080 IF (IVCOMP - 408) 27080,17080,27080 06980043
702: 17080 IVPASS = IVPASS + 1 06990043
703: WRITE (I02,80001) IVTNUM 07000043
704: GO TO 7091 07010043
705: 27080 IVFAIL = IVFAIL + 1 07020043
706: IVCORR = 408 07030043
707: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 07040043
708: 7091 CONTINUE 07050043
709: IVTNUM = 709 07060043
710: C 07070043
711: C **** TEST 709 **** 07080043
712: C 07090043
713: IF (ICZERO) 37090, 7090, 37090 07100043
714: 7090 CONTINUE 07110043
715: IVON01 = 45 07120043
716: IVON02 = 9 07130043
717: IVON03 = 3 07140043
718: IVCOMP = IVON01 * (IVON02 + IVON03) 07150043
719: GO TO 47090 07160043
720: 37090 IVDELE = IVDELE + 1 07170043
721: WRITE (I02,80003) IVTNUM 07180043
722: IF (ICZERO) 47090, 7101, 47090 07190043
723: 47090 IF (IVCOMP - 540) 27090,17090,27090 07200043
724: 17090 IVPASS = IVPASS + 1 07210043
725: WRITE (I02,80001) IVTNUM 07220043
726: GO TO 7101 07230043
727: 27090 IVFAIL = IVFAIL + 1 07240043
728: IVCORR = 540 07250043
729: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 07260043
730: 7101 CONTINUE 07270043
731: C 07280043
732: C TESTS 710 THROUGH 712 TEST '*' FOLLOWED BY '-'. 07290043
733: C 07300043
734: IVTNUM = 710 07310043
735: C 07320043
736: C **** TEST 710 **** 07330043
737: C 07340043
738: IF (ICZERO) 37100, 7100, 37100 07350043
739: 7100 CONTINUE 07360043
740: IVON01 = 45 07370043
741: IVON02 = 9 07380043
742: IVON03 = 3 07390043
743: IVCOMP = IVON01 * IVON02 - IVON03 07400043
744: GO TO 47100 07410043
745: 37100 IVDELE = IVDELE + 1 07420043
746: WRITE (I02,80003) IVTNUM 07430043
747: IF (ICZERO) 47100, 7111, 47100 07440043
748: 47100 IF (IVCOMP - 402) 27100,17100,27100 07450043
749: 17100 IVPASS = IVPASS + 1 07460043
750: WRITE (I02,80001) IVTNUM 07470043
751: GO TO 7111 07480043
752: 27100 IVFAIL = IVFAIL + 1 07490043
753: IVCORR = 402 07500043
754: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 07510043
755: 7111 CONTINUE 07520043
756: IVTNUM = 711 07530043
757: C 07540043
758: C **** TEST 711 **** 07550043
759: C 07560043
760: IF (ICZERO) 37110, 7110, 37110 07570043
761: 7110 CONTINUE 07580043
762: IVON01 = 45 07590043
763: IVON02 = 9 07600043
764: IVON03 = 3 07610043
765: IVCOMP = (IVON01 * IVON02) - IVON03 07620043
766: GO TO 47110 07630043
767: 37110 IVDELE = IVDELE + 1 07640043
768: WRITE (I02,80003) IVTNUM 07650043
769: IF (ICZERO) 47110, 7121, 47110 07660043
770: 47110 IF (IVCOMP - 402) 27110,17110,27110 07670043
771: 17110 IVPASS = IVPASS + 1 07680043
772: WRITE (I02,80001) IVTNUM 07690043
773: GO TO 7121 07700043
774: 27110 IVFAIL = IVFAIL + 1 07710043
775: IVCORR = 402 07720043
776: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 07730043
777: 7121 CONTINUE 07740043
778: IVTNUM = 712 07750043
779: C 07760043
780: C **** TEST 712 **** 07770043
781: C 07780043
782: IF (ICZERO) 37120, 7120, 37120 07790043
783: 7120 CONTINUE 07800043
784: IVON01 = 45 07810043
785: IVON02 = 9 07820043
786: IVON03 = 3 07830043
787: IVCOMP = IVON01 * (IVON02 - IVON03) 07840043
788: GO TO 47120 07850043
789: 37120 IVDELE = IVDELE + 1 07860043
790: WRITE (I02,80003) IVTNUM 07870043
791: IF (ICZERO) 47120, 7131, 47120 07880043
792: 47120 IF (IVCOMP - 270) 27120,17120,27120 07890043
793: 17120 IVPASS = IVPASS + 1 07900043
794: WRITE (I02,80001) IVTNUM 07910043
795: GO TO 7131 07920043
796: 27120 IVFAIL = IVFAIL + 1 07930043
797: IVCORR = 270 07940043
798: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 07950043
799: 7131 CONTINUE 07960043
800: C 07970043
801: C TESTS 713 THROUGH 715 TEST '*' FOLLOWED BY '/'. 07980043
802: C 07990043
803: IVTNUM = 713 08000043
804: C 08010043
805: C **** TEST 713 **** 08020043
806: C 08030043
807: IF (ICZERO) 37130, 7130, 37130 08040043
808: 7130 CONTINUE 08050043
809: IVON01 = 45 08060043
810: IVON02 = 9 08070043
811: IVON03 = 3 08080043
812: IVCOMP = IVON01 * IVON02 / IVON03 08090043
813: GO TO 47130 08100043
814: 37130 IVDELE = IVDELE + 1 08110043
815: WRITE (I02,80003) IVTNUM 08120043
816: IF (ICZERO) 47130, 7141, 47130 08130043
817: 47130 IF (IVCOMP - 135) 27130,17130,27130 08140043
818: 17130 IVPASS = IVPASS + 1 08150043
819: WRITE (I02,80001) IVTNUM 08160043
820: GO TO 7141 08170043
821: 27130 IVFAIL = IVFAIL + 1 08180043
822: IVCORR = 135 08190043
823: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 08200043
824: 7141 CONTINUE 08210043
825: IVTNUM = 714 08220043
826: C 08230043
827: C **** TEST 714 **** 08240043
828: C 08250043
829: IF (ICZERO) 37140, 7140, 37140 08260043
830: 7140 CONTINUE 08270043
831: IVON01 = 45 08280043
832: IVON02 = 9 08290043
833: IVON03 = 3 08300043
834: IVCOMP = (IVON01 * IVON02) / IVON03 08310043
835: GO TO 47140 08320043
836: 37140 IVDELE = IVDELE + 1 08330043
837: WRITE (I02,80003) IVTNUM 08340043
838: IF (ICZERO) 47140, 7151, 47140 08350043
839: 47140 IF (IVCOMP - 135) 27140,17140,27140 08360043
840: 17140 IVPASS = IVPASS + 1 08370043
841: WRITE (I02,80001) IVTNUM 08380043
842: GO TO 7151 08390043
843: 27140 IVFAIL = IVFAIL + 1 08400043
844: IVCORR = 135 08410043
845: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 08420043
846: 7151 CONTINUE 08430043
847: IVTNUM = 715 08440043
848: C 08450043
849: C **** TEST 715 **** 08460043
850: C 08470043
851: IF (ICZERO) 37150, 7150, 37150 08480043
852: 7150 CONTINUE 08490043
853: IVON01 = 45 08500043
854: IVON02 = 9 08510043
855: IVON03 = 3 08520043
856: IVCOMP = IVON01 * (IVON02 / IVON03) 08530043
857: GO TO 47150 08540043
858: 37150 IVDELE = IVDELE + 1 08550043
859: WRITE (I02,80003) IVTNUM 08560043
860: IF (ICZERO) 47150, 7161, 47150 08570043
861: 47150 IF (IVCOMP - 135) 27150,17150,27150 08580043
862: 17150 IVPASS = IVPASS + 1 08590043
863: WRITE (I02,80001) IVTNUM 08600043
864: GO TO 7161 08610043
865: 27150 IVFAIL = IVFAIL + 1 08620043
866: IVCORR = 135 08630043
867: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 08640043
868: 7161 CONTINUE 08650043
869: C 08660043
870: C TESTS 716 THROUGH 718 TEST '*' FOLLOWED BY '**'. 08670043
871: C 08680043
872: IVTNUM = 716 08690043
873: C 08700043
874: C **** TEST 716 **** 08710043
875: C 08720043
876: IF (ICZERO) 37160, 7160, 37160 08730043
877: 7160 CONTINUE 08740043
878: IVON01 = 7 08750043
879: IVON02 = 3 08760043
880: IVON03 = 3 08770043
881: IVCOMP = IVON01 * IVON02 ** IVON03 08780043
882: GO TO 47160 08790043
883: 37160 IVDELE = IVDELE + 1 08800043
884: WRITE (I02,80003) IVTNUM 08810043
885: IF (ICZERO) 47160, 7171, 47160 08820043
886: 47160 IF (IVCOMP - 189) 27160,17160,27160 08830043
887: 17160 IVPASS = IVPASS + 1 08840043
888: WRITE (I02,80001) IVTNUM 08850043
889: GO TO 7171 08860043
890: 27160 IVFAIL = IVFAIL + 1 08870043
891: IVCORR = 189 08880043
892: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 08890043
893: 7171 CONTINUE 08900043
894: IVTNUM = 717 08910043
895: C 08920043
896: C **** TEST 717 **** 08930043
897: C 08940043
898: IF (ICZERO) 37170, 7170, 37170 08950043
899: 7170 CONTINUE 08960043
900: IVON01 = 7 08970043
901: IVON02 = 3 08980043
902: IVON03 = 3 08990043
903: IVCOMP = (IVON01 * IVON02) ** IVON03 09000043
904: GO TO 47170 09010043
905: 37170 IVDELE = IVDELE + 1 09020043
906: WRITE (I02,80003) IVTNUM 09030043
907: IF (ICZERO) 47170, 7181, 47170 09040043
908: 47170 IF (IVCOMP - 9261) 27170,17170,27170 09050043
909: 17170 IVPASS = IVPASS + 1 09060043
910: WRITE (I02,80001) IVTNUM 09070043
911: GO TO 7181 09080043
912: 27170 IVFAIL = IVFAIL + 1 09090043
913: IVCORR = 9261 09100043
914: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 09110043
915: 7181 CONTINUE 09120043
916: IVTNUM = 718 09130043
917: C 09140043
918: C **** TEST 718 **** 09150043
919: C 09160043
920: IF (ICZERO) 37180, 7180, 37180 09170043
921: 7180 CONTINUE 09180043
922: IVON01 = 7 09190043
923: IVON02 = 3 09200043
924: IVON03 = 3 09210043
925: IVCOMP = IVON01 * (IVON02 ** IVON03) 09220043
926: GO TO 47180 09230043
927: 37180 IVDELE = IVDELE + 1 09240043
928: WRITE (I02,80003) IVTNUM 09250043
929: IF (ICZERO) 47180, 7191, 47180 09260043
930: 47180 IF (IVCOMP - 189) 27180,17180,27180 09270043
931: 17180 IVPASS = IVPASS + 1 09280043
932: WRITE (I02,80001) IVTNUM 09290043
933: GO TO 7191 09300043
934: 27180 IVFAIL = IVFAIL + 1 09310043
935: IVCORR = 189 09320043
936: WRITE (I02,80004) IVTNUM, IVCOMP, IVCORR 09330043
937: 7191 CONTINUE 09340043
938: C 09350043
939: C WRITE PAGE FOOTINGS AND RUN SUMMARIES 09360043
940: 99999 CONTINUE 09370043
941: WRITE (I02,90002) 09380043
942: WRITE (I02,90006) 09390043
943: WRITE (I02,90002) 09400043
944: WRITE (I02,90002) 09410043
945: WRITE (I02,90007) 09420043
946: WRITE (I02,90002) 09430043
947: WRITE (I02,90008) IVFAIL 09440043
948: WRITE (I02,90009) IVPASS 09450043
949: WRITE (I02,90010) IVDELE 09460043
950: C 09470043
951: C 09480043
952: C TERMINATE ROUTINE EXECUTION 09490043
953: STOP 09500043
954: C 09510043
955: C FORMAT STATEMENTS FOR PAGE HEADERS 09520043
956: 90000 FORMAT (1H1) 09530043
957: 90002 FORMAT (1H ) 09540043
958: 90001 FORMAT (1H ,10X,34HFORTRAN COMPILER VALIDATION SYSTEM) 09550043
959: 90003 FORMAT (1H ,21X,11HVERSION 1.0) 09560043
960: 90004 FORMAT (1H ,10X,38HFOR OFFICIAL USE ONLY - COPYRIGHT 1978) 09570043
961: 90005 FORMAT (1H ,5X,4HTEST,5X,9HPASS/FAIL, 5X,8HCOMPUTED,8X,7HCORRECT) 09580043
962: 90006 FORMAT (1H ,5X,46H----------------------------------------------) 09590043
963: 90011 FORMAT (1H ,18X,17HSUBSET LEVEL TEST) 09600043
964: C 09610043
965: C FORMAT STATEMENTS FOR RUN SUMMARIES 09620043
966: 90008 FORMAT (1H ,15X,I5,19H ERRORS ENCOUNTERED) 09630043
967: 90009 FORMAT (1H ,15X,I5,13H TESTS PASSED) 09640043
968: 90010 FORMAT (1H ,15X,I5,14H TESTS DELETED) 09650043
969: C 09660043
970: C FORMAT STATEMENTS FOR TEST RESULTS 09670043
971: 80001 FORMAT (1H ,4X,I5,7X,4HPASS) 09680043
972: 80002 FORMAT (1H ,4X,I5,7X,4HFAIL) 09690043
973: 80003 FORMAT (1H ,4X,I5,7X,7HDELETED) 09700043
974: 80004 FORMAT (1H ,4X,I5,7X,4HFAIL,10X,I6,9X,I6) 09710043
975: 80005 FORMAT (1H ,4X,I5,7X,4HFAIL,4X,E12.5,3X,E12.5) 09720043
976: C 09730043
977: 90007 FORMAT (1H ,20X,20HEND OF PROGRAM FM043) 09740043
978: END 09750043
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.