![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM362.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 FM362.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***********************************************************************00010362
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 00020362
6: C***** FM362 XMIN - (167) 00030362
7: C***** 00040362
8: C***********************************************************************00050362
9: C***** GENERAL PURPOSE SUBSET REF00060362
10: C***** TEST INTRINSIC FUNCTIONS AMIN0,AMIN1,MIN0,MIN1 15.3 00070362
11: C***** CHOOSING SMALLEST VALUE. (TABLE 5)00080362
12: C***** 00090362
13: CBB** ********************** BBCCOMNT **********************************00100362
14: C**** 00110362
15: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00120362
16: C**** VERSION 2.0 00130362
17: C**** 00140362
18: C**** 00150362
19: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00160362
20: C**** GENERAL SERVICES ADMINISTRATION 00170362
21: C**** FEDERAL SOFTWARE TESTING CENTER 00180362
22: C**** 5203 LEESBURG PIKE, SUITE 1100 00190362
23: C**** FALLS CHURCH, VA. 22041 00200362
24: C**** 00210362
25: C**** (703) 756-6153 00220362
26: C**** 00230362
27: CBE** ********************** BBCCOMNT **********************************00240362
28: CBB** ********************** BBCINITA **********************************00250362
29: C**** SPECIFICATION STATEMENTS 00260362
30: C**** 00270362
31: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00280362
32: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00290362
33: CBE** ********************** BBCINITA **********************************00300362
34: CBB** ********************** BBCINITB **********************************00310362
35: C**** INITIALIZE SECTION 00320362
36: DATA ZVERS, ZVERSD, ZDATE 00330362
37: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00340362
38: DATA ZCOMPL, ZNAME, ZTAPE 00350362
39: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00360362
40: DATA ZPROJ, ZTAPED, ZPROG 00370362
41: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00380362
42: DATA REMRKS /' '/ 00390362
43: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00400362
44: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00410362
45: C**** 00420362
46: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00430362
47: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00440362
48: CZ03 ZPROG = 'PROGRAM NAME' 00450362
49: ZDATE = '07-Nov-85 ' *RP
50: ZCOMPL = 'CCI 5.2 ' *RP
51: ZPROJ = 'TC-85- -410' *RP
52: ZNAME = ' ' *RP
53: ZTAPE = ' ' *RP
54: ZTAPED = '850703 ' *RP
55: C 00520362
56: IVPASS = 0 00530362
57: IVFAIL = 0 00540362
58: IVDELE = 0 00550362
59: IVINSP = 0 00560362
60: IVTOTL = 0 00570362
61: IVTOTN = 0 00580362
62: ICZERO = 0 00590362
63: C 00600362
64: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00610362
65: I01 = 05 00620362
66: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00630362
67: I02 = 06 00640362
68: C 00650362
69: I01 = 5 00660362
70: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00670362
71: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00680362
72: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00690362
73: C 00700362
74: I02 = 6 00710362
75: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00720362
76: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00730362
77: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00740362
78: C 00750362
79: CBE** ********************** BBCINITB **********************************00760362
80: NUVI = I02 00770362
81: IVTOTL = 47 00780362
82: ZPROG = 'FM362' 00790362
83: CBB** ********************** BBCHED0A **********************************00800362
84: C**** 00810362
85: C**** WRITE REPORT TITLE 00820362
86: C**** 00830362
87: WRITE (I02, 90002) 00840362
88: WRITE (I02, 90006) 00850362
89: WRITE (I02, 90007) 00860362
90: WRITE (I02, 90008) ZVERS, ZVERSD 00870362
91: WRITE (I02, 90009) ZPROG, ZPROG 00880362
92: WRITE (I02, 90010) ZDATE, ZCOMPL 00890362
93: CBE** ********************** BBCHED0A **********************************00900362
94: C***** 00910362
95: C***** HEADER FOR SEGMENT 167 00920362
96: WRITE (NUVI,16700) 00930362
97: 16700 FORMAT (1H , // 2X,36HXMIN - (167) INTRINSIC FUNCTIONS-- //13X,00940362
98: 1 24HAMIN0, AMIN1, MIN0, MIN1/ 13X, 00950362
99: 2 25H(CHOOSING SMALLEST VALUE)//2X, 00960362
100: 3 18HSUBSET REF. - 15.3) 00970362
101: CBB** ********************** BBCHED0B **********************************00980362
102: C**** WRITE DETAIL REPORT HEADERS 00990362
103: C**** 01000362
104: WRITE (I02,90004) 01010362
105: WRITE (I02,90004) 01020362
106: WRITE (I02,90013) 01030362
107: WRITE (I02,90014) 01040362
108: WRITE (I02,90015) IVTOTL 01050362
109: CBE** ********************** BBCHED0B **********************************01060362
110: C***** 01070362
111: C***** TEST OF AMIN0 01080362
112: C***** 01090362
113: WRITE(NUVI, 16702) 01100362
114: 16702 FORMAT (/ 8X, 13HTEST OF AMIN0) 01110362
115: CT001* TEST 1 BOTH VALUES ZERO 01120362
116: IVTNUM = 1 01130362
117: IIBVI = 0 01140362
118: IIDVI = 0 01150362
119: RIAVS = AMIN0(IIBVI, IIDVI) 01160362
120: IF (RIAVS + 0.00005) 20010, 10010, 40010 01170362
121: 40010 IF (RIAVS - 0.00005) 10010, 10010, 20010 01180362
122: 10010 IVPASS = IVPASS + 1 01190362
123: WRITE (NUVI, 80002) IVTNUM 01200362
124: GO TO 0011 01210362
125: 20010 IVFAIL = IVFAIL + 1 01220362
126: RVCORR = 0.0 01230362
127: WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 01240362
128: 0011 CONTINUE 01250362
129: CT002* TEST 2 FIRST VALUE NON-ZERO, SECOND ZERO 01260362
130: IVTNUM = 2 01270362
131: IIBVI = 6 01280362
132: IIDVI = 0 01290362
133: RIAVS = AMIN0(IIBVI, IIDVI) 01300362
134: IF (RIAVS + 0.00005) 20020, 10020, 40020 01310362
135: 40020 IF (RIAVS - 0.00005) 10020, 10020, 20020 01320362
136: 10020 IVPASS = IVPASS + 1 01330362
137: WRITE (NUVI, 80002) IVTNUM 01340362
138: GO TO 0021 01350362
139: 20020 IVFAIL = IVFAIL + 1 01360362
140: RVCORR = 0.0 01370362
141: WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 01380362
142: 0021 CONTINUE 01390362
143: CT003* TEST 3 BOTH VALUES EQUAL 01400362
144: IVTNUM = 3 01410362
145: IIBVI = 7 01420362
146: IIDVI = 7 01430362
147: RIAVS = AMIN0(IIBVI, IIDVI) 01440362
148: IF (RIAVS - 6.9996) 20030, 10030, 40030 01450362
149: 40030 IF (RIAVS - 7.0004) 10030, 10030, 20030 01460362
150: 10030 IVPASS = IVPASS + 1 01470362
151: WRITE (NUVI, 80002) IVTNUM 01480362
152: GO TO 0031 01490362
153: 20030 IVFAIL = IVFAIL + 1 01500362
154: RVCORR = 7.0 01510362
155: WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 01520362
156: 0031 CONTINUE 01530362
157: CT004* TEST 4 VALUES NOT EQUAL 01540362
158: IVTNUM = 4 01550362
159: IIBVI = 7 01560362
160: IIDVI = 5 01570362
161: RIAVS = AMIN0(IIBVI, IIDVI) 01580362
162: IF (RIAVS - 4.9997) 20040, 10040, 40040 01590362
163: 40040 IF (RIAVS - 5.0003) 10040, 10040, 20040 01600362
164: 10040 IVPASS = IVPASS + 1 01610362
165: WRITE (NUVI, 80002) IVTNUM 01620362
166: GO TO 0041 01630362
167: 20040 IVFAIL = IVFAIL + 1 01640362
168: RVCORR = 5.0 01650362
169: WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 01660362
170: 0041 CONTINUE 01670362
171: CT005* TEST 5 FIRST VALUE NEGATIVE, SECOND ZERO 01680362
172: IVTNUM = 5 01690362
173: IIBVI = -6 01700362
174: IIDVI = 0 01710362
175: RIAVS = AMIN0(IIBVI, IIDVI) 01720362
176: IF (RIAVS + 6.0003) 20050, 10050, 40050 01730362
177: 40050 IF (RIAVS + 5.9997) 10050, 10050, 20050 01740362
178: 10050 IVPASS = IVPASS + 1 01750362
179: WRITE (NUVI, 80002) IVTNUM 01760362
180: GO TO 0051 01770362
181: 20050 IVFAIL = IVFAIL + 1 01780362
182: RVCORR = -6.0 01790362
183: WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 01800362
184: 0051 CONTINUE 01810362
185: CT006* TEST 6 BOTH VALUES EQUAL, BOTH NEGATIVE 01820362
186: IVTNUM = 6 01830362
187: IIBVI = -7 01840362
188: IIDVI = -7 01850362
189: RIAVS = AMIN0(IIBVI, IIDVI) 01860362
190: IF (RIAVS + 7.0004) 20060, 10060, 40060 01870362
191: 40060 IF (RIAVS + 6.9996) 10060, 10060, 20060 01880362
192: 10060 IVPASS = IVPASS + 1 01890362
193: WRITE (NUVI, 80002) IVTNUM 01900362
194: GO TO 0061 01910362
195: 20060 IVFAIL = IVFAIL + 1 01920362
196: RVCORR = -7.0 01930362
197: WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 01940362
198: 0061 CONTINUE 01950362
199: CT007* TEST 7 VALUES NOT EQUAL, BOTH NEGATIVE 01960362
200: IVTNUM = 7 01970362
201: IIBVI = -7 01980362
202: IIDVI = -5 01990362
203: RIAVS = AMIN0(IIBVI, IIDVI) 02000362
204: IF (RIAVS + 7.0004) 20070, 10070, 40070 02010362
205: 40070 IF (RIAVS + 6.9996) 10070, 10070, 20070 02020362
206: 10070 IVPASS = IVPASS + 1 02030362
207: WRITE (NUVI, 80002) IVTNUM 02040362
208: GO TO 0071 02050362
209: 20070 IVFAIL = IVFAIL + 1 02060362
210: RVCORR = -7.0 02070362
211: WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 02080362
212: 0071 CONTINUE 02090362
213: CT008* TEST 8 FIRST VALUE NON-ZERO, 2ND ZERO PRECEDED BY MINUS SIGN 02100362
214: IVTNUM = 8 02110362
215: IIDVI = 6 02120362
216: IIEVI = 0 02130362
217: RIAVS = AMIN0(IIDVI, -IIEVI) 02140362
218: IF (RIAVS + 0.00005) 20080, 10080, 40080 02150362
219: 40080 IF (RIAVS - 0.00005) 10080, 10080, 20080 02160362
220: 10080 IVPASS = IVPASS + 1 02170362
221: WRITE (NUVI, 80002) IVTNUM 02180362
222: GO TO 0081 02190362
223: 20080 IVFAIL = IVFAIL + 1 02200362
224: RVCORR = 0.0 02210362
225: WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 02220362
226: 0081 CONTINUE 02230362
227: CT009* TEST 9 3 ARGUMENTS 02240362
228: IVTNUM = 9 02250362
229: IIBVI = 0 02260362
230: IICVI = 9 02270362
231: IIDVI = 8 02280362
232: RIAVS = AMIN0(IIBVI, IICVI, IIDVI) 02290362
233: IF (RIAVS + 0.00005) 20090, 10090, 40090 02300362
234: 40090 IF (RIAVS - 0.00005) 10090, 10090, 20090 02310362
235: 10090 IVPASS = IVPASS + 1 02320362
236: WRITE (NUVI, 80002) IVTNUM 02330362
237: GO TO 0091 02340362
238: 20090 IVFAIL = IVFAIL + 1 02350362
239: RVCORR = 0.0 02360362
240: WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 02370362
241: 0091 CONTINUE 02380362
242: CT010* TEST 10 4 ARGUMENTS 02390362
243: IVTNUM = 10 02400362
244: IIBVI = 34 02410362
245: IICVI = 8 02420362
246: IIDVI = 4 02430362
247: RIAVS = AMIN0(IIDVI, IIBVI, IICVI, IIDVI) 02440362
248: IF (RIAVS - 3.9998) 20100, 10100, 40100 02450362
249: 40100 IF (RIAVS - 4.0002) 10100, 10100, 20100 02460362
250: 10100 IVPASS = IVPASS + 1 02470362
251: WRITE (NUVI, 80002) IVTNUM 02480362
252: GO TO 0101 02490362
253: 20100 IVFAIL = IVFAIL + 1 02500362
254: RVCORR = 4.0 02510362
255: WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 02520362
256: 0101 CONTINUE 02530362
257: CT011* TEST 11 5 ARGUMENTS 02540362
258: IVTNUM = 11 02550362
259: IIDVI = 4.0 02560362
260: IIEVI = 5.0 02570362
261: RIAVS = AMIN0(IIDVI, -IIDVI, -IIEVI, +IIDVI, IIEVI) 02580362
262: IF (RIAVS + 5.0003) 20110, 10110, 40110 02590362
263: 40110 IF (RIAVS + 4.9997) 10110, 10110, 20110 02600362
264: 10110 IVPASS = IVPASS + 1 02610362
265: WRITE (NUVI, 80002) IVTNUM 02620362
266: GO TO 0111 02630362
267: 20110 IVFAIL = IVFAIL + 1 02640362
268: RVCORR = -5.0 02650362
269: WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 02660362
270: 0111 CONTINUE 02670362
271: C***** 02680362
272: WRITE (NUVI, 90002) 02690362
273: WRITE (NUVI, 90013) 02700362
274: WRITE (NUVI, 90014) 02710362
275: C***** TEST OF AMIN1 02720362
276: C***** 02730362
277: WRITE(NUVI, 16704) 02740362
278: 16704 FORMAT (/ 8X, 13HTEST OF AMIN1) 02750362
279: CT012* TEST 12 BOTH VALUES ZERO 02760362
280: IVTNUM = 12 02770362
281: RIBVS = 0.0 02780362
282: RIDVS = 0.0 02790362
283: RIAVS = AMIN1(RIBVS, RIDVS) 02800362
284: IF (RIAVS + 0.00005) 20120, 10120, 40120 02810362
285: 40120 IF (RIAVS - 0.00005) 10120, 10120, 20120 02820362
286: 10120 IVPASS = IVPASS + 1 02830362
287: WRITE (NUVI, 80002) IVTNUM 02840362
288: GO TO 0121 02850362
289: 20120 IVFAIL = IVFAIL + 1 02860362
290: RVCORR = 0.0 02870362
291: WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 02880362
292: 0121 CONTINUE 02890362
293: CT013* TEST 13 FIRST VALUE NON-ZERO, SECOND ZERO 02900362
294: IVTNUM = 13 02910362
295: RIBVS = 5.625 02920362
296: RIDVS = 0.0 02930362
297: RIAVS = AMIN1(RIBVS, RIDVS) 02940362
298: IF (RIAVS + 0.00005) 20130, 10130, 40130 02950362
299: 40130 IF (RIAVS - 0.00005) 10130, 10130, 20130 02960362
300: 10130 IVPASS = IVPASS + 1 02970362
301: WRITE (NUVI, 80002) IVTNUM 02980362
302: GO TO 0131 02990362
303: 20130 IVFAIL = IVFAIL + 1 03000362
304: RVCORR = 0.0 03010362
305: WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 03020362
306: 0131 CONTINUE 03030362
307: CT014* TEST 14 BOTH VALUES EQUAL 03040362
308: IVTNUM = 14 03050362
309: RIBVS = 6.5 03060362
310: RIDVS = 6.5 03070362
311: RIAVS = AMIN1(RIBVS, RIDVS) 03080362
312: IF (RIAVS - 6.4996) 20140, 10140, 40140 03090362
313: 40140 IF (RIAVS - 6.5004) 10140, 10140, 20140 03100362
314: 10140 IVPASS = IVPASS + 1 03110362
315: WRITE (NUVI, 80002) IVTNUM 03120362
316: GO TO 0141 03130362
317: 20140 IVFAIL = IVFAIL + 1 03140362
318: RVCORR = 6.5 03150362
319: WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 03160362
320: 0141 CONTINUE 03170362
321: CT015* TEST 15 VALUES NOT EQUAL 03180362
322: IVTNUM = 15 03190362
323: RIBVS = 7.125 03200362
324: RIDVS = 5.125 03210362
325: RIAVS = AMIN1(RIBVS, RIDVS) 03220362
326: IF (RIAVS - 5.1247) 20150, 10150, 40150 03230362
327: 40150 IF (RIAVS - 5.1253) 10150, 10150, 20150 03240362
328: 10150 IVPASS = IVPASS + 1 03250362
329: WRITE (NUVI, 80002) IVTNUM 03260362
330: GO TO 0151 03270362
331: 20150 IVFAIL = IVFAIL + 1 03280362
332: RVCORR = 5.125 03290362
333: WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 03300362
334: 0151 CONTINUE 03310362
335: CT016* TEST 16 FIRST VALUE NEGATIVE, SECOND ZERO 03320362
336: IVTNUM = 16 03330362
337: RIBVS = -5.625 03340362
338: RIDVS = 0.0 03350362
339: RIAVS = AMIN1(RIBVS, RIDVS) 03360362
340: IF (RIAVS + 5.6253) 20160, 10160, 40160 03370362
341: 40160 IF (RIAVS + 5.6247) 10160, 10160, 20160 03380362
342: 10160 IVPASS = IVPASS + 1 03390362
343: WRITE (NUVI, 80002) IVTNUM 03400362
344: GO TO 0161 03410362
345: 20160 IVFAIL = IVFAIL + 1 03420362
346: RVCORR = -5.625 03430362
347: WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 03440362
348: 0161 CONTINUE 03450362
349: CT017* TEST 17 BOTH VALUES EQUAL, BOTH NEGATIVE 03460362
350: IVTNUM = 17 03470362
351: RIBVS = -6.5 03480362
352: RIDVS = -6.5 03490362
353: RIAVS = AMIN1(RIBVS, RIDVS) 03500362
354: IF (RIAVS + 6.5004) 20170, 10170, 40170 03510362
355: 40170 IF (RIAVS + 6.4996) 10170, 10170, 20170 03520362
356: 10170 IVPASS = IVPASS + 1 03530362
357: WRITE (NUVI, 80002) IVTNUM 03540362
358: GO TO 0171 03550362
359: 20170 IVFAIL = IVFAIL + 1 03560362
360: RVCORR = -6.5 03570362
361: WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 03580362
362: 0171 CONTINUE 03590362
363: CT018* TEST 18 VALUES NOT EQUAL, BOTH NEGATIVE 03600362
364: IVTNUM = 18 03610362
365: RIBVS = -7.125 03620362
366: RIDVS = -5.125 03630362
367: RIAVS = AMIN1(RIBVS, RIDVS) 03640362
368: IF (RIAVS + 7.1254) 20180, 10180, 40180 03650362
369: 40180 IF (RIAVS + 7.1246) 10180, 10180, 20180 03660362
370: 10180 IVPASS = IVPASS + 1 03670362
371: WRITE (NUVI, 80002) IVTNUM 03680362
372: GO TO 0181 03690362
373: 20180 IVFAIL = IVFAIL + 1 03700362
374: RVCORR = -7.125 03710362
375: WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 03720362
376: 0181 CONTINUE 03730362
377: CT019* TEST 19 FIRST VALUE NON-ZERO, 2ND ZERO PRECEDED BY MINUS SIGN 03740362
378: IVTNUM = 19 03750362
379: RIDVS = 5.625 03760362
380: RIEVS = 0.0 03770362
381: RIAVS = AMIN1(RIDVS, -RIEVS) 03780362
382: IF (RIAVS + 0.00005) 20190, 10190, 40190 03790362
383: 40190 IF (RIAVS - 0.00005) 10190, 10190, 20190 03800362
384: 10190 IVPASS = IVPASS + 1 03810362
385: WRITE (NUVI, 80002) IVTNUM 03820362
386: GO TO 0191 03830362
387: 20190 IVFAIL = IVFAIL + 1 03840362
388: RVCORR = 0.0 03850362
389: WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 03860362
390: 0191 CONTINUE 03870362
391: CT020* TEST 20 EXPRESSION AS ARGUMENT 03880362
392: IVTNUM = 20 03890362
393: RIDVS = 3.5 03900362
394: RIEVS = 4.0 03910362
395: RIAVS = AMIN1(RIDVS + RIEVS, -RIEVS - RIDVS) 03920362
396: IF (RIAVS + 7.5004) 20200, 10200, 40200 03930362
397: 40200 IF (RIAVS + 7.4996) 10200, 10200, 20200 03940362
398: 10200 IVPASS = IVPASS + 1 03950362
399: WRITE (NUVI, 80002) IVTNUM 03960362
400: GO TO 0201 03970362
401: 20200 IVFAIL = IVFAIL + 1 03980362
402: RVCORR = -7.5 03990362
403: WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 04000362
404: 0201 CONTINUE 04010362
405: CT021* TEST 21 3 ARGUMENTS 04020362
406: IVTNUM = 21 04030362
407: RIBVS = 0.0 04040362
408: RICVS = 1.0 04050362
409: RIDVS = 10.9 04060362
410: RIAVS = AMIN1(RIDVS, RICVS, RIBVS) 04070362
411: IF (RIAVS + 0.00005) 20210, 10210, 40210 04080362
412: 40210 IF (RIAVS - 0.00005) 10210, 10210, 20210 04090362
413: 10210 IVPASS = IVPASS + 1 04100362
414: WRITE (NUVI, 80002) IVTNUM 04110362
415: GO TO 0211 04120362
416: 20210 IVFAIL = IVFAIL + 1 04130362
417: RVCORR = 0.0 04140362
418: WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 04150362
419: 0211 CONTINUE 04160362
420: CT022* TEST 22 4 ARGUMENTS 04170362
421: IVTNUM = 22 04180362
422: RIBVS = -9.0 04190362
423: RICVS = 10.0 04200362
424: RIDVS = 3.5 04210362
425: RIAVS = AMIN1(RIDVS, RICVS, -RIBVS, RIDVS) 04220362
426: IF (RIAVS - 3.4998) 20220, 10220, 40220 04230362
427: 40220 IF (RIAVS - 3.5002) 10220, 10220, 20220 04240362
428: 10220 IVPASS = IVPASS + 1 04250362
429: WRITE (NUVI, 80002) IVTNUM 04260362
430: GO TO 0221 04270362
431: 20220 IVFAIL = IVFAIL + 1 04280362
432: RVCORR = 3.5 04290362
433: WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 04300362
434: 0221 CONTINUE 04310362
435: CT023* TEST 23 5 ARGUMENTS 04320362
436: IVTNUM = 23 04330362
437: RIDVS = 3.5 04340362
438: RIEVS = 4.5 04350362
439: RIAVS = AMIN1(RIDVS, -RIDVS, -RIEVS, +RIDVS, RIEVS) 04360362
440: IF (RIAVS + 4.5003) 20230, 10230, 40230 04370362
441: 40230 IF (RIAVS + 4.4997) 10230, 10230, 20230 04380362
442: 10230 IVPASS = IVPASS + 1 04390362
443: WRITE (NUVI, 80002) IVTNUM 04400362
444: GO TO 0231 04410362
445: 20230 IVFAIL = IVFAIL + 1 04420362
446: RVCORR = -4.5 04430362
447: WRITE (NUVI, 80012) IVTNUM, RIAVS, RVCORR 04440362
448: 0231 CONTINUE 04450362
449: C***** 04460362
450: WRITE (NUVI, 90002) 04470362
451: WRITE (NUVI, 90013) 04480362
452: WRITE (NUVI, 90014) 04490362
453: C***** TEST OF MIN0 04500362
454: C***** 04510362
455: WRITE(NUVI, 16705) 04520362
456: 16705 FORMAT (/ 8X, 12HTEST OF MIN0) 04530362
457: CT024* TEST 24 BOTH VALUES ZERO 04540362
458: IVTNUM = 24 04550362
459: IIBVI = 0 04560362
460: IIDVI = 0 04570362
461: IIAVI = MIN0(IIBVI, IIDVI) 04580362
462: IF (IIAVI - 0) 20240, 10240, 20240 04590362
463: 10240 IVPASS = IVPASS + 1 04600362
464: WRITE (NUVI, 80002) IVTNUM 04610362
465: GO TO 0241 04620362
466: 20240 IVFAIL = IVFAIL + 1 04630362
467: IVCORR = 0 04640362
468: WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 04650362
469: 0241 CONTINUE 04660362
470: CT025* TEST 25 FIRST VALUE NON-ZERO, SECOND ZERO 04670362
471: IVTNUM = 25 04680362
472: IIBVI = 6 04690362
473: IIDVI = 0 04700362
474: IIAVI = MIN0(IIBVI, IIDVI) 04710362
475: IF (IIAVI - 0) 20250, 10250, 20250 04720362
476: 10250 IVPASS = IVPASS + 1 04730362
477: WRITE (NUVI, 80002) IVTNUM 04740362
478: GO TO 0251 04750362
479: 20250 IVFAIL = IVFAIL + 1 04760362
480: IVCORR = 0 04770362
481: WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 04780362
482: 0251 CONTINUE 04790362
483: CT026* TEST 26 BOTH VALUES EQUAL 04800362
484: IVTNUM = 26 04810362
485: IIBVI = 7 04820362
486: IIDVI = 7 04830362
487: IIAVI = MIN0(IIBVI, IIDVI) 04840362
488: IF (IIAVI - 7) 20260, 10260, 20260 04850362
489: 10260 IVPASS = IVPASS + 1 04860362
490: WRITE (NUVI, 80002) IVTNUM 04870362
491: GO TO 0261 04880362
492: 20260 IVFAIL = IVFAIL + 1 04890362
493: IVCORR = 7 04900362
494: WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 04910362
495: 0261 CONTINUE 04920362
496: CT027* TEST 27 VALUES NOT EQUAL 04930362
497: IVTNUM = 27 04940362
498: IIBVI = 7 04950362
499: IIDVI = 5 04960362
500: IIAVI = MIN0(IIBVI, IIDVI) 04970362
501: IF (IIAVI - 5) 20270, 10270, 20270 04980362
502: 10270 IVPASS = IVPASS + 1 04990362
503: WRITE (NUVI, 80002) IVTNUM 05000362
504: GO TO 0271 05010362
505: 20270 IVFAIL = IVFAIL + 1 05020362
506: IVCORR = 5 05030362
507: WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 05040362
508: 0271 CONTINUE 05050362
509: CT028* TEST 28 FIRST VALUE NEGATIVE, SECOND ZERO 05060362
510: IVTNUM = 28 05070362
511: IIBVI = -6 05080362
512: IIDVI = 0 05090362
513: IIAVI = MIN0(IIBVI, IIDVI) 05100362
514: IF (IIAVI + 6) 20280, 10280, 20280 05110362
515: 10280 IVPASS = IVPASS + 1 05120362
516: WRITE (NUVI, 80002) IVTNUM 05130362
517: GO TO 0281 05140362
518: 20280 IVFAIL = IVFAIL + 1 05150362
519: IVCORR = -6 05160362
520: WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 05170362
521: 0281 CONTINUE 05180362
522: CT029* TEST 29 BOTH VALUES EQUAL, BOTH NEGATIVE 05190362
523: IVTNUM = 29 05200362
524: IIBVI = -7 05210362
525: IIDVI = -7 05220362
526: IIAVI = MIN0(IIBVI, IIDVI) 05230362
527: IF (IIAVI + 7) 20290, 10290, 20290 05240362
528: 10290 IVPASS = IVPASS + 1 05250362
529: WRITE (NUVI, 80002) IVTNUM 05260362
530: GO TO 0291 05270362
531: 20290 IVFAIL = IVFAIL + 1 05280362
532: IVCORR = -7 05290362
533: WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 05300362
534: 0291 CONTINUE 05310362
535: CT030* TEST 30 VALUES NOT EQUAL, BOTH NEGATIVE 05320362
536: IVTNUM = 30 05330362
537: IIBVI = -7 05340362
538: IIDVI = -5 05350362
539: IIAVI = MIN0(IIBVI, IIDVI) 05360362
540: IF (IIAVI + 7) 20300, 10300, 20300 05370362
541: 10300 IVPASS = IVPASS + 1 05380362
542: WRITE (NUVI, 80002) IVTNUM 05390362
543: GO TO 0301 05400362
544: 20300 IVFAIL = IVFAIL + 1 05410362
545: IVCORR = -7 05420362
546: WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 05430362
547: 0301 CONTINUE 05440362
548: CT031* TEST 31 FIRST VALUE NON-ZERO, 2ND ZERO PRECEDED BY MINUS SIGN 05450362
549: IVTNUM = 31 05460362
550: IIDVI = 6 05470362
551: IIEVI = 0 05480362
552: IIAVI = MIN0(IIDVI, -IIEVI) 05490362
553: IF (IIAVI - 0) 20310, 10310, 20310 05500362
554: 10310 IVPASS = IVPASS + 1 05510362
555: WRITE (NUVI, 80002) IVTNUM 05520362
556: GO TO 0311 05530362
557: 20310 IVFAIL = IVFAIL + 1 05540362
558: IVCORR = 0 05550362
559: WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 05560362
560: 0311 CONTINUE 05570362
561: CT032* TEST 32 EXPRESSION PRESENTED TO FUNCTION 05580362
562: IVTNUM = 32 05590362
563: IIDVI = 3 05600362
564: IIEVI = 4 05610362
565: IIAVI = MIN0(IIDVI + IIEVI, -IIEVI - IIDVI) 05620362
566: IF (IIAVI + 7) 20320, 10320, 20320 05630362
567: 10320 IVPASS = IVPASS + 1 05640362
568: WRITE (NUVI, 80002) IVTNUM 05650362
569: GO TO 0321 05660362
570: 20320 IVFAIL = IVFAIL + 1 05670362
571: IVCORR = -7 05680362
572: WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 05690362
573: 0321 CONTINUE 05700362
574: CT033* TEST 33 3 ARGUMENTS 05710362
575: IVTNUM = 33 05720362
576: IIBVI = 0 05730362
577: IICVI = 10 05740362
578: IIDVI = -11 05750362
579: IIAVI = MIN0(IICVI, IIBVI, -IIDVI) 05760362
580: IF (IIAVI - 0) 20330, 10330, 20330 05770362
581: 10330 IVPASS = IVPASS + 1 05780362
582: WRITE (NUVI, 80002) IVTNUM 05790362
583: GO TO 0331 05800362
584: 20330 IVFAIL = IVFAIL + 1 05810362
585: IVCORR = 0 05820362
586: WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 05830362
587: 0331 CONTINUE 05840362
588: CT034* TEST 34 4 ARGUMENTS 05850362
589: IVTNUM = 34 05860362
590: IIAVI = 10 05870362
591: IIBVI = -4 05880362
592: IICVI = 8 05890362
593: IIDVI = 4 05900362
594: IIAVI = MIN0(IIAVI, -IIBVI, IICVI, IIDVI) 05910362
595: IF (IIAVI - 4) 20340, 10340, 20340 05920362
596: 10340 IVPASS = IVPASS + 1 05930362
597: WRITE (NUVI, 80002) IVTNUM 05940362
598: GO TO 0341 05950362
599: 20340 IVFAIL = IVFAIL + 1 05960362
600: IVCORR = 4 05970362
601: WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 05980362
602: 0341 CONTINUE 05990362
603: CT035* TEST 35 5 ARGUMENTS 06000362
604: IVTNUM = 35 06010362
605: IIDVI = 4 06020362
606: IIEVI = 5 06030362
607: IIAVI = MIN0(IIDVI, -IIDVI, -IIEVI, +IIDVI, IIEVI) 06040362
608: IF (IIAVI + 5) 20350, 10350, 20350 06050362
609: 10350 IVPASS = IVPASS + 1 06060362
610: WRITE (NUVI, 80002) IVTNUM 06070362
611: GO TO 0351 06080362
612: 20350 IVFAIL = IVFAIL + 1 06090362
613: IVCORR = -5 06100362
614: WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 06110362
615: 0351 CONTINUE 06120362
616: C***** 06130362
617: WRITE (NUVI, 90002) 06140362
618: WRITE (NUVI, 90013) 06150362
619: WRITE (NUVI, 90014) 06160362
620: C***** TEST OF MIN1 06170362
621: C***** 06180362
622: WRITE(NUVI, 16707) 06190362
623: 16707 FORMAT (/ 8X, 12HTEST OF MIN1) 06200362
624: CT036* TEST 36 BOTH VALUES ZERO 06210362
625: IVTNUM = 36 06220362
626: RIBVS = 0.0 06230362
627: RIDVS = 0.0 06240362
628: IIAVI = MIN1(RIBVS, RIDVS) 06250362
629: IF (IIAVI - 0) 20360, 10360, 20360 06260362
630: 10360 IVPASS = IVPASS + 1 06270362
631: WRITE (NUVI, 80002) IVTNUM 06280362
632: GO TO 0361 06290362
633: 20360 IVFAIL = IVFAIL + 1 06300362
634: IVCORR = 0 06310362
635: WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 06320362
636: 0361 CONTINUE 06330362
637: CT037* TEST 37 FIRST VALUE NON-ZERO, SECOND ZERO 06340362
638: IVTNUM = 37 06350362
639: RIBVS = 5.625 06360362
640: RIDVS = 0.0 06370362
641: IIAVI = MIN1(RIBVS, RIDVS) 06380362
642: IF (IIAVI - 0) 20370, 10370, 20370 06390362
643: 10370 IVPASS = IVPASS + 1 06400362
644: WRITE (NUVI, 80002) IVTNUM 06410362
645: GO TO 0371 06420362
646: 20370 IVFAIL = IVFAIL + 1 06430362
647: IVCORR = 0 06440362
648: WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 06450362
649: 0371 CONTINUE 06460362
650: CT038* TEST 38 BOTH VALUES EQUAL 06470362
651: IVTNUM = 38 06480362
652: RIBVS = 6.5 06490362
653: RIDVS = 6.5 06500362
654: IIAVI = MIN1(RIBVS, RIDVS) 06510362
655: IF (IIAVI - 6) 20380, 10380, 20380 06520362
656: 10380 IVPASS = IVPASS + 1 06530362
657: WRITE (NUVI, 80002) IVTNUM 06540362
658: GO TO 0381 06550362
659: 20380 IVFAIL = IVFAIL + 1 06560362
660: IVCORR = 6 06570362
661: WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 06580362
662: 0381 CONTINUE 06590362
663: CT039* TEST 39 VALUES NOT EQUAL 06600362
664: IVTNUM = 39 06610362
665: RIBVS = 7.125 06620362
666: RIDVS = 5.125 06630362
667: IIAVI = MIN1(RIBVS, RIDVS) 06640362
668: IF (IIAVI - 5) 20390, 10390, 20390 06650362
669: 10390 IVPASS = IVPASS + 1 06660362
670: WRITE (NUVI, 80002) IVTNUM 06670362
671: GO TO 0391 06680362
672: 20390 IVFAIL = IVFAIL + 1 06690362
673: IVCORR = 5 06700362
674: WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 06710362
675: 0391 CONTINUE 06720362
676: CT040* TEST 40 FIRST VALUE NEGATIVE, SECOND ZERO 06730362
677: IVTNUM = 40 06740362
678: RIBVS = -5.625 06750362
679: RIDVS = 0.0 06760362
680: IIAVI = MIN1(RIBVS, RIDVS) 06770362
681: IF (IIAVI + 5) 20400, 10400, 20400 06780362
682: 10400 IVPASS = IVPASS + 1 06790362
683: WRITE (NUVI, 80002) IVTNUM 06800362
684: GO TO 0401 06810362
685: 20400 IVFAIL = IVFAIL + 1 06820362
686: IVCORR = -5 06830362
687: WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 06840362
688: 0401 CONTINUE 06850362
689: CT041* TEST 41 BOTH VALUES EQUAL, BOTH NEGATIVE 06860362
690: IVTNUM = 41 06870362
691: RIBVS = -6.5 06880362
692: RIDVS = -6.5 06890362
693: IIAVI = MIN1(RIBVS, RIDVS) 06900362
694: IF (IIAVI + 6) 20410, 10410, 20410 06910362
695: 10410 IVPASS = IVPASS + 1 06920362
696: WRITE (NUVI, 80002) IVTNUM 06930362
697: GO TO 0411 06940362
698: 20410 IVFAIL = IVFAIL + 1 06950362
699: IVCORR = -6 06960362
700: WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 06970362
701: 0411 CONTINUE 06980362
702: CT042* TEST 42 VALUES NOT EQUAL, BOTH NEGATIVE 06990362
703: IVTNUM = 42 07000362
704: RIBVS = -7.125 07010362
705: RIDVS = -5.125 07020362
706: IIAVI = MIN1(RIBVS, RIDVS) 07030362
707: IF (IIAVI + 7) 20420, 10420, 20420 07040362
708: 10420 IVPASS = IVPASS + 1 07050362
709: WRITE (NUVI, 80002) IVTNUM 07060362
710: GO TO 0421 07070362
711: 20420 IVFAIL = IVFAIL + 1 07080362
712: IVCORR = -7 07090362
713: WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 07100362
714: 0421 CONTINUE 07110362
715: CT043* TEST 43 FIRST VALUE NON-ZERO, 2ND ZERO PRECEDED BY MINUS SIGN 07120362
716: IVTNUM = 43 07130362
717: RIDVS = 5.625 07140362
718: RIEVS = 0.0 07150362
719: IIAVI = MIN1(RIDVS, -RIEVS) 07160362
720: IF (IIAVI - 0) 20430, 10430, 20430 07170362
721: 10430 IVPASS = IVPASS + 1 07180362
722: WRITE (NUVI, 80002) IVTNUM 07190362
723: GO TO 0431 07200362
724: 20430 IVFAIL = IVFAIL + 1 07210362
725: IVCORR = 0 07220362
726: WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 07230362
727: 0431 CONTINUE 07240362
728: CT044* TEST 44 EXPRESSION PRESENTED TO FUNCTION 07250362
729: IVTNUM = 44 07260362
730: RIDVS = 3.5 07270362
731: RIEVS = 4.0 07280362
732: IIAVI = MIN1(RIDVS + RIEVS, -RIEVS - RIDVS) 07290362
733: IF (IIAVI + 7) 20440, 10440, 20440 07300362
734: 10440 IVPASS = IVPASS + 1 07310362
735: WRITE (NUVI, 80002) IVTNUM 07320362
736: GO TO 0441 07330362
737: 20440 IVFAIL = IVFAIL + 1 07340362
738: IVCORR = -7 07350362
739: WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 07360362
740: 0441 CONTINUE 07370362
741: CT045* TEST 45 3 ARGUMENTS 07380362
742: IVTNUM = 45 07390362
743: RIBVS = 0.0 07400362
744: RICVS = 1.0 07410362
745: RIDVS = 2.0 07420362
746: IIAVI = MIN1(RIBVS, RICVS, RIDVS) 07430362
747: IF (IIAVI - 0) 20450, 10450, 20450 07440362
748: 10450 IVPASS = IVPASS + 1 07450362
749: WRITE (NUVI, 80002) IVTNUM 07460362
750: GO TO 0451 07470362
751: 20450 IVFAIL = IVFAIL + 1 07480362
752: IVCORR = 0 07490362
753: WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 07500362
754: 0451 CONTINUE 07510362
755: CT046* TEST 46 4 ARGUMENTS 07520362
756: IVTNUM = 46 07530362
757: RIAVS = -3.5 07540362
758: RIBVS = 12.0 07550362
759: RICVS = 3.6 07560362
760: RIDVS = 3.5 07570362
761: IIAVI = MIN1(-RIAVS, RIBVS, RICVS, RIDVS) 07580362
762: IF (IIAVI - 3) 20460, 10460, 20460 07590362
763: 10460 IVPASS = IVPASS + 1 07600362
764: WRITE (NUVI, 80002) IVTNUM 07610362
765: GO TO 0461 07620362
766: 20460 IVFAIL = IVFAIL + 1 07630362
767: IVCORR = 3 07640362
768: WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 07650362
769: 0461 CONTINUE 07660362
770: CT047* TEST 47 5 ARGUMENTS 07670362
771: IVTNUM = 47 07680362
772: RIDVS = 3.5 07690362
773: RIEVS = 4.5 07700362
774: IIAVI = MIN1(RIDVS, -RIDVS, -RIEVS, +RIDVS, RIEVS) 07710362
775: IF (IIAVI + 4) 20470, 10470, 20470 07720362
776: 10470 IVPASS = IVPASS + 1 07730362
777: WRITE (NUVI, 80002) IVTNUM 07740362
778: GO TO 0471 07750362
779: 20470 IVFAIL = IVFAIL + 1 07760362
780: IVCORR = -4 07770362
781: WRITE (NUVI, 80010) IVTNUM, IIAVI, IVCORR 07780362
782: 0471 CONTINUE 07790362
783: C***** 07800362
784: CBB** ********************** BBCSUM0 **********************************07810362
785: C**** WRITE OUT TEST SUMMARY 07820362
786: C**** 07830362
787: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 07840362
788: WRITE (I02, 90004) 07850362
789: WRITE (I02, 90014) 07860362
790: WRITE (I02, 90004) 07870362
791: WRITE (I02, 90020) IVPASS 07880362
792: WRITE (I02, 90022) IVFAIL 07890362
793: WRITE (I02, 90024) IVDELE 07900362
794: WRITE (I02, 90026) IVINSP 07910362
795: WRITE (I02, 90028) IVTOTN, IVTOTL 07920362
796: CBE** ********************** BBCSUM0 **********************************07930362
797: CBB** ********************** BBCFOOT0 **********************************07940362
798: C**** WRITE OUT REPORT FOOTINGS 07950362
799: C**** 07960362
800: WRITE (I02,90016) ZPROG, ZPROG 07970362
801: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 07980362
802: WRITE (I02,90019) 07990362
803: CBE** ********************** BBCFOOT0 **********************************08000362
804: CBB** ********************** BBCFMT0A **********************************08010362
805: C**** FORMATS FOR TEST DETAIL LINES 08020362
806: C**** 08030362
807: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 08040362
808: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 08050362
809: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 08060362
810: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 08070362
811: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 08080362
812: 1I6,/,1H ,15X,10HCORRECT= ,I6) 08090362
813: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 08100362
814: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 08110362
815: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 08120362
816: 1A21,/,1H ,16X,10HCORRECT= ,A21) 08130362
817: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 08140362
818: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 08150362
819: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 08160362
820: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 08170362
821: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 08180362
822: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 08190362
823: 80050 FORMAT (1H ,48X,A31) 08200362
824: CBE** ********************** BBCFMT0A **********************************08210362
825: CBB** ********************** BBCFMT0B **********************************08220362
826: C**** FORMAT STATEMENTS FOR PAGE HEADERS 08230362
827: C**** 08240362
828: 90002 FORMAT (1H1) 08250362
829: 90004 FORMAT (1H ) 08260362
830: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 08270362
831: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 08280362
832: 90008 FORMAT (1H ,21X,A13,A17) 08290362
833: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 08300362
834: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 08310362
835: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 08320362
836: 1 7X,7HREMARKS,24X) 08330362
837: 90014 FORMAT (1H ,46H----------------------------------------------, 08340362
838: 1 33H---------------------------------) 08350362
839: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 08360362
840: C**** 08370362
841: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 08380362
842: C**** 08390362
843: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 08400362
844: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 08410362
845: 1 A13) 08420362
846: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 08430362
847: C**** 08440362
848: C**** FORMAT STATEMENTS FOR RUN SUMMARY 08450362
849: C**** 08460362
850: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 08470362
851: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 08480362
852: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 08490362
853: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 08500362
854: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 08510362
855: CBE** ********************** BBCFMT0B **********************************08520362
856: C***** 08530362
857: C***** END OF TEST SEGMENT 167 08540362
858: STOP 08550362
859: END 08560362
860: 08570362
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.