![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM355.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 FM355.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***********************************************************************00010355
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 00020355
6: C***** FM355 XAINT - (154) 00030355
7: C***** 00040355
8: C***********************************************************************00050355
9: C***** GENERAL PURPOSE SUBSET REF00060355
10: C***** TEST INTRINSIC FUNCTIONS AINT, ANINT, NINT 15.3 00070355
11: C***** TRUNCATION (SIGN OF A * LARGEST INTEGER LE ABS(A) ) (TABLE 5)00080355
12: C***** 00090355
13: C***** GENERAL COMMENTS 00100355
14: C***** FLOAT FUNCTION ASSUMED WORKING 00110355
15: C***** 00120355
16: CBB** ********************** BBCCOMNT **********************************00130355
17: C**** 00140355
18: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00150355
19: C**** VERSION 2.0 00160355
20: C**** 00170355
21: C**** 00180355
22: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00190355
23: C**** GENERAL SERVICES ADMINISTRATION 00200355
24: C**** FEDERAL SOFTWARE TESTING CENTER 00210355
25: C**** 5203 LEESBURG PIKE, SUITE 1100 00220355
26: C**** FALLS CHURCH, VA. 22041 00230355
27: C**** 00240355
28: C**** (703) 756-6153 00250355
29: C**** 00260355
30: CBE** ********************** BBCCOMNT **********************************00270355
31: CBB** ********************** BBCINITA **********************************00280355
32: C**** SPECIFICATION STATEMENTS 00290355
33: C**** 00300355
34: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00310355
35: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00320355
36: CBE** ********************** BBCINITA **********************************00330355
37: CBB** ********************** BBCINITB **********************************00340355
38: C**** INITIALIZE SECTION 00350355
39: DATA ZVERS, ZVERSD, ZDATE 00360355
40: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00370355
41: DATA ZCOMPL, ZNAME, ZTAPE 00380355
42: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00390355
43: DATA ZPROJ, ZTAPED, ZPROG 00400355
44: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00410355
45: DATA REMRKS /' '/ 00420355
46: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00430355
47: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00440355
48: C**** 00450355
49: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00460355
50: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00470355
51: CZ03 ZPROG = 'PROGRAM NAME' 00480355
52: ZDATE = '07-Nov-85 ' *RP
53: ZCOMPL = 'CCI 5.2 ' *RP
54: ZPROJ = 'TC-85- -410' *RP
55: ZNAME = ' ' *RP
56: ZTAPE = ' ' *RP
57: ZTAPED = '850703 ' *RP
58: C 00550355
59: IVPASS = 0 00560355
60: IVFAIL = 0 00570355
61: IVDELE = 0 00580355
62: IVINSP = 0 00590355
63: IVTOTL = 0 00600355
64: IVTOTN = 0 00610355
65: ICZERO = 0 00620355
66: C 00630355
67: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00640355
68: I01 = 05 00650355
69: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00660355
70: I02 = 06 00670355
71: C 00680355
72: I01 = 5 00690355
73: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00700355
74: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00710355
75: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00720355
76: C 00730355
77: I02 = 6 00740355
78: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00750355
79: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00760355
80: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00770355
81: C 00780355
82: CBE** ********************** BBCINITB **********************************00790355
83: NUVI = I02 00800355
84: IVTOTL = 48 00810355
85: ZPROG = 'FM355' 00820355
86: CBB** ********************** BBCHED0A **********************************00830355
87: C**** 00840355
88: C**** WRITE REPORT TITLE 00850355
89: C**** 00860355
90: WRITE (I02, 90002) 00870355
91: WRITE (I02, 90006) 00880355
92: WRITE (I02, 90007) 00890355
93: WRITE (I02, 90008) ZVERS, ZVERSD 00900355
94: WRITE (I02, 90009) ZPROG, ZPROG 00910355
95: WRITE (I02, 90010) ZDATE, ZCOMPL 00920355
96: CBE** ********************** BBCHED0A **********************************00930355
97: C***** 00940355
98: C***** HEADER FOR SEGMENT 154 00950355
99: WRITE (NUVI,15401) 00960355
100: 15401 FORMAT (1H , // 2X,35HXAINT - (154) INTRINSIC FUNCTIONS--//10X,00970355
101: 1 36HAINT, ANINT, NINT (TYPE CONVERSION) // 00980355
102: 2 20H SUBSET REF. - 15.3) 00990355
103: CBB** ********************** BBCHED0B **********************************01000355
104: C**** WRITE DETAIL REPORT HEADERS 01010355
105: C**** 01020355
106: WRITE (I02,90004) 01030355
107: WRITE (I02,90004) 01040355
108: WRITE (I02,90013) 01050355
109: WRITE (I02,90014) 01060355
110: WRITE (I02,90015) IVTOTL 01070355
111: CBE** ********************** BBCHED0B **********************************01080355
112: C***** 01090355
113: C***** TEST OF AINT 01100355
114: C***** 01110355
115: WRITE(NUVI, 15402) 01120355
116: 15402 FORMAT (/ 8X, 12HTEST OF AINT) 01130355
117: CT001* TEST 1 THE VALUE ZERO 01140355
118: IVTNUM = 1 01150355
119: RCBVS = 0.0 01160355
120: RCAVS = AINT(RCBVS) 01170355
121: IF (RCAVS + 0.00005) 20010, 10010, 40010 01180355
122: 40010 IF (RCAVS - 0.00005) 10010, 10010, 20010 01190355
123: 10010 IVPASS = IVPASS + 1 01200355
124: WRITE (NUVI, 80002) IVTNUM 01210355
125: GO TO 0011 01220355
126: 20010 IVFAIL = IVFAIL + 1 01230355
127: RVCORR = 0.0 01240355
128: WRITE(NUVI, 80012) IVTNUM, RCAVS, RVCORR 01250355
129: 0011 CONTINUE 01260355
130: CT002* TEST 2 ZERO PREFIXED WITH A MINUS SIGN 01270355
131: IVTNUM = 2 01280355
132: RCDVS = -0.0 01290355
133: RCAVS = AINT(RCBVS) 01300355
134: IF (RCAVS + 0.00005) 20020, 10020, 40020 01310355
135: 40020 IF (RCAVS - 0.00005) 10020, 10020, 20020 01320355
136: 10020 IVPASS = IVPASS + 1 01330355
137: WRITE (NUVI, 80002) IVTNUM 01340355
138: GO TO 0021 01350355
139: 20020 IVFAIL = IVFAIL + 1 01360355
140: RVCORR = -0.0 01370355
141: WRITE(NUVI, 80012) IVTNUM, RCAVS, RVCORR 01380355
142: 0021 CONTINUE 01390355
143: CT003* TEST 3 A VALUE IN (0,1) 01400355
144: IVTNUM = 3 01410355
145: RCDVS = 0.375 01420355
146: RCAVS = AINT(RCBVS) 01430355
147: IF (RCAVS + 0.00005) 20030, 10030, 40030 01440355
148: 40030 IF (RCAVS - 0.00005) 10030, 10030, 20030 01450355
149: 10030 IVPASS = IVPASS + 1 01460355
150: WRITE (NUVI, 80002) IVTNUM 01470355
151: GO TO 0031 01480355
152: 20030 IVFAIL = IVFAIL + 1 01490355
153: RVCORR = 0.0 01500355
154: WRITE(NUVI, 80012) IVTNUM, RCAVS, RVCORR 01510355
155: 0031 CONTINUE 01520355
156: CT004* TEST 4 THE VALUE 1 01530355
157: IVTNUM = 4 01540355
158: RCBVS = FLOAT(1) 01550355
159: RCAVS = AINT(RCBVS) 01560355
160: IF (RCAVS - 0.99995) 20040, 10040, 40040 01570355
161: 40040 IF (RCAVS - 1.0001) 10040, 10040, 20040 01580355
162: 10040 IVPASS = IVPASS + 1 01590355
163: WRITE (NUVI, 80002) IVTNUM 01600355
164: GO TO 0041 01610355
165: 20040 IVFAIL = IVFAIL + 1 01620355
166: RVCORR = 1.0 01630355
167: WRITE(NUVI, 80012) IVTNUM, RCAVS, RVCORR 01640355
168: 0041 CONTINUE 01650355
169: CT005* TEST 5 AN INTEGRAL VALUE OTHER THAN 0, 1 01660355
170: IVTNUM = 5 01670355
171: RCBVS = FLOAT(6) 01680355
172: RCAVS = AINT(RCBVS) 01690355
173: IF (RCAVS - 5.9997) 20050, 10050, 40050 01700355
174: 40050 IF (RCAVS - 6.0003) 10050, 10050, 20050 01710355
175: 10050 IVPASS = IVPASS + 1 01720355
176: WRITE (NUVI, 80002) IVTNUM 01730355
177: GO TO 0051 01740355
178: 20050 IVFAIL = IVFAIL + 1 01750355
179: RVCORR = 6.0 01760355
180: WRITE(NUVI, 80012) IVTNUM, RCAVS, RVCORR 01770355
181: 0051 CONTINUE 01780355
182: CT006* TEST 6 A VALUE IN (X,X+1) 01790355
183: IVTNUM = 6 01800355
184: RCBVS = 3.75 01810355
185: RCAVS = AINT(RCBVS) 01820355
186: IF (RCAVS - 2.9998) 20060, 10060, 40060 01830355
187: 40060 IF (RCAVS - 3.0002) 10060, 10060, 20060 01840355
188: 10060 IVPASS = IVPASS + 1 01850355
189: WRITE (NUVI, 80002) IVTNUM 01860355
190: GO TO 0061 01870355
191: 20060 IVFAIL = IVFAIL + 1 01880355
192: RVCORR = 3.0 01890355
193: WRITE(NUVI, 80012) IVTNUM, RCAVS, RVCORR 01900355
194: 0061 CONTINUE 01910355
195: CT007* TEST 7 A NEGATIVE VALUE WITH MAGNITUDE IN (0,1) 01920355
196: IVTNUM = 7 01930355
197: RCBVS = -0.375 01940355
198: RCAVS = AINT(RCBVS) 01950355
199: IF (RCAVS + 0.00005) 20070, 10070, 40070 01960355
200: 40070 IF (RCAVS - 0.00005) 10070, 10070, 20070 01970355
201: 10070 IVPASS = IVPASS + 1 01980355
202: WRITE (NUVI, 80002) IVTNUM 01990355
203: GO TO 0071 02000355
204: 20070 IVFAIL = IVFAIL + 1 02010355
205: RVCORR = 0.0 02020355
206: WRITE(NUVI, 80012) IVTNUM, RCAVS, RVCORR 02030355
207: 0071 CONTINUE 02040355
208: CT008* TEST 8 THE VALUE -1 02050355
209: IVTNUM = 8 02060355
210: RCBVS = FLOAT(-1) 02070355
211: RCAVS = AINT(RCBVS) 02080355
212: IF (RCAVS + 1.0001) 20080, 10080, 40080 02090355
213: 40080 IF (RCAVS + 0.99995) 10080, 10080, 20080 02100355
214: 10080 IVPASS = IVPASS + 1 02110355
215: WRITE (NUVI, 80002) IVTNUM 02120355
216: GO TO 0081 02130355
217: 20080 IVFAIL = IVFAIL + 1 02140355
218: RVCORR = -1.0 02150355
219: WRITE(NUVI, 80012) IVTNUM, RCAVS, RVCORR 02160355
220: 0081 CONTINUE 02170355
221: CT009* TEST 9 A NEGATIVE INTEGRAL VALUE 02180355
222: IVTNUM = 9 02190355
223: RCBVS = FLOAT(-6) 02200355
224: RCAVS = AINT(RCBVS) 02210355
225: IF (RCAVS + 6.0003) 20090, 10090, 40090 02220355
226: 40090 IF (RCAVS + 5.9997) 10090, 10090, 20090 02230355
227: 10090 IVPASS = IVPASS + 1 02240355
228: WRITE (NUVI, 80002) IVTNUM 02250355
229: GO TO 0091 02260355
230: 20090 IVFAIL = IVFAIL + 1 02270355
231: RVCORR = -6.0 02280355
232: WRITE(NUVI, 80012) IVTNUM, RCAVS, RVCORR 02290355
233: 0091 CONTINUE 02300355
234: CT010* TEST 10 A NEGATIVE VALUE WITH MAGNITUDE IN (X,X+1) 02310355
235: IVTNUM = 10 02320355
236: RCBVS = -3.75 02330355
237: RCAVS = AINT(RCBVS) 02340355
238: IF (RCAVS + 3.0002) 20100, 10100, 40100 02350355
239: 40100 IF (RCAVS + 2.9998) 10100, 10100, 20100 02360355
240: 10100 IVPASS = IVPASS + 1 02370355
241: WRITE (NUVI, 80002) IVTNUM 02380355
242: GO TO 0101 02390355
243: 20100 IVFAIL = IVFAIL + 1 02400355
244: RVCORR = -3.0 02410355
245: WRITE(NUVI, 80012) IVTNUM, RCAVS, RVCORR 02420355
246: 0101 CONTINUE 02430355
247: CT011* TEST 11 AN ARITHMETIC EXPRESSION PRESENTED TO AINT 02440355
248: IVTNUM = 11 02450355
249: RCBVS = 3.25 02460355
250: RCDVS = 3.0 02470355
251: RCAVS = AINT(FLOAT(25) + RCDVS * RCBVS) 02480355
252: IF (RCAVS - 33.998) 20110, 10110, 40110 02490355
253: 40110 IF (RCAVS - 34.002) 10110, 10110, 20110 02500355
254: 10110 IVPASS = IVPASS + 1 02510355
255: WRITE (NUVI, 80002) IVTNUM 02520355
256: GO TO 0111 02530355
257: 20110 IVFAIL = IVFAIL + 1 02540355
258: RVCORR = 34.0 02550355
259: WRITE(NUVI, 80012) IVTNUM, RCAVS, RVCORR 02560355
260: 0111 CONTINUE 02570355
261: CT012* TEST 12 AN ARGUMENT OF LOW MAGNITUDE 02580355
262: IVTNUM = 12 02590355
263: RCBVS = 3.7521E-36 02600355
264: RCAVS = AINT(RCBVS) 02610355
265: IF (RCAVS + 0.00005) 20120, 10120, 40120 02620355
266: 40120 IF (RCAVS - 0.00005) 10120, 10120, 20120 02630355
267: 10120 IVPASS = IVPASS + 1 02640355
268: WRITE (NUVI, 80002) IVTNUM 02650355
269: GO TO 0121 02660355
270: 20120 IVFAIL = IVFAIL + 1 02670355
271: RVCORR = 0.0 02680355
272: WRITE(NUVI, 80012) IVTNUM, RCAVS, RVCORR 02690355
273: 0121 CONTINUE 02700355
274: C***** 02710355
275: WRITE(NUVI, 90002) 02720355
276: WRITE(NUVI, 90013) 02730355
277: WRITE(NUVI, 90014) 02740355
278: C***** 02750355
279: C***** TEST OF ANINT 02760355
280: C***** 02770355
281: WRITE(NUVI, 15404) 02780355
282: 15404 FORMAT (/ 08X, 13HTEST OF ANINT) 02790355
283: C***** 02800355
284: CT013* TEST 13 THE VALUE ZERO 02810355
285: IVTNUM = 13 02820355
286: RCBVS = 0.0 02830355
287: RCAVS = ANINT(RCBVS) 02840355
288: IF (RCAVS + 0.00005) 20130, 10130, 40130 02850355
289: 40130 IF (RCAVS - 0.00005) 10130, 10130, 20130 02860355
290: 10130 IVPASS = IVPASS + 1 02870355
291: WRITE (NUVI, 80002) IVTNUM 02880355
292: GO TO 0131 02890355
293: 20130 IVFAIL = IVFAIL + 1 02900355
294: RVCORR = 0.0 02910355
295: WRITE(NUVI, 80012) IVTNUM, RCAVS, RVCORR 02920355
296: 0131 CONTINUE 02930355
297: CT014* TEST 14 THE VALUE ZERO PREFIXED WITH A MINUS SIGN 02940355
298: IVTNUM = 14 02950355
299: RCDVS = 0.0 02960355
300: RCAVS = ANINT(-RCBVS) 02970355
301: IF (RCAVS + 0.00005) 20140, 10140, 40140 02980355
302: 40140 IF (RCAVS - 0.00005) 10140, 10140, 20140 02990355
303: 10140 IVPASS = IVPASS + 1 03000355
304: WRITE (NUVI, 80002) IVTNUM 03010355
305: GO TO 0141 03020355
306: 20140 IVFAIL = IVFAIL + 1 03030355
307: RVCORR = 0.0 03040355
308: WRITE(NUVI, 80012) IVTNUM, RCAVS, RVCORR 03050355
309: 0141 CONTINUE 03060355
310: CT015* TEST 15 A VALUE IN (0,.5) 03070355
311: IVTNUM = 15 03080355
312: RCBVS = 0.25 03090355
313: RCAVS = ANINT(RCBVS) 03100355
314: IF (RCAVS + 0.00005) 20150, 10150, 40150 03110355
315: 40150 IF (RCAVS - 0.00005) 10150, 10150, 20150 03120355
316: 10150 IVPASS = IVPASS + 1 03130355
317: WRITE (NUVI, 80002) IVTNUM 03140355
318: GO TO 0151 03150355
319: 20150 IVFAIL = IVFAIL + 1 03160355
320: RVCORR = 0.0 03170355
321: WRITE(NUVI, 80012) IVTNUM, RCAVS, RVCORR 03180355
322: 0151 CONTINUE 03190355
323: CT016* TEST 16 THE VALUE 0.5 03200355
324: IVTNUM = 16 03210355
325: RCBVS = FLOAT(1) / FLOAT(2) 03220355
326: RCAVS = ANINT(RCBVS) 03230355
327: IF (RCAVS - 0.99995) 20160, 10160, 40160 03240355
328: 40160 IF (RCAVS - 1.0001) 10160, 10160, 20160 03250355
329: 10160 IVPASS = IVPASS + 1 03260355
330: WRITE (NUVI, 80002) IVTNUM 03270355
331: GO TO 0161 03280355
332: 20160 IVFAIL = IVFAIL + 1 03290355
333: RVCORR = 1.0 03300355
334: WRITE(NUVI, 80012) IVTNUM, RCAVS, RVCORR 03310355
335: 0161 CONTINUE 03320355
336: CT017* TEST 17 A VALUE IN (.5,1) 03330355
337: IVTNUM = 17 03340355
338: RCBVS = 0.75 03350355
339: RCAVS = ANINT(RCBVS) 03360355
340: IF (RCAVS - 0.99995) 20170, 10170, 40170 03370355
341: 40170 IF (RCAVS - 1.0001) 10170, 10170, 20170 03380355
342: 10170 IVPASS = IVPASS + 1 03390355
343: WRITE (NUVI, 80002) IVTNUM 03400355
344: GO TO 0171 03410355
345: 20170 IVFAIL = IVFAIL + 1 03420355
346: RVCORR = 1.0 03430355
347: WRITE(NUVI, 80012) IVTNUM, RCAVS, RVCORR 03440355
348: 0171 CONTINUE 03450355
349: CT018* TEST 18 AN INTEGRAL VALUE OTHER THAN 0,1 03460355
350: IVTNUM = 18 03470355
351: RCBVS = FLOAT(5) 03480355
352: RCAVS = ANINT(RCBVS) 03490355
353: IF (RCAVS - 4.9997) 20180, 10180, 40180 03500355
354: 40180 IF (RCAVS - 5.0003) 10180, 10180, 20180 03510355
355: 10180 IVPASS = IVPASS + 1 03520355
356: WRITE (NUVI, 80002) IVTNUM 03530355
357: GO TO 0181 03540355
358: 20180 IVFAIL = IVFAIL + 1 03550355
359: RVCORR = 5.0 03560355
360: WRITE(NUVI, 80012) IVTNUM, RCAVS, RVCORR 03570355
361: 0181 CONTINUE 03580355
362: CT019* TEST 19 A VALUE IN (X,X+.5) 03590355
363: IVTNUM = 19 03600355
364: RCBVS = 10.46875 03610355
365: RCAVS = ANINT(RCBVS) 03620355
366: IF (RCAVS - 9.9995) 20190, 10190, 40190 03630355
367: 40190 IF (RCAVS - 10.001) 10190, 10190, 20190 03640355
368: 10190 IVPASS = IVPASS + 1 03650355
369: WRITE (NUVI, 80002) IVTNUM 03660355
370: GO TO 0191 03670355
371: 20190 IVFAIL = IVFAIL + 1 03680355
372: RVCORR = 10.0 03690355
373: WRITE(NUVI, 80012) IVTNUM, RCAVS, RVCORR 03700355
374: 0191 CONTINUE 03710355
375: CT020* TEST 20 A VALUE WITH FRACTIONAL PART OF 0.5 03720355
376: IVTNUM = 20 03730355
377: RCBVS = FLOAT(16) - FLOAT(1) / FLOAT(2) 03740355
378: RCAVS = ANINT(RCBVS) 03750355
379: IF (RCAVS - 15.999) 20200, 10200, 40200 03760355
380: 40200 IF (RCAVS - 16.001) 10200, 10200, 20200 03770355
381: 10200 IVPASS = IVPASS + 1 03780355
382: WRITE (NUVI, 80002) IVTNUM 03790355
383: GO TO 0201 03800355
384: 20200 IVFAIL = IVFAIL + 1 03810355
385: RVCORR = 16.0 03820355
386: WRITE(NUVI, 80012) IVTNUM, RCAVS, RVCORR 03830355
387: 0201 CONTINUE 03840355
388: CT021* TEST 21 A VALUE IN (X+.5,X+1) 03850355
389: IVTNUM = 21 03860355
390: RCBVS = 27.96875 03870355
391: RCAVS = ANINT(RCBVS) 03880355
392: IF (RCAVS - 27.998) 20210, 10210, 40210 03890355
393: 40210 IF (RCAVS - 28.002) 10210, 10210, 20210 03900355
394: 10210 IVPASS = IVPASS + 1 03910355
395: WRITE (NUVI, 80002) IVTNUM 03920355
396: GO TO 0211 03930355
397: 20210 IVFAIL = IVFAIL + 1 03940355
398: RVCORR = 28.0 03950355
399: WRITE(NUVI, 80012) IVTNUM, RCAVS, RVCORR 03960355
400: 0211 CONTINUE 03970355
401: CT022* TEST 22 A NEGATIVE VALUE WITH MAGNITUDE IN (0,.5) 03980355
402: IVTNUM = 22 03990355
403: RCBVS = -0.25 04000355
404: RCAVS = ANINT(RCBVS) 04010355
405: IF (RCAVS + 0.00005) 20220, 10220, 40220 04020355
406: 40220 IF (RCAVS - 0.00005) 10220, 10220, 20220 04030355
407: 10220 IVPASS = IVPASS + 1 04040355
408: WRITE (NUVI, 80002) IVTNUM 04050355
409: GO TO 0221 04060355
410: 20220 IVFAIL = IVFAIL + 1 04070355
411: RVCORR = -0.0 04080355
412: WRITE(NUVI, 80012) IVTNUM, RCAVS, RVCORR 04090355
413: 0221 CONTINUE 04100355
414: CT023* TEST 23 THE VALUE -0.5 04110355
415: IVTNUM = 23 04120355
416: RCBVS = FLOAT(-1) / FLOAT(2) 04130355
417: RCAVS = ANINT(RCBVS) 04140355
418: IF (RCAVS + 1.0001) 20230, 10230, 40230 04150355
419: 40230 IF (RCAVS + 0.99995) 10230, 10230, 20230 04160355
420: 10230 IVPASS = IVPASS + 1 04170355
421: WRITE (NUVI, 80002) IVTNUM 04180355
422: GO TO 0231 04190355
423: 20230 IVFAIL = IVFAIL + 1 04200355
424: RVCORR = -1.0 04210355
425: WRITE(NUVI, 80012) IVTNUM, RCAVS, RVCORR 04220355
426: 0231 CONTINUE 04230355
427: CT024* TEST 24 A NEGATIVE VALUE WITH MAGNITUDE IN (.5,1) 04240355
428: IVTNUM = 24 04250355
429: RCBVS = -0.75 04260355
430: RCAVS = ANINT(RCBVS) 04270355
431: IF (RCAVS + 1.0001) 20240, 10240, 40240 04280355
432: 40240 IF (RCAVS + 0.99995) 10240, 10240, 20240 04290355
433: 10240 IVPASS = IVPASS + 1 04300355
434: WRITE (NUVI, 80002) IVTNUM 04310355
435: GO TO 0241 04320355
436: 20240 IVFAIL = IVFAIL + 1 04330355
437: RVCORR = -1.0 04340355
438: WRITE(NUVI, 80012) IVTNUM, RCAVS, RVCORR 04350355
439: 0241 CONTINUE 04360355
440: CT025* TEST 25 A NEGATIVE INTEGRAL VALUE 04370355
441: IVTNUM = 25 04380355
442: RCBVS = FLOAT(-5) 04390355
443: RCAVS = ANINT(RCBVS) 04400355
444: IF (RCAVS + 5.0003) 20250, 10250, 40250 04410355
445: 40250 IF (RCAVS + 4.9997) 10250, 10250, 20250 04420355
446: 10250 IVPASS = IVPASS + 1 04430355
447: WRITE (NUVI, 80002) IVTNUM 04440355
448: GO TO 0251 04450355
449: 20250 IVFAIL = IVFAIL + 1 04460355
450: RVCORR = -5.0 04470355
451: WRITE(NUVI, 80012) IVTNUM, RCAVS, RVCORR 04480355
452: 0251 CONTINUE 04490355
453: CT026* TEST 26 A NEGATIVE VALUE WITH MAGNITUDE IN (X,X+.5) 04500355
454: IVTNUM = 26 04510355
455: RCBVS = -10.46875 04520355
456: RCAVS = ANINT(RCBVS) 04530355
457: IF (RCAVS + 10.001) 20260, 10260, 40260 04540355
458: 40260 IF (RCAVS + 9.9995) 10260, 10260, 20260 04550355
459: 10260 IVPASS = IVPASS + 1 04560355
460: WRITE (NUVI, 80002) IVTNUM 04570355
461: GO TO 0261 04580355
462: 20260 IVFAIL = IVFAIL + 1 04590355
463: RVCORR = -10.0 04600355
464: WRITE(NUVI, 80012) IVTNUM, RCAVS, RVCORR 04610355
465: 0261 CONTINUE 04620355
466: CT027* TEST 27 A NEGATIVE VALUE WITH FRACTIONAL COMPONENT .5 04630355
467: IVTNUM = 27 04640355
468: RCBVS = FLOAT(-15) - FLOAT(1) / FLOAT(2) 04650355
469: RCAVS = ANINT(RCBVS) 04660355
470: IF (RCAVS + 16.001) 20270, 10270, 40270 04670355
471: 40270 IF (RCAVS + 15.999) 10270, 10270, 20270 04680355
472: 10270 IVPASS = IVPASS + 1 04690355
473: WRITE (NUVI, 80002) IVTNUM 04700355
474: GO TO 0271 04710355
475: 20270 IVFAIL = IVFAIL + 1 04720355
476: RVCORR = -16.0 04730355
477: WRITE(NUVI, 80012) IVTNUM, RCAVS, RVCORR 04740355
478: 0271 CONTINUE 04750355
479: CT028* TEST 28 A NEGATIVE VALUE WITH MAGNITUDE IN (X+.5,X+1) 04760355
480: IVTNUM = 28 04770355
481: RCBVS = -27.96875 04780355
482: RCAVS = ANINT(RCBVS) 04790355
483: IF (RCAVS + 28.002) 20280, 10280, 40280 04800355
484: 40280 IF (RCAVS + 27.998) 10280, 10280, 20280 04810355
485: 10280 IVPASS = IVPASS + 1 04820355
486: WRITE (NUVI, 80002) IVTNUM 04830355
487: GO TO 0281 04840355
488: 20280 IVFAIL = IVFAIL + 1 04850355
489: RVCORR = -28.0 04860355
490: WRITE(NUVI, 80012) IVTNUM, RCAVS, RVCORR 04870355
491: 0281 CONTINUE 04880355
492: CT029* TEST 29 AN ARITHMETIC EXPRESSION PRESENTED TO ANINT 04890355
493: IVTNUM = 29 04900355
494: RCDVS = 8.00 04910355
495: RCBVS = 7.25 04920355
496: RCAVS = ANINT(RCDVS - RCBVS) 04930355
497: IF (RCAVS - 0.99995) 20290, 10290, 40290 04940355
498: 40290 IF (RCAVS - 1.0001) 10290, 10290, 20290 04950355
499: 10290 IVPASS = IVPASS + 1 04960355
500: WRITE (NUVI, 80002) IVTNUM 04970355
501: GO TO 0291 04980355
502: 20290 IVFAIL = IVFAIL + 1 04990355
503: RVCORR = 1.0 05000355
504: WRITE(NUVI, 80012) IVTNUM, RCAVS, RVCORR 05010355
505: 0291 CONTINUE 05020355
506: CT030* TEST 30 AN ARGUMENT OF LOW MAGNITUDE 05030355
507: IVTNUM = 30 05040355
508: RCBVS = -5.9876E-35 05050355
509: RCAVS = ANINT(RCBVS) 05060355
510: IF (RCAVS + 0.00005) 20300, 10300, 40300 05070355
511: 40300 IF (RCAVS - 0.00005) 10300, 10300, 20300 05080355
512: 10300 IVPASS = IVPASS + 1 05090355
513: WRITE (NUVI, 80002) IVTNUM 05100355
514: GO TO 0301 05110355
515: 20300 IVFAIL = IVFAIL + 1 05120355
516: RVCORR = 0.0 05130355
517: WRITE(NUVI, 80012) IVTNUM, RCAVS, RVCORR 05140355
518: 0301 CONTINUE 05150355
519: C***** 05160355
520: WRITE(NUVI, 90002) 05170355
521: WRITE(NUVI, 90013) 05180355
522: WRITE(NUVI, 90014) 05190355
523: C***** 05200355
524: C***** TEST OF NINT 05210355
525: C***** 05220355
526: WRITE(NUVI, 15405) 05230355
527: 15405 FORMAT (/ 8X, 12HTEST OF NINT) 05240355
528: C***** 05250355
529: CT031* TEST 31 THE VALUE ZERO 05260355
530: IVTNUM = 31 05270355
531: RCBVS = 0.0 05280355
532: ICAVI = NINT(RCBVS) 05290355
533: IF (ICAVI - 0) 20310, 10310, 20310 05300355
534: 10310 IVPASS = IVPASS + 1 05310355
535: WRITE (NUVI, 80002) IVTNUM 05320355
536: GO TO 0311 05330355
537: 20310 IVFAIL = IVFAIL + 1 05340355
538: IVCORR = 0 05350355
539: WRITE (NUVI, 80010) IVTNUM, ICAVI, IVCORR 05360355
540: 0311 CONTINUE 05370355
541: CT032* TEST 32 ZERO PREFIXED WITH A MINUS SIGN 05380355
542: IVTNUM = 32 05390355
543: RCDVS = 0.0 05400355
544: ICAVI = NINT(-RCDVS) 05410355
545: IF (ICAVI - 0) 20320, 10320, 20320 05420355
546: 10320 IVPASS = IVPASS + 1 05430355
547: WRITE (NUVI, 80002) IVTNUM 05440355
548: GO TO 0321 05450355
549: 20320 IVFAIL = IVFAIL + 1 05460355
550: IVCORR = 0 05470355
551: WRITE (NUVI, 80010) IVTNUM, ICAVI, IVCORR 05480355
552: 0321 CONTINUE 05490355
553: CT033* TEST 33 A VALUE IN (0,.5) 05500355
554: IVTNUM = 33 05510355
555: RCBVS = 0.25 05520355
556: ICAVI = NINT(RCBVS) 05530355
557: IF (ICAVI - 0) 20330, 10330, 20330 05540355
558: 10330 IVPASS = IVPASS + 1 05550355
559: WRITE (NUVI, 80002) IVTNUM 05560355
560: GO TO 0331 05570355
561: 20330 IVFAIL = IVFAIL + 1 05580355
562: IVCORR = 0 05590355
563: WRITE (NUVI, 80010) IVTNUM, ICAVI, IVCORR 05600355
564: 0331 CONTINUE 05610355
565: CT034* TEST 34 THE VALUE 0.5 05620355
566: IVTNUM = 34 05630355
567: RCBVS = FLOAT(1) / FLOAT(2) 05640355
568: ICAVI = NINT(RCBVS) 05650355
569: IF (ICAVI - 1) 20340, 10340, 20340 05660355
570: 10340 IVPASS = IVPASS + 1 05670355
571: WRITE (NUVI, 80002) IVTNUM 05680355
572: GO TO 0341 05690355
573: 20340 IVFAIL = IVFAIL + 1 05700355
574: IVCORR = 1 05710355
575: WRITE (NUVI, 80010) IVTNUM, ICAVI, IVCORR 05720355
576: 0341 CONTINUE 05730355
577: CT035* TEST 35 A VALUE IN (.5,1) 05740355
578: IVTNUM = 35 05750355
579: RCBVS = 0.75 05760355
580: ICAVI = NINT(RCBVS) 05770355
581: IF (ICAVI - 1) 20350, 10350, 20350 05780355
582: 10350 IVPASS = IVPASS + 1 05790355
583: WRITE (NUVI, 80002) IVTNUM 05800355
584: GO TO 0351 05810355
585: 20350 IVFAIL = IVFAIL + 1 05820355
586: IVCORR = 1 05830355
587: WRITE (NUVI, 80010) IVTNUM, ICAVI, IVCORR 05840355
588: 0351 CONTINUE 05850355
589: CT036* TEST 36 AN INTEGRAL VALUE OTHER THAN 0, 1 05860355
590: IVTNUM = 36 05870355
591: RCBVS = FLOAT(5) 05880355
592: ICAVI = NINT(RCBVS) 05890355
593: IF (ICAVI - 5) 20360, 10360, 20360 05900355
594: 10360 IVPASS = IVPASS + 1 05910355
595: WRITE (NUVI, 80002) IVTNUM 05920355
596: GO TO 0361 05930355
597: 20360 IVFAIL = IVFAIL + 1 05940355
598: IVCORR = 5 05950355
599: WRITE (NUVI, 80010) IVTNUM, ICAVI, IVCORR 05960355
600: 0361 CONTINUE 05970355
601: CT037* TEST 37 A VALUE IN (X,X+.5) 05980355
602: IVTNUM = 37 05990355
603: RCBVS = 10.46875 06000355
604: ICAVI = NINT(RCBVS) 06010355
605: IF (ICAVI - 10) 20370, 10370, 20370 06020355
606: 10370 IVPASS = IVPASS + 1 06030355
607: WRITE (NUVI, 80002) IVTNUM 06040355
608: GO TO 0371 06050355
609: 20370 IVFAIL = IVFAIL + 1 06060355
610: IVCORR = 10 06070355
611: WRITE (NUVI, 80010) IVTNUM, ICAVI, IVCORR 06080355
612: 0371 CONTINUE 06090355
613: CT038* TEST 38 A VALUE WITH FRACTIONAL PART OF 0.5 06100355
614: IVTNUM = 38 06110355
615: RCBVS = FLOAT(15) + FLOAT(1) / FLOAT(2) 06120355
616: ICAVI = NINT(RCBVS) 06130355
617: IF (ICAVI - 16) 20380, 10380, 20380 06140355
618: 10380 IVPASS = IVPASS + 1 06150355
619: WRITE (NUVI, 80002) IVTNUM 06160355
620: GO TO 0381 06170355
621: 20380 IVFAIL = IVFAIL + 1 06180355
622: IVCORR = 16 06190355
623: WRITE (NUVI, 80010) IVTNUM, ICAVI, IVCORR 06200355
624: 0381 CONTINUE 06210355
625: CT039* TEST 39 A VALUE IN (X+.5,X+1) 06220355
626: IVTNUM = 39 06230355
627: RCBVS = 27.96875 06240355
628: ICAVI = NINT(RCBVS) 06250355
629: IF (ICAVI - 28) 20390, 10390, 20390 06260355
630: 10390 IVPASS = IVPASS + 1 06270355
631: WRITE (NUVI, 80002) IVTNUM 06280355
632: GO TO 0391 06290355
633: 20390 IVFAIL = IVFAIL + 1 06300355
634: IVCORR = 28 06310355
635: WRITE (NUVI, 80010) IVTNUM, ICAVI, IVCORR 06320355
636: 0391 CONTINUE 06330355
637: CT040* TEST 40 A NEGATIVE VALUE WITH MAGNITUDE IN (0.,5) 06340355
638: IVTNUM = 40 06350355
639: RCBVS = -0.25 06360355
640: ICAVI = NINT(RCBVS) 06370355
641: IF (ICAVI - 0) 20400, 10400, 20400 06380355
642: 10400 IVPASS = IVPASS + 1 06390355
643: WRITE (NUVI, 80002) IVTNUM 06400355
644: GO TO 0401 06410355
645: 20400 IVFAIL = IVFAIL + 1 06420355
646: IVCORR = 0 06430355
647: WRITE (NUVI, 80010) IVTNUM, ICAVI, IVCORR 06440355
648: 0401 CONTINUE 06450355
649: CT041* TEST 41 THE VALUE -0.5 06460355
650: IVTNUM = 41 06470355
651: RCBVS = FLOAT(-1) / FLOAT(2) 06480355
652: ICAVI = NINT(RCBVS) 06490355
653: IF (ICAVI + 1) 20410, 10410, 20410 06500355
654: 10410 IVPASS = IVPASS + 1 06510355
655: WRITE (NUVI, 80002) IVTNUM 06520355
656: GO TO 0411 06530355
657: 20410 IVFAIL = IVFAIL + 1 06540355
658: IVCORR = -1 06550355
659: WRITE (NUVI, 80010) IVTNUM, ICAVI, IVCORR 06560355
660: 0411 CONTINUE 06570355
661: CT042* TEST 42 A NEGATIVE VALUE WITH MAGNITUDE IN (.5,1) 06580355
662: IVTNUM = 42 06590355
663: RCBVS = -0.75 06600355
664: ICAVI = NINT(RCBVS) 06610355
665: IF (ICAVI + 1) 20420, 10420, 20420 06620355
666: 10420 IVPASS = IVPASS + 1 06630355
667: WRITE (NUVI, 80002) IVTNUM 06640355
668: GO TO 0421 06650355
669: 20420 IVFAIL = IVFAIL + 1 06660355
670: IVCORR = -1 06670355
671: WRITE (NUVI, 80010) IVTNUM, ICAVI, IVCORR 06680355
672: 0421 CONTINUE 06690355
673: CT043* TEST 43 A NEGATIVE INTEGRAL VALUE 06700355
674: IVTNUM = 43 06710355
675: RCBVS = FLOAT(-5) 06720355
676: ICAVI = NINT(RCBVS) 06730355
677: IF (ICAVI + 5) 20430, 10430, 20430 06740355
678: 10430 IVPASS = IVPASS + 1 06750355
679: WRITE (NUVI, 80002) IVTNUM 06760355
680: GO TO 0431 06770355
681: 20430 IVFAIL = IVFAIL + 1 06780355
682: IVCORR = -5 06790355
683: WRITE (NUVI, 80010) IVTNUM, ICAVI, IVCORR 06800355
684: 0431 CONTINUE 06810355
685: CT044* TEST 44 A NEGATIVE VALUE WITH MAGNITUDE IN (X,X+.5) 06820355
686: IVTNUM = 44 06830355
687: RCBVS = -10.46875 06840355
688: ICAVI = NINT(RCBVS) 06850355
689: IF (ICAVI + 10) 20440, 10440, 20440 06860355
690: 10440 IVPASS = IVPASS + 1 06870355
691: WRITE (NUVI, 80002) IVTNUM 06880355
692: GO TO 0441 06890355
693: 20440 IVFAIL = IVFAIL + 1 06900355
694: IVCORR = -10 06910355
695: WRITE (NUVI, 80010) IVTNUM, ICAVI, IVCORR 06920355
696: 0441 CONTINUE 06930355
697: CT045* TEST 45 A NEGATIVE VALUE WITH FRACTIONAL COMPONENT 0.5 S106940355
698: IVTNUM = 45 06950355
699: RCBVS = FLOAT(-15) - FLOAT(1) / FLOAT(2) 06960355
700: ICAVI = NINT(RCBVS) 06970355
701: IF (ICAVI + 16) 20450, 10450, 20450 06980355
702: 10450 IVPASS = IVPASS + 1 06990355
703: WRITE (NUVI, 80002) IVTNUM 07000355
704: GO TO 0451 07010355
705: 20450 IVFAIL = IVFAIL + 1 07020355
706: IVCORR = -16 07030355
707: WRITE (NUVI, 80010) IVTNUM, ICAVI, IVCORR 07040355
708: 0451 CONTINUE 07050355
709: CT046* TEST 46 A NEGATIVE VALUE WITH MAGNITUDE IN (X+.5,X+1) S107060355
710: IVTNUM = 46 07070355
711: RCBVS = -27.96875 07080355
712: ICAVI = NINT(RCBVS) 07090355
713: IF (ICAVI + 28) 20460, 10460, 20460 07100355
714: 10460 IVPASS = IVPASS + 1 07110355
715: WRITE (NUVI, 80002) IVTNUM 07120355
716: GO TO 0461 07130355
717: 20460 IVFAIL = IVFAIL + 1 07140355
718: IVCORR = -28 07150355
719: WRITE (NUVI, 80010) IVTNUM, ICAVI, IVCORR 07160355
720: 0461 CONTINUE 07170355
721: CT047* TEST 47 AN ARITHMETIC EXPRESSION PRESENTED TO NINT S107180355
722: IVTNUM = 47 07190355
723: RCDVS = 8.00 07200355
724: RCEVS = 7.25 07210355
725: ICAVI = NINT(RCDVS - RCEVS) 07220355
726: IF (ICAVI - 1) 20470, 10470, 20470 07230355
727: 10470 IVPASS = IVPASS + 1 07240355
728: WRITE (NUVI, 80002) IVTNUM 07250355
729: GO TO 0471 07260355
730: 20470 IVFAIL = IVFAIL + 1 07270355
731: IVCORR = 1 07280355
732: WRITE (NUVI, 80010) IVTNUM, ICAVI, IVCORR 07290355
733: 0471 CONTINUE 07300355
734: CT048* TEST 48 AN ARGUMENT OF LOW MAGNITUDE 07310355
735: IVTNUM = 48 07320355
736: RCBVS = -5.9876E-33 07330355
737: ICAVI = NINT(RCBVS) 07340355
738: IF (ICAVI - 0) 20480, 10480, 20480 07350355
739: 10480 IVPASS = IVPASS + 1 07360355
740: WRITE (NUVI, 80002) IVTNUM 07370355
741: GO TO 0481 07380355
742: 20480 IVFAIL = IVFAIL + 1 07390355
743: IVCORR = 0 07400355
744: WRITE (NUVI, 80010) IVTNUM, ICAVI, IVCORR 07410355
745: 0481 CONTINUE 07420355
746: C***** 07430355
747: CBB** ********************** BBCSUM0 **********************************07440355
748: C**** WRITE OUT TEST SUMMARY 07450355
749: C**** 07460355
750: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 07470355
751: WRITE (I02, 90004) 07480355
752: WRITE (I02, 90014) 07490355
753: WRITE (I02, 90004) 07500355
754: WRITE (I02, 90020) IVPASS 07510355
755: WRITE (I02, 90022) IVFAIL 07520355
756: WRITE (I02, 90024) IVDELE 07530355
757: WRITE (I02, 90026) IVINSP 07540355
758: WRITE (I02, 90028) IVTOTN, IVTOTL 07550355
759: CBE** ********************** BBCSUM0 **********************************07560355
760: CBB** ********************** BBCFOOT0 **********************************07570355
761: C**** WRITE OUT REPORT FOOTINGS 07580355
762: C**** 07590355
763: WRITE (I02,90016) ZPROG, ZPROG 07600355
764: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 07610355
765: WRITE (I02,90019) 07620355
766: CBE** ********************** BBCFOOT0 **********************************07630355
767: CBB** ********************** BBCFMT0A **********************************07640355
768: C**** FORMATS FOR TEST DETAIL LINES 07650355
769: C**** 07660355
770: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 07670355
771: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 07680355
772: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 07690355
773: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 07700355
774: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 07710355
775: 1I6,/,1H ,15X,10HCORRECT= ,I6) 07720355
776: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 07730355
777: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 07740355
778: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 07750355
779: 1A21,/,1H ,16X,10HCORRECT= ,A21) 07760355
780: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 07770355
781: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 07780355
782: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 07790355
783: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 07800355
784: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 07810355
785: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 07820355
786: 80050 FORMAT (1H ,48X,A31) 07830355
787: CBE** ********************** BBCFMT0A **********************************07840355
788: CBB** ********************** BBCFMT0B **********************************07850355
789: C**** FORMAT STATEMENTS FOR PAGE HEADERS 07860355
790: C**** 07870355
791: 90002 FORMAT (1H1) 07880355
792: 90004 FORMAT (1H ) 07890355
793: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 07900355
794: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 07910355
795: 90008 FORMAT (1H ,21X,A13,A17) 07920355
796: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 07930355
797: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 07940355
798: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 07950355
799: 1 7X,7HREMARKS,24X) 07960355
800: 90014 FORMAT (1H ,46H----------------------------------------------, 07970355
801: 1 33H---------------------------------) 07980355
802: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 07990355
803: C**** 08000355
804: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 08010355
805: C**** 08020355
806: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 08030355
807: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 08040355
808: 1 A13) 08050355
809: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 08060355
810: C**** 08070355
811: C**** FORMAT STATEMENTS FOR RUN SUMMARY 08080355
812: C**** 08090355
813: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 08100355
814: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 08110355
815: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 08120355
816: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 08130355
817: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 08140355
818: CBE** ********************** BBCFMT0B **********************************08150355
819: C***** 08160355
820: C***** END OF TEST SEGMENT 154 08170355
821: STOP 08180355
822: END 08190355
823: 08200355
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.