![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM801.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 FM801.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***********************************************************************00010801
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 00020801
6: C***** FM801 YDINT - (155) 00030801
7: C***** 00040801
8: C***********************************************************************00050801
9: C***** GENERAL PURPOSE ANS REF 00060801
10: C***** TEST INTRINSIC FUNCTIONS DINT, DNINT, IDNINT 15.3 00070801
11: C***** TRUNCATION (SIGN OF A * LARGEST INTEGER LE ABS(A) ) (TABLE 5)00080801
12: C***** 00090801
13: C***** GENERAL COMMENTS 00100801
14: C***** FLOAT FUNCTION ASSUMED WORKING 00110801
15: C***** 00120801
16: CBB** ********************** BBCCOMNT **********************************00130801
17: C**** 00140801
18: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00150801
19: C**** VERSION 2.0 00160801
20: C**** 00170801
21: C**** 00180801
22: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00190801
23: C**** GENERAL SERVICES ADMINISTRATION 00200801
24: C**** FEDERAL SOFTWARE TESTING CENTER 00210801
25: C**** 5203 LEESBURG PIKE, SUITE 1100 00220801
26: C**** FALLS CHURCH, VA. 22041 00230801
27: C**** 00240801
28: C**** (703) 756-6153 00250801
29: C**** 00260801
30: CBE** ********************** BBCCOMNT **********************************00270801
31: C***** 00280801
32: C***** S P E C I F I C A T I O N S SEGMENT 155 00290801
33: DOUBLE PRECISION DNAVD, DNBVD, DNDVD 00300801
34: C***** 00310801
35: CBB** ********************** BBCINITA **********************************00320801
36: C**** SPECIFICATION STATEMENTS 00330801
37: C**** 00340801
38: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00350801
39: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00360801
40: CBE** ********************** BBCINITA **********************************00370801
41: CBB** ********************** BBCINITB **********************************00380801
42: C**** INITIALIZE SECTION 00390801
43: DATA ZVERS, ZVERSD, ZDATE 00400801
44: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00410801
45: DATA ZCOMPL, ZNAME, ZTAPE 00420801
46: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00430801
47: DATA ZPROJ, ZTAPED, ZPROG 00440801
48: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00450801
49: DATA REMRKS /' '/ 00460801
50: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00470801
51: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00480801
52: C**** 00490801
53: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00500801
54: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00510801
55: CZ03 ZPROG = 'PROGRAM NAME' 00520801
56: ZDATE = '07-Nov-85 ' *RP
57: ZCOMPL = 'CCI 5.2 ' *RP
58: ZPROJ = 'TC-85- -410' *RP
59: ZNAME = ' ' *RP
60: ZTAPE = ' ' *RP
61: ZTAPED = '850703 ' *RP
62: C 00590801
63: IVPASS = 0 00600801
64: IVFAIL = 0 00610801
65: IVDELE = 0 00620801
66: IVINSP = 0 00630801
67: IVTOTL = 0 00640801
68: IVTOTN = 0 00650801
69: ICZERO = 0 00660801
70: C 00670801
71: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00680801
72: I01 = 05 00690801
73: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00700801
74: I02 = 06 00710801
75: C 00720801
76: I01 = 5 00730801
77: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00740801
78: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00750801
79: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00760801
80: C 00770801
81: I02 = 6 00780801
82: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00790801
83: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00800801
84: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00810801
85: C 00820801
86: CBE** ********************** BBCINITB **********************************00830801
87: NUVI = I02 00840801
88: IVTOTL = 45 00850801
89: ZPROG = 'FM801' 00860801
90: CBB** ********************** BBCHED0A **********************************00870801
91: C**** 00880801
92: C**** WRITE REPORT TITLE 00890801
93: C**** 00900801
94: WRITE (I02, 90002) 00910801
95: WRITE (I02, 90006) 00920801
96: WRITE (I02, 90007) 00930801
97: WRITE (I02, 90008) ZVERS, ZVERSD 00940801
98: WRITE (I02, 90009) ZPROG, ZPROG 00950801
99: WRITE (I02, 90010) ZDATE, ZCOMPL 00960801
100: CBE** ********************** BBCHED0A **********************************00970801
101: C***** 00980801
102: C***** HEADER FOR SEGMENT 155 00990801
103: WRITE (NUVI,15501) 01000801
104: 15501 FORMAT (1H , // 1X,35HYDINT - (155) INTRINSIC FUNCTIONS--//16X, 01010801
105: 1 38HDINT, DNINT, IDNINT (TYPE CONVERSION) // 01020801
106: 2 17H ANS REF. - 15.3) 01030801
107: CBB** ********************** BBCHED0B **********************************01040801
108: C**** WRITE DETAIL REPORT HEADERS 01050801
109: C**** 01060801
110: WRITE (I02,90004) 01070801
111: WRITE (I02,90004) 01080801
112: WRITE (I02,90013) 01090801
113: WRITE (I02,90014) 01100801
114: WRITE (I02,90015) IVTOTL 01110801
115: CBE** ********************** BBCHED0B **********************************01120801
116: C***** 01130801
117: C***** TEST OF DINT 01140801
118: C***** 01150801
119: WRITE(NUVI, 15502) 01160801
120: 15502 FORMAT(// 8X, 12HTEST OF DINT) 01170801
121: CT001* TEST 1 THE VALUE ZERO 01180801
122: IVTNUM = 1 01190801
123: DNBVD = 0.0D0 01200801
124: DNAVD = DINT(DNBVD) 01210801
125: IF (DNAVD + 5.0D-10) 20010, 10010, 40010 01220801
126: 40010 IF (DNAVD - 5.0D-10) 10010, 10010, 20010 01230801
127: 10010 IVPASS = IVPASS + 1 01240801
128: WRITE (NUVI, 80002) IVTNUM 01250801
129: GO TO 0011 01260801
130: 20010 IVFAIL = IVFAIL + 1 01270801
131: DVCORR = 0.0D0 01280801
132: WRITE (NUVI, 80031) IVTNUM, DNAVD, DVCORR 01290801
133: 0011 CONTINUE 01300801
134: CT002* TEST 2 A VALUE IN (0,1) 01310801
135: IVTNUM = 2 01320801
136: DNBVD = 0.375D0 01330801
137: DNAVD = DINT(DNBVD) 01340801
138: IF (DNAVD + 5.0D-10) 20020, 10020, 40020 01350801
139: 40020 IF (DNAVD - 5.0D-10) 10020, 10020, 20020 01360801
140: 10020 IVPASS = IVPASS + 1 01370801
141: WRITE (NUVI, 80002) IVTNUM 01380801
142: GO TO 0021 01390801
143: 20020 IVFAIL = IVFAIL + 1 01400801
144: DVCORR = 0.0D0 01410801
145: WRITE (NUVI, 80031) IVTNUM, DNAVD, DVCORR 01420801
146: 0021 CONTINUE 01430801
147: CT003* TEST 3 THE VALUE 1 01440801
148: IVTNUM = 3 01450801
149: DNBVD = FLOAT(1) 01460801
150: DNAVD = DINT(DNBVD) 01470801
151: IF (DNAVD - 0.9999999995D0) 20030, 10030, 40030 01480801
152: 40030 IF (DNAVD - 1.000000001D0) 10030, 10030, 20030 01490801
153: 10030 IVPASS = IVPASS + 1 01500801
154: WRITE (NUVI, 80002) IVTNUM 01510801
155: GO TO 0031 01520801
156: 20030 IVFAIL = IVFAIL + 1 01530801
157: DVCORR = 1.0D0 01540801
158: WRITE (NUVI, 80031) IVTNUM, DNAVD, DVCORR 01550801
159: 0031 CONTINUE 01560801
160: CT004* TEST 4 AN INTEGRAL VALUE OTHER THAN 0, 1 01570801
161: IVTNUM = 4 01580801
162: DNBVD = FLOAT(6) 01590801
163: DNAVD = DINT(DNBVD) 01600801
164: IF (DNAVD - 5.999999997D0) 20040, 10040, 40040 01610801
165: 40040 IF (DNAVD - 6.000000003D0) 10040, 10040, 20040 01620801
166: 10040 IVPASS = IVPASS + 1 01630801
167: WRITE (NUVI, 80002) IVTNUM 01640801
168: GO TO 0041 01650801
169: 20040 IVFAIL = IVFAIL + 1 01660801
170: DVCORR = 6.0D0 01670801
171: WRITE (NUVI, 80031) IVTNUM, DNAVD, DVCORR 01680801
172: 0041 CONTINUE 01690801
173: CT005* TEST 5 A VALUE IN (X,X+1) 01700801
174: IVTNUM = 5 01710801
175: DNBVD = 0.375D1 01720801
176: DNAVD = DINT(DNBVD) 01730801
177: IF (DNAVD - 2.999999998D0) 20050, 10050, 40050 01740801
178: 40050 IF (DNAVD - 3.000000002D0) 10050, 10050, 20050 01750801
179: 10050 IVPASS = IVPASS + 1 01760801
180: WRITE (NUVI, 80002) IVTNUM 01770801
181: GO TO 0051 01780801
182: 20050 IVFAIL = IVFAIL + 1 01790801
183: DVCORR = 0.3D1 01800801
184: WRITE (NUVI, 80031) IVTNUM, DNAVD, DVCORR 01810801
185: 0051 CONTINUE 01820801
186: CT006* TEST 6 A NEGATIVE VALUE WITH MAGNITUDE IN (0,1) 01830801
187: IVTNUM = 6 01840801
188: DNBVD = -0.375D0 01850801
189: DNAVD = DINT(DNBVD) 01860801
190: IF (DNAVD + 5.0D-10) 20060, 10060, 40060 01870801
191: 40060 IF (DNAVD - 5.0D-10) 10060, 10060, 20060 01880801
192: 10060 IVPASS = IVPASS + 1 01890801
193: WRITE (NUVI, 80002) IVTNUM 01900801
194: GO TO 0061 01910801
195: 20060 IVFAIL = IVFAIL + 1 01920801
196: DVCORR = 0.0D0 01930801
197: WRITE (NUVI, 80031) IVTNUM, DNAVD, DVCORR 01940801
198: 0061 CONTINUE 01950801
199: CT007* TEST 7 THE VALUE -1 01960801
200: IVTNUM = 7 01970801
201: DNBVD = FLOAT(-1) 01980801
202: DNAVD = DINT(DNBVD) 01990801
203: IF (DNAVD + 1.000000001D0) 20070, 10070, 40070 02000801
204: 40070 IF (DNAVD + 0.9999999995D0) 10070, 10070, 20070 02010801
205: 10070 IVPASS = IVPASS + 1 02020801
206: WRITE (NUVI, 80002) IVTNUM 02030801
207: GO TO 0071 02040801
208: 20070 IVFAIL = IVFAIL + 1 02050801
209: DVCORR = -1.0D0 02060801
210: WRITE (NUVI, 80031) IVTNUM, DNAVD, DVCORR 02070801
211: 0071 CONTINUE 02080801
212: CT008* TEST 8 A NEGATIVE INTEGRAL VALUE 02090801
213: IVTNUM = 8 02100801
214: DNBVD = FLOAT(-6) 02110801
215: DNAVD = DINT(DNBVD) 02120801
216: IF (DNAVD + 6.000000003D0) 20080, 10080, 40080 02130801
217: 40080 IF (DNAVD + 5.999999997D0) 10080, 10080, 20080 02140801
218: 10080 IVPASS = IVPASS + 1 02150801
219: WRITE (NUVI, 80002) IVTNUM 02160801
220: GO TO 0081 02170801
221: 20080 IVFAIL = IVFAIL + 1 02180801
222: DVCORR = -6.0D0 02190801
223: WRITE (NUVI, 80031) IVTNUM, DNAVD, DVCORR 02200801
224: 0081 CONTINUE 02210801
225: CT009* TEST 9 A NEGATIVE VALUE WITH MAGNITUDE IN (X,X+1) 02220801
226: IVTNUM = 9 02230801
227: DNBVD = -0.375D1 02240801
228: DNAVD = DINT(DNBVD) 02250801
229: IF (DNAVD + 3.000000002D0) 20090, 10090, 40090 02260801
230: 40090 IF (DNAVD + 2.999999998D0) 10090, 10090, 20090 02270801
231: 10090 IVPASS = IVPASS + 1 02280801
232: WRITE (NUVI, 80002) IVTNUM 02290801
233: GO TO 0091 02300801
234: 20090 IVFAIL = IVFAIL + 1 02310801
235: DVCORR = -0.3D1 02320801
236: WRITE (NUVI, 80031) IVTNUM, DNAVD, DVCORR 02330801
237: 0091 CONTINUE 02340801
238: CT010* TEST 10 ZERO PREFIXED WITH A MINUS SIGN 02350801
239: IVTNUM = 10 02360801
240: DNBVD = 0.0D0 02370801
241: DNAVD = DINT(-DNBVD) 02380801
242: IF (DNAVD + 5.0D-10) 20100, 10100, 40100 02390801
243: 40100 IF (DNAVD - 5.0D-10) 10100, 10100, 20100 02400801
244: 10100 IVPASS = IVPASS + 1 02410801
245: WRITE (NUVI, 80002) IVTNUM 02420801
246: GO TO 0101 02430801
247: 20100 IVFAIL = IVFAIL + 1 02440801
248: DVCORR = 0.0D0 02450801
249: WRITE (NUVI, 80031) IVTNUM, DNAVD, DVCORR 02460801
250: 0101 CONTINUE 02470801
251: CT011* TEST 11 AN ARITHMETIC EXPRESSION PRESENTED TO FUNCTION 02480801
252: IVTNUM = 11 02490801
253: DNBVD = 0.375D1 02500801
254: DNAVD = DINT(DNBVD/0.375D0) 02510801
255: IF (DNAVD - 0.9000000000D1) 20110, 10110, 40110 02520*TI
256: 40110 IF (DNAVD - 1.000000001D1) 10110, 10110, 20110 02530801
257: 10110 IVPASS = IVPASS + 1 02540801
258: WRITE (NUVI, 80002) IVTNUM 02550801
259: GO TO 0111 02560801
260: 20110 IVFAIL = IVFAIL + 1 02570801
261: DVCORR = 1.0D1 02580801
262: WRITE (NUVI, 80031) IVTNUM, DNAVD, DVCORR 02590801
263: 0111 CONTINUE 02600801
264: C***** 02610801
265: WRITE (NUVI, 90002) 02620801
266: WRITE (NUVI, 90013) 02630801
267: WRITE (NUVI, 90014) 02640801
268: C***** 02650801
269: C***** TEST OF DNINT 02660801
270: C***** 02670801
271: WRITE(NUVI, 15504) 02680801
272: 15504 FORMAT( // 8X, 13HTEST OF DNINT) 02690801
273: CT012* TEST 12 THE VALUE ZERO 02700801
274: IVTNUM = 12 02710801
275: DNBVD = 0.0D0 02720801
276: DNAVD = DNINT(DNBVD) 02730801
277: IF (DNAVD + 5.0D-10) 20120, 10120, 40120 02740801
278: 40120 IF (DNAVD - 5.0D-10) 10120, 10120, 20120 02750801
279: 10120 IVPASS = IVPASS + 1 02760801
280: WRITE (NUVI, 80002) IVTNUM 02770801
281: GO TO 0121 02780801
282: 20120 IVFAIL = IVFAIL + 1 02790801
283: DVCORR = 0.0D0 02800801
284: WRITE (NUVI, 80031) IVTNUM, DNAVD, DVCORR 02810801
285: 0121 CONTINUE 02820801
286: CT013* TEST 13 A VALUE IN (0,.5) 02830801
287: IVTNUM = 13 02840801
288: DNBVD = 0.25D0 02850801
289: DNAVD = DNINT(DNBVD) 02860801
290: IF (DNAVD + 5.0D-10) 20130, 10130, 40130 02870801
291: 40130 IF (DNAVD - 5.0D-10) 10130, 10130, 20130 02880801
292: 10130 IVPASS = IVPASS + 1 02890801
293: WRITE (NUVI, 80002) IVTNUM 02900801
294: GO TO 0131 02910801
295: 20130 IVFAIL = IVFAIL + 1 02920801
296: DVCORR = 0.0D0 02930801
297: WRITE (NUVI, 80031) IVTNUM, DNAVD, DVCORR 02940801
298: 0131 CONTINUE 02950801
299: CT014* TEST 14 THE VALUE 0.5 02960801
300: IVTNUM = 14 02970801
301: DNBVD = FLOAT(1) / FLOAT(2) 02980801
302: DNAVD = DNINT(DNBVD) 02990801
303: IF (DNAVD - 0.9999999995D0) 20140, 10140, 40140 03000801
304: 40140 IF (DNAVD - 1.000000001D0) 10140, 10140, 20140 03010801
305: 10140 IVPASS = IVPASS + 1 03020801
306: WRITE (NUVI, 80002) IVTNUM 03030801
307: GO TO 0141 03040801
308: 20140 IVFAIL = IVFAIL + 1 03050801
309: DVCORR = 1.0D0 03060801
310: WRITE (NUVI, 80031) IVTNUM, DNAVD, DVCORR 03070801
311: 0141 CONTINUE 03080801
312: CT015* TEST 15 A VALUE IN (.5,1) 03090801
313: IVTNUM = 15 03100801
314: DNBVD = 0.75D0 03110801
315: DNAVD = DNINT(DNBVD) 03120801
316: IF (DNAVD - 0.9999999995D0) 20150, 10150, 40150 03130801
317: 40150 IF (DNAVD - 1.000000001D0) 10150, 10150, 20150 03140801
318: 10150 IVPASS = IVPASS + 1 03150801
319: WRITE (NUVI, 80002) IVTNUM 03160801
320: GO TO 0151 03170801
321: 20150 IVFAIL = IVFAIL + 1 03180801
322: DVCORR = 1.0D0 03190801
323: WRITE (NUVI, 80031) IVTNUM, DNAVD, DVCORR 03200801
324: 0151 CONTINUE 03210801
325: CT016* TEST 16 AN INTEGRAL VALUE OTHER THAN 0, 1 03220801
326: IVTNUM = 16 03230801
327: DNBVD = FLOAT(5) 03240801
328: DNAVD = DNINT(DNBVD) 03250801
329: IF (DNAVD - 4.999999997D0) 20160, 10160, 40160 03260801
330: 40160 IF (DNAVD - 5.000000003D0) 10160, 10160, 20160 03270801
331: 10160 IVPASS = IVPASS + 1 03280801
332: WRITE (NUVI, 80002) IVTNUM 03290801
333: GO TO 0161 03300801
334: 20160 IVFAIL = IVFAIL + 1 03310801
335: DVCORR = 5.0D0 03320801
336: WRITE (NUVI, 80031) IVTNUM, DNAVD, DVCORR 03330801
337: 0161 CONTINUE 03340801
338: CT017* TEST 17 A VALUE IN (X,X+.5) 03350801
339: IVTNUM = 17 03360801
340: DNBVD = 10.46875D0 03370801
341: DNAVD = DNINT(DNBVD) 03380801
342: IF (DNAVD - 9.999999995D0) 20170, 10170, 40170 03390801
343: 40170 IF (DNAVD - 10.00000001D0) 10170, 10170, 20170 03400801
344: 10170 IVPASS = IVPASS + 1 03410801
345: WRITE (NUVI, 80002) IVTNUM 03420801
346: GO TO 0171 03430801
347: 20170 IVFAIL = IVFAIL + 1 03440801
348: DVCORR = 10.0D0 03450801
349: WRITE (NUVI, 80031) IVTNUM, DNAVD, DVCORR 03460801
350: 0171 CONTINUE 03470801
351: CT018* TEST 18 A VALUE WITH FRACTIONAL COMPONENT 0.5 03480801
352: IVTNUM = 18 03490801
353: DNBVD = FLOAT(15) + FLOAT(1) / FLOAT(2) 03500801
354: DNAVD = DNINT(DNBVD) 03510801
355: IF (DNAVD - 15.99999999D0) 20180, 10180, 40180 03520801
356: 40180 IF (DNAVD - 16.00000001D0) 10180, 10180, 20180 03530801
357: 10180 IVPASS = IVPASS + 1 03540801
358: WRITE (NUVI, 80002) IVTNUM 03550801
359: GO TO 0181 03560801
360: 20180 IVFAIL = IVFAIL + 1 03570801
361: DVCORR = 16.0D0 03580801
362: WRITE (NUVI, 80031) IVTNUM, DNAVD, DVCORR 03590801
363: 0181 CONTINUE 03600801
364: CT019* TEST 19 A VALUE IN (X+.5,X+1) 03610801
365: IVTNUM = 19 03620801
366: DNBVD = 27.96875D0 03630801
367: DNAVD = DNINT(DNBVD) 03640801
368: IF (DNAVD - 27.99999998D0) 20190, 10190, 40190 03650801
369: 40190 IF (DNAVD - 28.00000002D0) 10190, 10190, 20190 03660801
370: 10190 IVPASS = IVPASS + 1 03670801
371: WRITE (NUVI, 80002) IVTNUM 03680801
372: GO TO 0191 03690801
373: 20190 IVFAIL = IVFAIL + 1 03700801
374: DVCORR = 28.0D0 03710801
375: WRITE (NUVI, 80031) IVTNUM, DNAVD, DVCORR 03720801
376: 0191 CONTINUE 03730801
377: CT020* TEST 20 A NEGATIVE VALUE WITH MAGNITUDE IN (0,.5) 03740801
378: IVTNUM = 20 03750801
379: DNBVD = -0.25D0 03760801
380: DNAVD = DNINT(DNBVD) 03770801
381: IF (DNAVD + 5.0D-10) 20200, 10200, 40200 03780801
382: 40200 IF (DNAVD - 5.0D-10) 10200, 10200, 20200 03790801
383: 10200 IVPASS = IVPASS + 1 03800801
384: WRITE (NUVI, 80002) IVTNUM 03810801
385: GO TO 0201 03820801
386: 20200 IVFAIL = IVFAIL + 1 03830801
387: DVCORR = 0.0D0 03840801
388: WRITE (NUVI, 80031) IVTNUM, DNAVD, DVCORR 03850801
389: 0201 CONTINUE 03860801
390: CT021* TEST 21 THE VALUE -0.5 03870801
391: IVTNUM = 21 03880801
392: DNBVD = -FLOAT(1) / FLOAT(2) 03890801
393: DNAVD = DNINT(DNBVD) 03900801
394: IF (DNAVD + 1.000000001D0) 20210, 10210, 40210 03910801
395: 40210 IF (DNAVD + 0.9999999995D0) 10210, 10210, 20210 03920801
396: 10210 IVPASS = IVPASS + 1 03930801
397: WRITE (NUVI, 80002) IVTNUM 03940801
398: GO TO 0211 03950801
399: 20210 IVFAIL = IVFAIL + 1 03960801
400: DVCORR = -1.0D0 03970801
401: WRITE (NUVI, 80031) IVTNUM, DNAVD, DVCORR 03980801
402: 0211 CONTINUE 03990801
403: CT022* TEST 22 A NEGATIVE VALUE WITH MAGNITUDE IN (.5,1) 04000801
404: IVTNUM = 22 04010801
405: DNBVD = -0.75D0 04020801
406: DNAVD = DNINT(DNBVD) 04030801
407: IF (DNAVD + 1.000000001D0) 20220, 10220, 40220 04040801
408: 40220 IF (DNAVD + 0.9999999995D0) 10220, 10220, 20220 04050801
409: 10220 IVPASS = IVPASS + 1 04060801
410: WRITE (NUVI, 80002) IVTNUM 04070801
411: GO TO 0221 04080801
412: 20220 IVFAIL = IVFAIL + 1 04090801
413: DVCORR = -1.0D0 04100801
414: WRITE (NUVI, 80031) IVTNUM, DNAVD, DVCORR 04110801
415: 0221 CONTINUE 04120801
416: CT023* TEST 23 A NEGATIVE INTEGRAL VALUE 04130801
417: IVTNUM = 23 04140801
418: DNBVD = -FLOAT(5) 04150801
419: DNAVD = DNINT(DNBVD) 04160801
420: IF (DNAVD + 5.000000003D0) 20230, 10230, 40230 04170801
421: 40230 IF (DNAVD + 4.999999997D0) 10230, 10230, 20230 04180801
422: 10230 IVPASS = IVPASS + 1 04190801
423: WRITE (NUVI, 80002) IVTNUM 04200801
424: GO TO 0231 04210801
425: 20230 IVFAIL = IVFAIL + 1 04220801
426: DVCORR = -5.0D0 04230801
427: WRITE (NUVI, 80031) IVTNUM, DNAVD, DVCORR 04240801
428: 0231 CONTINUE 04250801
429: CT024* TEST 24 A NEGATIVE VALUE WITH MAGNITUDE IN (X,X+.5) 04260801
430: IVTNUM = 24 04270801
431: DNBVD = -10.46875D0 04280801
432: DNAVD = DNINT(DNBVD) 04290801
433: IF (DNAVD + 10.00000001D0) 20240, 10240, 40240 04300801
434: 40240 IF (DNAVD + 9.999999995D0) 10240, 10240, 20240 04310801
435: 10240 IVPASS = IVPASS + 1 04320801
436: WRITE (NUVI, 80002) IVTNUM 04330801
437: GO TO 0241 04340801
438: 20240 IVFAIL = IVFAIL + 1 04350801
439: DVCORR = -10.0D0 04360801
440: WRITE (NUVI, 80031) IVTNUM, DNAVD, DVCORR 04370801
441: 0241 CONTINUE 04380801
442: CT025* TEST 25 A NEGATIVE VALUE WITH FRACTIONAL COMPONENT 0.5 04390801
443: IVTNUM = 25 04400801
444: DNBVD = FLOAT(-15) - FLOAT(1) / FLOAT(2) 04410801
445: DNAVD = DNINT(DNBVD) 04420801
446: IF (DNAVD + 16.00000001D0) 20250, 10250, 40250 04430801
447: 40250 IF (DNAVD + 15.99999999D0) 10250, 10250, 20250 04440801
448: 10250 IVPASS = IVPASS + 1 04450801
449: WRITE (NUVI, 80002) IVTNUM 04460801
450: GO TO 0251 04470801
451: 20250 IVFAIL = IVFAIL + 1 04480801
452: DVCORR = -16.0D0 04490801
453: WRITE (NUVI, 80031) IVTNUM, DNAVD, DVCORR 04500801
454: 0251 CONTINUE 04510801
455: CT026* TEST 26 A NEGATIVE VALUE WITH MAGNITUDE IN (X+.5,X+1) 04520801
456: IVTNUM = 26 04530801
457: DNBVD = -27.96875D0 04540801
458: DNAVD = DNINT(DNBVD) 04550801
459: IF (DNAVD + 28.00000002D0) 20260, 10260, 40260 04560801
460: 40260 IF (DNAVD + 27.99999998D0) 10260, 10260, 20260 04570801
461: 10260 IVPASS = IVPASS + 1 04580801
462: WRITE (NUVI, 80002) IVTNUM 04590801
463: GO TO 0261 04600801
464: 20260 IVFAIL = IVFAIL + 1 04610801
465: DVCORR = -28.0D0 04620801
466: WRITE (NUVI, 80031) IVTNUM, DNAVD, DVCORR 04630801
467: 0261 CONTINUE 04640801
468: CT027* TEST 27 ZERO PREFIXED WITH A MINUS SIGN 04650801
469: IVTNUM = 27 04660801
470: DNBVD = 0.0D0 04670801
471: DNAVD = DNINT(-DNBVD) 04680801
472: IF (DNAVD + 5.0D-10) 20270, 10270, 40270 04690801
473: 40270 IF (DNAVD - 5.0D-10) 10270, 10270, 20270 04700801
474: 10270 IVPASS = IVPASS + 1 04710801
475: WRITE (NUVI, 80002) IVTNUM 04720801
476: GO TO 0271 04730801
477: 20270 IVFAIL = IVFAIL + 1 04740801
478: DVCORR = 0.0D0 04750801
479: WRITE (NUVI, 80031) IVTNUM, DNAVD, DVCORR 04760801
480: 0271 CONTINUE 04770801
481: CT028* TEST 28 AN ARITHMETIC EXPRESSION PRESENTED TO FUNCTION 04780801
482: IVTNUM = 28 04790801
483: DNBVD = 8.00D0 04800801
484: DNDVD = 7.25D0 04810801
485: DNAVD = DNINT(DNBVD - DNDVD) 04820801
486: IF (DNAVD - 0.9999999995D0) 20280, 10280, 40280 04830801
487: 40280 IF (DNAVD - 1.000000001D0) 10280, 10280, 20280 04840801
488: 10280 IVPASS = IVPASS + 1 04850801
489: WRITE (NUVI, 80002) IVTNUM 04860801
490: GO TO 0281 04870801
491: 20280 IVFAIL = IVFAIL + 1 04880801
492: DVCORR = 1.0D0 04890801
493: WRITE (NUVI, 80031) IVTNUM, DNAVD, DVCORR 04900801
494: 0281 CONTINUE 04910801
495: C***** 04920801
496: WRITE (NUVI, 90002) 04930801
497: WRITE (NUVI, 90013) 04940801
498: WRITE (NUVI, 90014) 04950801
499: C***** 04960801
500: C***** TEST OF IDNINT 04970801
501: C***** 04980801
502: C***** 04990801
503: WRITE(NUVI, 15506) 05000801
504: 15506 FORMAT( // 8X, 14HTEST OF IDNINT) 05010801
505: CT029* TEST 29 THE VALUE ZERO 05020801
506: IVTNUM = 29 05030801
507: DNBVD = 0.0D0 05040801
508: INAVI = IDNINT(DNBVD) 05050801
509: IF (INAVI - 0) 20290, 10290, 20290 05060801
510: 10290 IVPASS = IVPASS + 1 05070801
511: WRITE (NUVI, 80002) IVTNUM 05080801
512: GO TO 0291 05090801
513: 20290 IVFAIL = IVFAIL + 1 05100801
514: IVCORR = 0 05110801
515: WRITE (NUVI, 80010) IVTNUM, INAVI, IVCORR 05120801
516: 0291 CONTINUE 05130801
517: CT030* TEST 30 A VALUE IN (0.,5) 05140801
518: IVTNUM = 30 05150801
519: DNBVD = 0.25D0 05160801
520: INAVI = IDNINT(DNBVD) 05170801
521: IF (INAVI - 0) 20300, 10300, 20300 05180801
522: 10300 IVPASS = IVPASS + 1 05190801
523: WRITE (NUVI, 80002) IVTNUM 05200801
524: GO TO 0301 05210801
525: 20300 IVFAIL = IVFAIL + 1 05220801
526: IVCORR = 0 05230801
527: WRITE (NUVI, 80010) IVTNUM, INAVI, IVCORR 05240801
528: 0301 CONTINUE 05250801
529: CT031* TEST 31 THE VALUE 0.5 05260801
530: IVTNUM = 31 05270801
531: DNBVD = FLOAT(1) / FLOAT(2) 05280801
532: INAVI = IDNINT(DNBVD) 05290801
533: IF (INAVI - 1) 20310, 10310, 20310 05300801
534: 10310 IVPASS = IVPASS + 1 05310801
535: WRITE (NUVI, 80002) IVTNUM 05320801
536: GO TO 0311 05330801
537: 20310 IVFAIL = IVFAIL + 1 05340801
538: IVCORR = 1 05350801
539: WRITE (NUVI, 80010) IVTNUM, INAVI, IVCORR 05360801
540: 0311 CONTINUE 05370801
541: CT032* TEST 32 A VALUE IN (.5,1) 05380801
542: IVTNUM = 32 05390801
543: DNBVD = 0.75D0 05400801
544: INAVI = IDNINT(DNBVD) 05410801
545: IF (INAVI - 1) 20320, 10320, 20320 05420801
546: 10320 IVPASS = IVPASS + 1 05430801
547: WRITE (NUVI, 80002) IVTNUM 05440801
548: GO TO 0321 05450801
549: 20320 IVFAIL = IVFAIL + 1 05460801
550: IVCORR = 1 05470801
551: WRITE (NUVI, 80010) IVTNUM, INAVI, IVCORR 05480801
552: 0321 CONTINUE 05490801
553: CT033* TEST 33 AN INTEGRAL VALUE OTHER THAN 0, 1 05500801
554: IVTNUM = 33 05510801
555: DNBVD = FLOAT(5) 05520801
556: INAVI = IDNINT(DNBVD) 05530801
557: IF (INAVI - 5) 20330, 10330, 20330 05540801
558: 10330 IVPASS = IVPASS + 1 05550801
559: WRITE (NUVI, 80002) IVTNUM 05560801
560: GO TO 0331 05570801
561: 20330 IVFAIL = IVFAIL + 1 05580801
562: IVCORR = 5 05590801
563: WRITE (NUVI, 80010) IVTNUM, INAVI, IVCORR 05600801
564: 0331 CONTINUE 05610801
565: CT034* TEST 34 A VALUE IN (X,X+.5) 05620801
566: IVTNUM = 34 05630801
567: DNBVD = 10.46875D0 05640801
568: INAVI = IDNINT(DNBVD) 05650801
569: IF (INAVI - 10) 20340, 10340, 20340 05660801
570: 10340 IVPASS = IVPASS + 1 05670801
571: WRITE (NUVI, 80002) IVTNUM 05680801
572: GO TO 0341 05690801
573: 20340 IVFAIL = IVFAIL + 1 05700801
574: IVCORR = 10 05710801
575: WRITE (NUVI, 80010) IVTNUM, INAVI, IVCORR 05720801
576: 0341 CONTINUE 05730801
577: CT035* TEST 35 A VALUE WITH FRACTIONAL COMPONENT 0.5 05740801
578: IVTNUM = 35 05750801
579: DNBVD = FLOAT(15) + FLOAT(1) / FLOAT(2) 05760801
580: INAVI = IDNINT(DNBVD) 05770801
581: IF (INAVI - 16) 20350, 10350, 20350 05780801
582: 10350 IVPASS = IVPASS + 1 05790801
583: WRITE (NUVI, 80002) IVTNUM 05800801
584: GO TO 0351 05810801
585: 20350 IVFAIL = IVFAIL + 1 05820801
586: IVCORR = 16 05830801
587: WRITE (NUVI, 80010) IVTNUM, INAVI, IVCORR 05840801
588: 0351 CONTINUE 05850801
589: CT036* TEST 36 A VALUE IN (X+.5,X+1) 05860801
590: IVTNUM = 36 05870801
591: DNBVD = 27.96875D0 05880801
592: INAVI = IDNINT(DNBVD) 05890801
593: IF (INAVI - 28) 20360, 10360, 20360 05900801
594: 10360 IVPASS = IVPASS + 1 05910801
595: WRITE (NUVI, 80002) IVTNUM 05920801
596: GO TO 0361 05930801
597: 20360 IVFAIL = IVFAIL + 1 05940801
598: IVCORR = 28 05950801
599: WRITE (NUVI, 80010) IVTNUM, INAVI, IVCORR 05960801
600: 0361 CONTINUE 05970801
601: CT037* TEST 37 A NEGATIVE VALUE WITH MAGNITUDE IN (0,.5) 05980801
602: IVTNUM = 37 05990801
603: DNBVD = -0.25D0 06000801
604: INAVI = IDNINT(DNBVD) 06010801
605: IF (INAVI - 0) 20370, 10370, 20370 06020801
606: 10370 IVPASS = IVPASS + 1 06030801
607: WRITE (NUVI, 80002) IVTNUM 06040801
608: GO TO 0371 06050801
609: 20370 IVFAIL = IVFAIL + 1 06060801
610: IVCORR = 0 06070801
611: WRITE (NUVI, 80010) IVTNUM, INAVI, IVCORR 06080801
612: 0371 CONTINUE 06090801
613: CT038* TEST 38 THE VALUE -0.5 06100801
614: IVTNUM = 38 06110801
615: DNBVD = -FLOAT(1) / FLOAT(2) 06120801
616: INAVI = IDNINT(DNBVD) 06130801
617: IF (INAVI + 1) 20380, 10380, 20380 06140801
618: 10380 IVPASS = IVPASS + 1 06150801
619: WRITE (NUVI, 80002) IVTNUM 06160801
620: GO TO 0381 06170801
621: 20380 IVFAIL = IVFAIL + 1 06180801
622: IVCORR = -1 06190801
623: WRITE (NUVI, 80010) IVTNUM, INAVI, IVCORR 06200801
624: 0381 CONTINUE 06210801
625: CT039* TEST 39 A NEGATIVE VALUE WITH MAGNITUDE IN (.5,1) 06220801
626: IVTNUM = 39 06230801
627: DNBVD = -0.75D0 06240801
628: INAVI = IDNINT(DNBVD) 06250801
629: IF (INAVI + 1) 20390, 10390, 20390 06260801
630: 10390 IVPASS = IVPASS + 1 06270801
631: WRITE (NUVI, 80002) IVTNUM 06280801
632: GO TO 0391 06290801
633: 20390 IVFAIL = IVFAIL + 1 06300801
634: IVCORR = -1 06310801
635: WRITE (NUVI, 80010) IVTNUM, INAVI, IVCORR 06320801
636: 0391 CONTINUE 06330801
637: CT040* TEST 40 A NEGATIVE INTEGRAL VALUE 06340801
638: IVTNUM = 40 06350801
639: DNBVD = -FLOAT(5) 06360801
640: INAVI = IDNINT(DNBVD) 06370801
641: IF (INAVI + 5) 20400, 10400, 20400 06380801
642: 10400 IVPASS = IVPASS + 1 06390801
643: WRITE (NUVI, 80002) IVTNUM 06400801
644: GO TO 0401 06410801
645: 20400 IVFAIL = IVFAIL + 1 06420801
646: IVCORR = -5 06430801
647: WRITE (NUVI, 80010) IVTNUM, INAVI, IVCORR 06440801
648: 0401 CONTINUE 06450801
649: CT041* TEST 41 A NEGATIVE VALUE WITH MAGNITUDE IN (X,X+.5) 06460801
650: IVTNUM = 41 06470801
651: DNBVD = -10.46875D0 06480801
652: INAVI = IDNINT(DNBVD) 06490801
653: IF (INAVI + 10) 20410, 10410, 20410 06500801
654: 10410 IVPASS = IVPASS + 1 06510801
655: WRITE (NUVI, 80002) IVTNUM 06520801
656: GO TO 0411 06530801
657: 20410 IVFAIL = IVFAIL + 1 06540801
658: IVCORR = -10 06550801
659: WRITE (NUVI, 80010) IVTNUM, INAVI, IVCORR 06560801
660: 0411 CONTINUE 06570801
661: CT042* TEST 42 A NEGATIVE VALUE WITH FRACTIONAL COMPONENT 0.5 06580801
662: IVTNUM = 42 06590801
663: DNBVD = FLOAT(-15) - FLOAT(1) /FLOAT(2) 06600801
664: INAVI = IDNINT(DNBVD) 06610801
665: IF (INAVI + 16) 20420, 10420, 20420 06620801
666: 10420 IVPASS = IVPASS + 1 06630801
667: WRITE (NUVI, 80002) IVTNUM 06640801
668: GO TO 0421 06650801
669: 20420 IVFAIL = IVFAIL + 1 06660801
670: IVCORR = -16 06670801
671: WRITE (NUVI, 80010) IVTNUM, INAVI, IVCORR 06680801
672: 0421 CONTINUE 06690801
673: CT043* TEST 43 A NEGATIVE VALUE WITH MAGNITUDE IN (X+.5,X+1) 06700801
674: IVTNUM = 43 06710801
675: DNBVD = -27.96875D0 06720801
676: INAVI = IDNINT(DNBVD) 06730801
677: IF (INAVI + 28) 20430, 10430, 20430 06740801
678: 10430 IVPASS = IVPASS + 1 06750801
679: WRITE (NUVI, 80002) IVTNUM 06760801
680: GO TO 0431 06770801
681: 20430 IVFAIL = IVFAIL + 1 06780801
682: IVCORR = -28 06790801
683: WRITE (NUVI, 80010) IVTNUM, INAVI, IVCORR 06800801
684: 0431 CONTINUE 06810801
685: CT044* TEST 44 ZERO PREFIXED WITH A MINUS SIGN 06820801
686: IVTNUM = 44 06830801
687: DNBVD = 0.0D0 06840801
688: INAVI = IDNINT(-DNBVD) 06850801
689: IF (INAVI - 0) 20440, 10440, 20440 06860801
690: 10440 IVPASS = IVPASS + 1 06870801
691: WRITE (NUVI, 80002) IVTNUM 06880801
692: GO TO 0441 06890801
693: 20440 IVFAIL = IVFAIL + 1 06900801
694: IVCORR = 0 06910801
695: WRITE (NUVI, 80010) IVTNUM, INAVI, IVCORR 06920801
696: 0441 CONTINUE 06930801
697: CT045* TEST 45 AN ARITHMETIC EXPRESSION PRESENTED TO FUNCTION 06940801
698: IVTNUM = 45 06950801
699: DNBVD = 8.00D0 06960801
700: DNDVD = 7.25D0 06970801
701: INAVI = IDNINT(DNBVD - DNDVD) 06980801
702: IF (INAVI - 1) 20450, 10450, 20450 06990801
703: 10450 IVPASS = IVPASS + 1 07000801
704: WRITE (NUVI, 80002) IVTNUM 07010801
705: GO TO 0451 07020801
706: 20450 IVFAIL = IVFAIL + 1 07030801
707: IVCORR = 1 07040801
708: WRITE (NUVI, 80010) IVTNUM, INAVI, IVCORR 07050801
709: 0451 CONTINUE 07060801
710: C***** 07070801
711: CBB** ********************** BBCSUM0 **********************************07080801
712: C**** WRITE OUT TEST SUMMARY 07090801
713: C**** 07100801
714: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 07110801
715: WRITE (I02, 90004) 07120801
716: WRITE (I02, 90014) 07130801
717: WRITE (I02, 90004) 07140801
718: WRITE (I02, 90020) IVPASS 07150801
719: WRITE (I02, 90022) IVFAIL 07160801
720: WRITE (I02, 90024) IVDELE 07170801
721: WRITE (I02, 90026) IVINSP 07180801
722: WRITE (I02, 90028) IVTOTN, IVTOTL 07190801
723: CBE** ********************** BBCSUM0 **********************************07200801
724: CBB** ********************** BBCFOOT0 **********************************07210801
725: C**** WRITE OUT REPORT FOOTINGS 07220801
726: C**** 07230801
727: WRITE (I02,90016) ZPROG, ZPROG 07240801
728: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 07250801
729: WRITE (I02,90019) 07260801
730: CBE** ********************** BBCFOOT0 **********************************07270801
731: CBB** ********************** BBCFMT0A **********************************07280801
732: C**** FORMATS FOR TEST DETAIL LINES 07290801
733: C**** 07300801
734: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 07310801
735: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 07320801
736: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 07330801
737: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 07340801
738: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 07350801
739: 1I6,/,1H ,15X,10HCORRECT= ,I6) 07360801
740: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 07370801
741: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 07380801
742: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 07390801
743: 1A21,/,1H ,16X,10HCORRECT= ,A21) 07400801
744: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 07410801
745: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 07420801
746: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 07430801
747: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 07440801
748: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 07450801
749: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 07460801
750: 80050 FORMAT (1H ,48X,A31) 07470801
751: CBE** ********************** BBCFMT0A **********************************07480801
752: CBB** ********************** BBCFMAT1 **********************************07490801
753: C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 07500801
754: C**** 07510801
755: 80031 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 07520801
756: 1D17.10,/,1H ,16X,10HCORRECT= ,D17.10) 07530801
757: 80033 FORMAT (1H ,16X,10HCOMPUTED= ,D17.10,10X,A31) 07540801
758: 80035 FORMAT (1H ,16X,10HCORRECT= ,D17.10,10X,A31) 07550801
759: 80037 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 07560801
760: 80039 FORMAT (1H ,16X,10HCORRECT= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 07570801
761: 80041 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 07580801
762: 80043 FORMAT (1H ,16X,10HCORRECT= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 07590801
763: 80045 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 07600801
764: 11H(,F12.5,2H, ,F12.5,1H)/,1H ,16X,10HCORRECT= , 07610801
765: 21H(,F12.5,2H, ,F12.5,1H)) 07620801
766: CBE** ********************** BBCFMAT1 **********************************07630801
767: CBB** ********************** BBCFMT0B **********************************07640801
768: C**** FORMAT STATEMENTS FOR PAGE HEADERS 07650801
769: C**** 07660801
770: 90002 FORMAT (1H1) 07670801
771: 90004 FORMAT (1H ) 07680801
772: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 07690801
773: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 07700801
774: 90008 FORMAT (1H ,21X,A13,A17) 07710801
775: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 07720801
776: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 07730801
777: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 07740801
778: 1 7X,7HREMARKS,24X) 07750801
779: 90014 FORMAT (1H ,46H----------------------------------------------, 07760801
780: 1 33H---------------------------------) 07770801
781: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 07780801
782: C**** 07790801
783: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 07800801
784: C**** 07810801
785: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 07820801
786: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 07830801
787: 1 A13) 07840801
788: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 07850801
789: C**** 07860801
790: C**** FORMAT STATEMENTS FOR RUN SUMMARY 07870801
791: C**** 07880801
792: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 07890801
793: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 07900801
794: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 07910801
795: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 07920801
796: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 07930801
797: CBE** ********************** BBCFMT0B **********************************07940801
798: C***** 07950801
799: C***** END OF TEST SEGMENT 155 07960801
800: STOP 07970801
801: END 07980801
802: 07990801
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.