![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM021.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 FM021.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 00010021
2: C DATE***82/08/02*18.33.46
3: C OWNER PRE/850703/TC-85- -410/ /FSTC/278FCVS*F78UBP20/
4: C AUDIT FCVS78 V2.0
5: C COMMENT SECTION. 00020021
6: C 00030021
7: C FM021 00040021
8: C 00050021
9: C THIS ROUTINE TESTS THE FORTRAN DATA INITIALIZATION 00060021
10: C STATEMENT. INTEGER, REAL, AND LOGICAL DATA TYPES ARE TESTED 00070021
11: C USING UNSIGNED CONSTANTS, SIGNED CONSTANTS, AND LOGICAL 00080021
12: C CONSTANTS.. INTEGER, REAL, LOGICAL, AND MIXED TYPE ARRAYS 00090021
13: C ARE ALSO TESTED. 00100021
14: C 00110021
15: C REFERENCES 00120021
16: C AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN, 00130021
17: C X3.9-1978 00140021
18: C 00150021
19: C SECTION 4.1.3, DATA TYPE PREPARATION 00160021
20: C SECTION 4.4.3, REAL CONSTANT 00170021
21: C SECTION 9, DATA STATEMENT 00180021
22: C 00190021
23: INTEGER RATN11(3) 00200021
24: LOGICAL LCTN01, LCTN02, LATN11(3), LADN11 00210021
25: REAL IATN11(3) 00220021
26: DIMENSION IADN11(3), RADN11(4), LADN11(6), RADN13(4), IADN12(4) 00230021
27: DIMENSION IADN13(4) 00240021
28: C 00250021
29: DATA ICON01/0/ 00260021
30: DATA ICON02/3/ 00270021
31: DATA ICON03/76/ 00280021
32: DATA ICON04/587/ 00290021
33: DATA ICON05/9999/ 00300021
34: DATA ICON06/32767/ 00310021
35: DATA ICON07/-0/ 00320021
36: DATA ICON08/-32766/ 00330021
37: DATA ICON09/00003/ 00340021
38: DATA ICON10/ 3 2 7 6 7 / 00350021
39: DATA LCTN01/.TRUE./ 00360021
40: DATA LCTN02/.FALSE./ 00370021
41: DATA RCON01/0./ 00380021
42: DATA RCON02 /.0/ 00390021
43: DATA RCON03/0.0/ 00400021
44: DATA RCON04/32767./ 00410021
45: DATA RCON05/-32766./ 00420021
46: DATA RCON06/-000587./ 00430021
47: DATA RCON07/99.99/ 00440021
48: DATA RCON08/ -03. 2 7 6 6/ 00450021
49: DATA IADN11(1)/3/, IADN11(3)/-587/, IADN11(2)/32767/ 00460021
50: DATA IADN12/4*9999/ 00470021
51: DATA IADN13/0,2*-32766,-587/ 00480021
52: DATA LADN11/.TRUE., .FALSE., 2*.TRUE., 2*.FALSE./ 00490021
53: DATA RADN11/32767., -32.766, 2*587./ 00500021
54: DATA LATN11/.TRUE., 2*.FALSE./, IATN11/2*32767., -32766./ 00510021
55: DATA RATN11/3*-32766/ 00520021
56: DATA RADN13/32.767E03, -3.2766E-01, .587E+03, 9E1/ 00530021
57: C 00540021
58: C 00550021
59: C ********************************************************** 00560021
60: C 00570021
61: C A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE 00580021
62: C BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN NATIONAL STANDARD 00590021
63: C PROGRAMMING LANGUAGE FORTRAN X3.9-1978, HAS BEEN DEVELOPED BY THE 00600021
64: C FEDERAL COBOL COMPILER TESTING SERVICE. THE FORTRAN COMPILER 00610021
65: C VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT ROUTINES, THEIR RELATED00620021
66: C DATA, AND AN EXECUTIVE SYSTEM. EACH AUDIT ROUTINE IS A FORTRAN 00630021
67: C PROGRAM, SUBPROGRAM OR FUNCTION WHICH INCLUDES TESTS OF SPECIFIC 00640021
68: C LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING THE RESULT 00650021
69: C OF EXECUTING THESE TESTS. 00660021
70: C 00670021
71: C THIS PARTICULAR PROGRAM/SUBPROGRAM/FUNCTION CONTAINS FEATURES 00680021
72: C FOUND ONLY IN THE SUBSET AS DEFINED IN X3.9-1978. 00690021
73: C 00700021
74: C SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO - 00710021
75: C 00720021
76: C DEPARTMENT OF THE NAVY 00730021
77: C FEDERAL COBOL COMPILER TESTING SERVICE 00740021
78: C WASHINGTON, D.C. 20376 00750021
79: C 00760021
80: C ********************************************************** 00770021
81: C 00780021
82: C 00790021
83: C 00800021
84: C INITIALIZATION SECTION 00810021
85: C 00820021
86: C INITIALIZE CONSTANTS 00830021
87: C ************** 00840021
88: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00850021
89: I01 = 5 00860021
90: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00870021
91: I02 = 6 00880021
92: C SYSTEM ENVIRONMENT SECTION 00890021
93: C 00900021
94: I01 = 5 00910021
95: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00920021
96: C (UNIT NUMBER FOR CARD READER). 00930021
97: CX011 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD. 00940021
98: C THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00950021
99: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE. 00960021
100: C 00970021
101: I02 = 6 00980021
102: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6 00990021
103: C (UNIT NUMBER FOR PRINTER). 01000021
104: CX021 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD. 01010021
105: C THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 01020021
106: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE. 01030021
107: C 01040021
108: IVPASS=0 01050021
109: IVFAIL=0 01060021
110: IVDELE=0 01070021
111: ICZERO=0 01080021
112: C 01090021
113: C WRITE PAGE HEADERS 01100021
114: WRITE (I02,90000) 01110021
115: WRITE (I02,90001) 01120021
116: WRITE (I02,90002) 01130021
117: WRITE (I02, 90002) 01140021
118: WRITE (I02,90003) 01150021
119: WRITE (I02,90002) 01160021
120: WRITE (I02,90004) 01170021
121: WRITE (I02,90002) 01180021
122: WRITE (I02,90011) 01190021
123: WRITE (I02,90002) 01200021
124: WRITE (I02,90002) 01210021
125: WRITE (I02,90005) 01220021
126: WRITE (I02,90006) 01230021
127: WRITE (I02,90002) 01240021
128: IVTNUM = 565 01250021
129: C 01260021
130: C **** TEST 565 **** 01270021
131: C TEST 565 - TEST OF AN INTEGER VARIABLE SET TO THE INTEGER 01280021
132: C CONSTANT ZERO. 01290021
133: C 01300021
134: C 01310021
135: IF (ICZERO) 35650, 5650, 35650 01320021
136: 5650 CONTINUE 01330021
137: GO TO 45650 01340021
138: 35650 IVDELE = IVDELE + 1 01350021
139: WRITE (I02,80003) IVTNUM 01360021
140: IF (ICZERO) 45650, 5661, 45650 01370021
141: 45650 IF ( ICON01 - 0 ) 25650, 15650, 25650 01380021
142: 15650 IVPASS = IVPASS + 1 01390021
143: WRITE (I02,80001) IVTNUM 01400021
144: GO TO 5661 01410021
145: 25650 IVFAIL = IVFAIL + 1 01420021
146: IVCOMP = ICON01 01430021
147: IVCORR = 0 01440021
148: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01450021
149: 5661 CONTINUE 01460021
150: IVTNUM = 566 01470021
151: C 01480021
152: C **** TEST 566 **** 01490021
153: C TEST 566 - TEST OF AN INTEGER VARIABLE SET TO THE INTEGER 01500021
154: C CONSTANT 3. 01510021
155: C 01520021
156: C 01530021
157: IF (ICZERO) 35660, 5660, 35660 01540021
158: 5660 CONTINUE 01550021
159: GO TO 45660 01560021
160: 35660 IVDELE = IVDELE + 1 01570021
161: WRITE (I02,80003) IVTNUM 01580021
162: IF (ICZERO) 45660, 5671, 45660 01590021
163: 45660 IF ( ICON02 - 3 ) 25660, 15660, 25660 01600021
164: 15660 IVPASS = IVPASS + 1 01610021
165: WRITE (I02,80001) IVTNUM 01620021
166: GO TO 5671 01630021
167: 25660 IVFAIL = IVFAIL + 1 01640021
168: IVCOMP = ICON02 01650021
169: IVCORR = 3 01660021
170: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01670021
171: 5671 CONTINUE 01680021
172: IVTNUM = 567 01690021
173: C 01700021
174: C **** TEST 567 **** 01710021
175: C TEST 567 - TEST OF AN INTEGER VARIABLE SET TO THE INTEGER 01720021
176: C CONSTANT 76. 01730021
177: C 01740021
178: C 01750021
179: IF (ICZERO) 35670, 5670, 35670 01760021
180: 5670 CONTINUE 01770021
181: GO TO 45670 01780021
182: 35670 IVDELE = IVDELE + 1 01790021
183: WRITE (I02,80003) IVTNUM 01800021
184: IF (ICZERO) 45670, 5681, 45670 01810021
185: 45670 IF ( ICON03 - 76 ) 25670, 15670, 25670 01820021
186: 15670 IVPASS = IVPASS + 1 01830021
187: WRITE (I02,80001) IVTNUM 01840021
188: GO TO 5681 01850021
189: 25670 IVFAIL = IVFAIL + 1 01860021
190: IVCOMP = ICON03 01870021
191: IVCORR = 76 01880021
192: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 01890021
193: 5681 CONTINUE 01900021
194: IVTNUM = 568 01910021
195: C 01920021
196: C **** TEST 568 **** 01930021
197: C TEST 568 - TEST OF AN INTEGER VARIABLE SET TO THE INTEGER 01940021
198: C CONSTANT 587. 01950021
199: C 01960021
200: C 01970021
201: IF (ICZERO) 35680, 5680, 35680 01980021
202: 5680 CONTINUE 01990021
203: GO TO 45680 02000021
204: 35680 IVDELE = IVDELE + 1 02010021
205: WRITE (I02,80003) IVTNUM 02020021
206: IF (ICZERO) 45680, 5691, 45680 02030021
207: 45680 IF ( ICON04 - 587 ) 25680, 15680, 25680 02040021
208: 15680 IVPASS = IVPASS + 1 02050021
209: WRITE (I02,80001) IVTNUM 02060021
210: GO TO 5691 02070021
211: 25680 IVFAIL = IVFAIL + 1 02080021
212: IVCOMP = ICON04 02090021
213: IVCORR = 587 02100021
214: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02110021
215: 5691 CONTINUE 02120021
216: IVTNUM = 569 02130021
217: C 02140021
218: C **** TEST 569 **** 02150021
219: C TEST 569 - TEST OF AN INTEGER VARIABLE SET TO THE INTEGER 02160021
220: C CONSTANT 9999. 02170021
221: C 02180021
222: C 02190021
223: IF (ICZERO) 35690, 5690, 35690 02200021
224: 5690 CONTINUE 02210021
225: GO TO 45690 02220021
226: 35690 IVDELE = IVDELE + 1 02230021
227: WRITE (I02,80003) IVTNUM 02240021
228: IF (ICZERO) 45690, 5701, 45690 02250021
229: 45690 IF ( ICON05 - 9999 ) 25690, 15690, 25690 02260021
230: 15690 IVPASS = IVPASS + 1 02270021
231: WRITE (I02,80001) IVTNUM 02280021
232: GO TO 5701 02290021
233: 25690 IVFAIL = IVFAIL + 1 02300021
234: IVCOMP = ICON05 02310021
235: IVCORR = 9999 02320021
236: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02330021
237: 5701 CONTINUE 02340021
238: IVTNUM = 570 02350021
239: C 02360021
240: C **** TEST 570 **** 02370021
241: C TEST 570 - TEST OF AN INTEGER VARIABLE SET TO THE INTEGER 02380021
242: C CONSTANT 32767. 02390021
243: C 02400021
244: C 02410021
245: IF (ICZERO) 35700, 5700, 35700 02420021
246: 5700 CONTINUE 02430021
247: GO TO 45700 02440021
248: 35700 IVDELE = IVDELE + 1 02450021
249: WRITE (I02,80003) IVTNUM 02460021
250: IF (ICZERO) 45700, 5711, 45700 02470021
251: 45700 IF ( ICON06 - 32767 ) 25700, 15700, 25700 02480021
252: 15700 IVPASS = IVPASS + 1 02490021
253: WRITE (I02,80001) IVTNUM 02500021
254: GO TO 5711 02510021
255: 25700 IVFAIL = IVFAIL + 1 02520021
256: IVCOMP = ICON06 02530021
257: IVCORR = 32767 02540021
258: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02550021
259: 5711 CONTINUE 02560021
260: IVTNUM = 571 02570021
261: C 02580021
262: C **** TEST 571 **** 02590021
263: C TEST 571 - TEST OF AN INTEGER VARIABLE SET TO THE INTEGER 02600021
264: C CONSTANT -0. NOTE THAT SIGNED ZERO AND UNSIGNED ZERO 02610021
265: C SHOULD BE EQUAL FOR ANY INTEGER OPERATION. 02620021
266: C 02630021
267: C 02640021
268: IF (ICZERO) 35710, 5710, 35710 02650021
269: 5710 CONTINUE 02660021
270: GO TO 45710 02670021
271: 35710 IVDELE = IVDELE + 1 02680021
272: WRITE (I02,80003) IVTNUM 02690021
273: IF (ICZERO) 45710, 5721, 45710 02700021
274: 45710 IF ( ICON07 - 0 ) 25710, 15710, 25710 02710021
275: 15710 IVPASS = IVPASS + 1 02720021
276: WRITE (I02,80001) IVTNUM 02730021
277: GO TO 5721 02740021
278: 25710 IVFAIL = IVFAIL + 1 02750021
279: IVCOMP = ICON07 02760021
280: IVCORR = -0 02770021
281: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 02780021
282: 5721 CONTINUE 02790021
283: IVTNUM = 572 02800021
284: C 02810021
285: C **** TEST 572 **** 02820021
286: C TEST 572 - TEST OF AN INTEGER VARIABLE SET TO THE INTEGER 02830021
287: C CONSTANT (SIGNED) -32766. 02840021
288: C 02850021
289: C 02860021
290: IF (ICZERO) 35720, 5720, 35720 02870021
291: 5720 CONTINUE 02880021
292: GO TO 45720 02890021
293: 35720 IVDELE = IVDELE + 1 02900021
294: WRITE (I02,80003) IVTNUM 02910021
295: IF (ICZERO) 45720, 5731, 45720 02920021
296: 45720 IF ( ICON08 + 32766 ) 25720, 15720, 25720 02930021
297: 15720 IVPASS = IVPASS + 1 02940021
298: WRITE (I02,80001) IVTNUM 02950021
299: GO TO 5731 02960021
300: 25720 IVFAIL = IVFAIL + 1 02970021
301: IVCOMP = ICON08 02980021
302: IVCORR = -32766 02990021
303: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03000021
304: 5731 CONTINUE 03010021
305: IVTNUM = 573 03020021
306: C 03030021
307: C **** TEST 573 **** 03040021
308: C TEST 573 - TEST THE EFFECT OF LEADING ZERO ON AN INTEGER 03050021
309: C CONSTANT 00003. 03060021
310: C 03070021
311: C 03080021
312: IF (ICZERO) 35730, 5730, 35730 03090021
313: 5730 CONTINUE 03100021
314: GO TO 45730 03110021
315: 35730 IVDELE = IVDELE + 1 03120021
316: WRITE (I02,80003) IVTNUM 03130021
317: IF (ICZERO) 45730, 5741, 45730 03140021
318: 45730 IF ( ICON09 - 3 ) 25730, 15730, 25730 03150021
319: 15730 IVPASS = IVPASS + 1 03160021
320: WRITE (I02,80001) IVTNUM 03170021
321: GO TO 5741 03180021
322: 25730 IVFAIL = IVFAIL + 1 03190021
323: IVCOMP = ICON09 03200021
324: IVCORR = 3 03210021
325: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03220021
326: 5741 CONTINUE 03230021
327: IVTNUM = 574 03240021
328: C 03250021
329: C **** TEST 574 **** 03260021
330: C TEST 574 - TEST OF BLANKS IMBEDDED IN AN INTEGER CONSTANT 03270021
331: C WHICH WAS / 3 2 7 6 7/ IN THE DATA INITIALIZATION STATEMENT. 03280021
332: C 03290021
333: C 03300021
334: IF (ICZERO) 35740, 5740, 35740 03310021
335: 5740 CONTINUE 03320021
336: GO TO 45740 03330021
337: 35740 IVDELE = IVDELE + 1 03340021
338: WRITE (I02,80003) IVTNUM 03350021
339: IF (ICZERO) 45740, 5751, 45740 03360021
340: 45740 IF ( ICON10 - 32767 ) 25740, 15740, 25740 03370021
341: 15740 IVPASS = IVPASS + 1 03380021
342: WRITE (I02,80001) IVTNUM 03390021
343: GO TO 5751 03400021
344: 25740 IVFAIL = IVFAIL + 1 03410021
345: IVCOMP = ICON10 03420021
346: IVCORR = 32767 03430021
347: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03440021
348: 5751 CONTINUE 03450021
349: IVTNUM = 575 03460021
350: C 03470021
351: C **** TEST 575 **** 03480021
352: C TEST 575 - TEST OF A LOGICAL VARIABLE SET TO THE LOGICAL 03490021
353: C CONSTANT .TRUE. 03500021
354: C TRUE PATH OF A LOGICAL IF STATEMENT IS USED IN THE TEST. 03510021
355: C 03520021
356: C 03530021
357: IF (ICZERO) 35750, 5750, 35750 03540021
358: 5750 CONTINUE 03550021
359: IVON01 = 0 03560021
360: IF ( LCTN01 ) IVON01 = 1 03570021
361: GO TO 45750 03580021
362: 35750 IVDELE = IVDELE + 1 03590021
363: WRITE (I02,80003) IVTNUM 03600021
364: IF (ICZERO) 45750, 5761, 45750 03610021
365: 45750 IF ( IVON01 - 1 ) 25750, 15750, 25750 03620021
366: 15750 IVPASS = IVPASS + 1 03630021
367: WRITE (I02,80001) IVTNUM 03640021
368: GO TO 5761 03650021
369: 25750 IVFAIL = IVFAIL + 1 03660021
370: IVCOMP = IVON01 03670021
371: IVCORR = 1 03680021
372: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03690021
373: 5761 CONTINUE 03700021
374: IVTNUM = 576 03710021
375: C 03720021
376: C **** TEST 576 **** 03730021
377: C TEST 576 - TEST OF A LOGICAL VARIABLE SET TO THE LOGICAL 03740021
378: C CONSTANT .FALSE. THE FALSE PATH OF A LOGICAL IF STATEMENT 03750021
379: C IS ALSO USED IN THE TEST. 03760021
380: C 03770021
381: C 03780021
382: IF (ICZERO) 35760, 5760, 35760 03790021
383: 5760 CONTINUE 03800021
384: IVON01 = 1 03810021
385: IF ( LCTN02 ) IVON01 = 0 03820021
386: GO TO 45760 03830021
387: 35760 IVDELE = IVDELE + 1 03840021
388: WRITE (I02,80003) IVTNUM 03850021
389: IF (ICZERO) 45760, 5771, 45760 03860021
390: 45760 IF ( IVON01 - 1 ) 25760, 15760, 25760 03870021
391: 15760 IVPASS = IVPASS + 1 03880021
392: WRITE (I02,80001) IVTNUM 03890021
393: GO TO 5771 03900021
394: 25760 IVFAIL = IVFAIL + 1 03910021
395: IVCOMP = IVON01 03920021
396: IVCORR = 1 03930021
397: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 03940021
398: 5771 CONTINUE 03950021
399: IVTNUM = 577 03960021
400: C 03970021
401: C **** TEST 577 **** 03980021
402: C TEST 577 - REAL VARIABLE SET TO 0. 03990021
403: C 04000021
404: C 04010021
405: IF (ICZERO) 35770, 5770, 35770 04020021
406: 5770 CONTINUE 04030021
407: GO TO 45770 04040021
408: 35770 IVDELE = IVDELE + 1 04050021
409: WRITE (I02,80003) IVTNUM 04060021
410: IF (ICZERO) 45770, 5781, 45770 04070021
411: 45770 IF ( RCON01 - 0. ) 25770, 15770, 25770 04080021
412: 15770 IVPASS = IVPASS + 1 04090021
413: WRITE (I02,80001) IVTNUM 04100021
414: GO TO 5781 04110021
415: 25770 IVFAIL = IVFAIL + 1 04120021
416: IVCOMP = RCON01 04130021
417: IVCORR = 0 04140021
418: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04150021
419: 5781 CONTINUE 04160021
420: IVTNUM = 578 04170021
421: C 04180021
422: C **** TEST 578 **** 04190021
423: C TEST 578 - REAL VARIABLE SET TO .0 04200021
424: C 04210021
425: C 04220021
426: IF (ICZERO) 35780, 5780, 35780 04230021
427: 5780 CONTINUE 04240021
428: GO TO 45780 04250021
429: 35780 IVDELE = IVDELE + 1 04260021
430: WRITE (I02,80003) IVTNUM 04270021
431: IF (ICZERO) 45780, 5791, 45780 04280021
432: 45780 IF ( RCON02 - .0 ) 25780, 15780, 25780 04290021
433: 15780 IVPASS = IVPASS + 1 04300021
434: WRITE (I02,80001) IVTNUM 04310021
435: GO TO 5791 04320021
436: 25780 IVFAIL = IVFAIL + 1 04330021
437: IVCOMP = RCON02 04340021
438: IVCORR = 0 04350021
439: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04360021
440: 5791 CONTINUE 04370021
441: IVTNUM = 579 04380021
442: C 04390021
443: C **** TEST 579 **** 04400021
444: C TEST 579 - REAL VARIABLE SET TO 0.0 04410021
445: C 04420021
446: C 04430021
447: IF (ICZERO) 35790, 5790, 35790 04440021
448: 5790 CONTINUE 04450021
449: GO TO 45790 04460021
450: 35790 IVDELE = IVDELE + 1 04470021
451: WRITE (I02,80003) IVTNUM 04480021
452: IF (ICZERO) 45790, 5801, 45790 04490021
453: 45790 IF ( RCON03 - 0.0 ) 25790, 15790, 25790 04500021
454: 15790 IVPASS = IVPASS + 1 04510021
455: WRITE (I02,80001) IVTNUM 04520021
456: GO TO 5801 04530021
457: 25790 IVFAIL = IVFAIL + 1 04540021
458: IVCOMP = RCON03 04550021
459: IVCORR = 0 04560021
460: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04570021
461: 5801 CONTINUE 04580021
462: IVTNUM = 580 04590021
463: C 04600021
464: C **** TEST 580 **** 04610021
465: C TEST 580 - REAL VARIABLE SET TO 32767. 04620021
466: C 04630021
467: C 04640021
468: IF (ICZERO) 35800, 5800, 35800 04650021
469: 5800 CONTINUE 04660021
470: GO TO 45800 04670021
471: 35800 IVDELE = IVDELE + 1 04680021
472: WRITE (I02,80003) IVTNUM 04690021
473: IF (ICZERO) 45800, 5811, 45800 04700021
474: 45800 IF ( RCON04 - 32767. ) 25800, 15800, 25800 04710021
475: 15800 IVPASS = IVPASS + 1 04720021
476: WRITE (I02,80001) IVTNUM 04730021
477: GO TO 5811 04740021
478: 25800 IVFAIL = IVFAIL + 1 04750021
479: IVCOMP = RCON04 04760021
480: IVCORR = 32767 04770021
481: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04780021
482: 5811 CONTINUE 04790021
483: IVTNUM = 581 04800021
484: C 04810021
485: C **** TEST 581 **** 04820021
486: C TEST 581 - REAL VARIABLE SET TO -32766. 04830021
487: C 04840021
488: C 04850021
489: IF (ICZERO) 35810, 5810, 35810 04860021
490: 5810 CONTINUE 04870021
491: GO TO 45810 04880021
492: 35810 IVDELE = IVDELE + 1 04890021
493: WRITE (I02,80003) IVTNUM 04900021
494: IF (ICZERO) 45810, 5821, 45810 04910021
495: 45810 IF ( RCON05 + 32766 ) 25810, 15810, 25810 04920021
496: 15810 IVPASS = IVPASS + 1 04930021
497: WRITE (I02,80001) IVTNUM 04940021
498: GO TO 5821 04950021
499: 25810 IVFAIL = IVFAIL + 1 04960021
500: IVCOMP = RCON05 04970021
501: IVCORR = -32766 04980021
502: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 04990021
503: 5821 CONTINUE 05000021
504: IVTNUM = 582 05010021
505: C 05020021
506: C **** TEST 582 **** 05030021
507: C TEST 582 - REAL VARIABLE SET TO -000587. TEST OF LEADING SIGN 05040021
508: C AND LEADING ZEROS ON A REAL CONSTANT. 05050021
509: C 05060021
510: C 05070021
511: IF (ICZERO) 35820, 5820, 35820 05080021
512: 5820 CONTINUE 05090021
513: GO TO 45820 05100021
514: 35820 IVDELE = IVDELE + 1 05110021
515: WRITE (I02,80003) IVTNUM 05120021
516: IF (ICZERO) 45820, 5831, 45820 05130021
517: 45820 IF ( RCON06 + 587. ) 25820, 15820, 25820 05140021
518: 15820 IVPASS = IVPASS + 1 05150021
519: WRITE (I02,80001) IVTNUM 05160021
520: GO TO 5831 05170021
521: 25820 IVFAIL = IVFAIL + 1 05180021
522: IVCOMP = RCON06 05190021
523: IVCORR = -587 05200021
524: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05210021
525: 5831 CONTINUE 05220021
526: IVTNUM = 583 05230021
527: C 05240021
528: C **** TEST 583 **** 05250021
529: C TEST 583 - REAL VARIABLE SET TO 99.99 05260021
530: C 05270021
531: C 05280021
532: IF (ICZERO) 35830, 5830, 35830 05290021
533: 5830 CONTINUE 05300021
534: GO TO 45830 05310021
535: 35830 IVDELE = IVDELE + 1 05320021
536: WRITE (I02,80003) IVTNUM 05330021
537: IF (ICZERO) 45830, 5841, 45830 05340021
538: 45830 IF ( RCON07 - 99.99 ) 25830, 15830, 25830 05350021
539: 15830 IVPASS = IVPASS + 1 05360021
540: WRITE (I02,80001) IVTNUM 05370021
541: GO TO 5841 05380021
542: 25830 IVFAIL = IVFAIL + 1 05390021
543: IVCOMP = RCON07 05400021
544: IVCORR = 99 05410021
545: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05420021
546: 5841 CONTINUE 05430021
547: IVTNUM = 584 05440021
548: C 05450021
549: C **** TEST 584 **** 05460021
550: C TEST 584 - REAL VARIABLE SET TO /-03. 2 7 6 6/ TO TEST 05470021
551: C THE EFFECT OF BLANKS IMBEDDED IN A REAL CONSTANT. 05480021
552: C 05490021
553: C 05500021
554: IF (ICZERO) 35840, 5840, 35840 05510021
555: 5840 CONTINUE 05520021
556: GO TO 45840 05530021
557: 35840 IVDELE = IVDELE + 1 05540021
558: WRITE (I02,80003) IVTNUM 05550021
559: IF (ICZERO) 45840, 5851, 45840 05560021
560: 45840 IF ( RCON08 + 3.2766 ) 25840, 15840, 25840 05570021
561: 15840 IVPASS = IVPASS + 1 05580021
562: WRITE (I02,80001) IVTNUM 05590021
563: GO TO 5851 05600021
564: 25840 IVFAIL = IVFAIL + 1 05610021
565: IVCOMP = RCON08 05620021
566: IVCORR = -3 05630021
567: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05640021
568: 5851 CONTINUE 05650021
569: IVTNUM = 585 05660021
570: C 05670021
571: C **** TEST 585 **** 05680021
572: C TEST 585 - INTEGER ARRAY ELEMENT SET TO 3 05690021
573: C 05700021
574: C 05710021
575: IF (ICZERO) 35850, 5850, 35850 05720021
576: 5850 CONTINUE 05730021
577: GO TO 45850 05740021
578: 35850 IVDELE = IVDELE + 1 05750021
579: WRITE (I02,80003) IVTNUM 05760021
580: IF (ICZERO) 45850, 5861, 45850 05770021
581: 45850 IF ( IADN11(1) - 3 ) 25850, 15850, 25850 05780021
582: 15850 IVPASS = IVPASS + 1 05790021
583: WRITE (I02,80001) IVTNUM 05800021
584: GO TO 5861 05810021
585: 25850 IVFAIL = IVFAIL + 1 05820021
586: IVCOMP = IADN11(1) 05830021
587: IVCORR = 3 05840021
588: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 05850021
589: 5861 CONTINUE 05860021
590: IVTNUM = 586 05870021
591: C 05880021
592: C **** TEST 586 **** 05890021
593: C TEST 586 - INTEGER ARRAY ELEMENT SET TO 32767 05900021
594: C 05910021
595: C 05920021
596: IF (ICZERO) 35860, 5860, 35860 05930021
597: 5860 CONTINUE 05940021
598: GO TO 45860 05950021
599: 35860 IVDELE = IVDELE + 1 05960021
600: WRITE (I02,80003) IVTNUM 05970021
601: IF (ICZERO) 45860, 5871, 45860 05980021
602: 45860 IF ( IADN11(2) - 32767 ) 25860, 15860, 25860 05990021
603: 15860 IVPASS = IVPASS + 1 06000021
604: WRITE (I02,80001) IVTNUM 06010021
605: GO TO 5871 06020021
606: 25860 IVFAIL = IVFAIL + 1 06030021
607: IVCOMP = IADN11(2) 06040021
608: IVCORR = 32767 06050021
609: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06060021
610: 5871 CONTINUE 06070021
611: IVTNUM = 587 06080021
612: C 06090021
613: C **** TEST 587 **** 06100021
614: C TEST 587 - INTEGER ARRAY ELEMENT SET TO -587 06110021
615: C 06120021
616: C 06130021
617: IF (ICZERO) 35870, 5870, 35870 06140021
618: 5870 CONTINUE 06150021
619: GO TO 45870 06160021
620: 35870 IVDELE = IVDELE + 1 06170021
621: WRITE (I02,80003) IVTNUM 06180021
622: IF (ICZERO) 45870, 5881, 45870 06190021
623: 45870 IF ( IADN11(3) + 587 ) 25870, 15870, 25870 06200021
624: 15870 IVPASS = IVPASS + 1 06210021
625: WRITE (I02,80001) IVTNUM 06220021
626: GO TO 5881 06230021
627: 25870 IVFAIL = IVFAIL + 1 06240021
628: IVCOMP = IADN11(3) 06250021
629: IVCORR = -587 06260021
630: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06270021
631: 5881 CONTINUE 06280021
632: IVTNUM = 588 06290021
633: C 06300021
634: C **** TEST 588 **** 06310021
635: C TEST 588 - TEST OF THE REPEAT FIELD /4*999/ IN A DATA STATE. 06320021
636: C 06330021
637: C 06340021
638: IF (ICZERO) 35880, 5880, 35880 06350021
639: 5880 CONTINUE 06360021
640: GO TO 45880 06370021
641: 35880 IVDELE = IVDELE + 1 06380021
642: WRITE (I02,80003) IVTNUM 06390021
643: IF (ICZERO) 45880, 5891, 45880 06400021
644: 45880 IF ( IADN12(3) - 9999 ) 25880, 15880, 25880 06410021
645: 15880 IVPASS = IVPASS + 1 06420021
646: WRITE (I02,80001) IVTNUM 06430021
647: GO TO 5891 06440021
648: 25880 IVFAIL = IVFAIL + 1 06450021
649: IVCOMP = IADN12(3) 06460021
650: IVCORR = 9999 06470021
651: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06480021
652: 5891 CONTINUE 06490021
653: IVTNUM = 589 06500021
654: C 06510021
655: C **** TEST 589 **** 06520021
656: C TEST 589 - TEST OF SETTING THE WHOLE INTEGER ARRAY ELEMENTS 06530021
657: C IN ONE DATA INITIALIZATION STATEMENT. THE FIRST ELEMENT 06540021
658: C IS SET TO 0 06550021
659: C 06560021
660: C 06570021
661: IF (ICZERO) 35890, 5890, 35890 06580021
662: 5890 CONTINUE 06590021
663: GO TO 45890 06600021
664: 35890 IVDELE = IVDELE + 1 06610021
665: WRITE (I02,80003) IVTNUM 06620021
666: IF (ICZERO) 45890, 5901, 45890 06630021
667: 45890 IF ( IADN13(1) - 0 ) 25890, 15890, 25890 06640021
668: 15890 IVPASS = IVPASS + 1 06650021
669: WRITE (I02,80001) IVTNUM 06660021
670: GO TO 5901 06670021
671: 25890 IVFAIL = IVFAIL + 1 06680021
672: IVCOMP = IADN13(1) 06690021
673: IVCORR = 0 06700021
674: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06710021
675: 5901 CONTINUE 06720021
676: IVTNUM = 590 06730021
677: C 06740021
678: C **** TEST 590 **** 06750021
679: C TEST 590 - SEE TEST 589. THE SECOND ELEMENT WAS SET TO -32766 06760021
680: C 06770021
681: C 06780021
682: IF (ICZERO) 35900, 5900, 35900 06790021
683: 5900 CONTINUE 06800021
684: GO TO 45900 06810021
685: 35900 IVDELE = IVDELE + 1 06820021
686: WRITE (I02,80003) IVTNUM 06830021
687: IF (ICZERO) 45900, 5911, 45900 06840021
688: 45900 IF ( IADN13(2) + 32766 ) 25900, 15900, 25900 06850021
689: 15900 IVPASS = IVPASS + 1 06860021
690: WRITE (I02,80001) IVTNUM 06870021
691: GO TO 5911 06880021
692: 25900 IVFAIL = IVFAIL + 1 06890021
693: IVCOMP = IADN13(2) 06900021
694: IVCORR = -32766 06910021
695: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 06920021
696: 5911 CONTINUE 06930021
697: IVTNUM = 591 06940021
698: C 06950021
699: C **** TEST 591 **** 06960021
700: C TEST 591 - SEE TEST 589. THE THIRD ELEMENT WAS SET TO -32766 06970021
701: C 06980021
702: C 06990021
703: IF (ICZERO) 35910, 5910, 35910 07000021
704: 5910 CONTINUE 07010021
705: GO TO 45910 07020021
706: 35910 IVDELE = IVDELE + 1 07030021
707: WRITE (I02,80003) IVTNUM 07040021
708: IF (ICZERO) 45910, 5921, 45910 07050021
709: 45910 IF ( IADN13(3) + 32766 ) 25910, 15910, 25910 07060021
710: 15910 IVPASS = IVPASS + 1 07070021
711: WRITE (I02,80001) IVTNUM 07080021
712: GO TO 5921 07090021
713: 25910 IVFAIL = IVFAIL + 1 07100021
714: IVCOMP = IADN13(3) 07110021
715: IVCORR = -32766 07120021
716: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07130021
717: 5921 CONTINUE 07140021
718: IVTNUM = 592 07150021
719: C 07160021
720: C **** TEST 592 **** 07170021
721: C TEST 592 - SEE TEST 589. THE FOURTH ELEMENT WAS SET TO -587 07180021
722: C 07190021
723: C 07200021
724: IF (ICZERO) 35920, 5920, 35920 07210021
725: 5920 CONTINUE 07220021
726: GO TO 45920 07230021
727: 35920 IVDELE = IVDELE + 1 07240021
728: WRITE (I02,80003) IVTNUM 07250021
729: IF (ICZERO) 45920, 5931, 45920 07260021
730: 45920 IF ( IADN13(4) + 587 ) 25920, 15920, 25920 07270021
731: 15920 IVPASS = IVPASS + 1 07280021
732: WRITE (I02,80001) IVTNUM 07290021
733: GO TO 5931 07300021
734: 25920 IVFAIL = IVFAIL + 1 07310021
735: IVCOMP = IADN13(4) 07320021
736: IVCORR = -587 07330021
737: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07340021
738: 5931 CONTINUE 07350021
739: IVTNUM = 593 07360021
740: C 07370021
741: C **** TEST 593 **** 07380021
742: C TEST 593 - TEST OF SETTING THE WHOLE LOGICAL ARRAY IN ONE 07390021
743: C DATA INITIALIZATION STATEMENT. THE FIRST ELEMENT IS .TRUE. 07400021
744: C THE SECOND AND THIRD ELEMENTS ARE .FALSE. 07410021
745: C THE FALSE PATH OF A LOGICAL IF STATEMENT IS USED TESTING 2. 07420021
746: C 07430021
747: C 07440021
748: IF (ICZERO) 35930, 5930, 35930 07450021
749: 5930 CONTINUE 07460021
750: IVON01 = 1 07470021
751: IF ( LADN11(2) ) IVON01 = 0 07480021
752: GO TO 45930 07490021
753: 35930 IVDELE = IVDELE + 1 07500021
754: WRITE (I02,80003) IVTNUM 07510021
755: IF (ICZERO) 45930, 5941, 45930 07520021
756: 45930 IF ( IVON01 - 1 ) 25930, 15930, 25930 07530021
757: 15930 IVPASS = IVPASS + 1 07540021
758: WRITE (I02,80001) IVTNUM 07550021
759: GO TO 5941 07560021
760: 25930 IVFAIL = IVFAIL + 1 07570021
761: IVCOMP = IVON01 07580021
762: IVCORR = 1 07590021
763: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07600021
764: 5941 CONTINUE 07610021
765: IVTNUM = 594 07620021
766: C 07630021
767: C **** TEST 594 **** 07640021
768: C TEST 594 - SEE TEST 593. THE FOURTH ELEMENT IS TESTED 07650021
769: C WITH THE TRUE PATH OF THE LOGICAL IF STATEMENT. 07660021
770: C 07670021
771: C 07680021
772: IF (ICZERO) 35940, 5940, 35940 07690021
773: 5940 CONTINUE 07700021
774: IVON01 = 0 07710021
775: IF ( LADN11(4) ) IVON01 = 1 07720021
776: GO TO 45940 07730021
777: 35940 IVDELE = IVDELE + 1 07740021
778: WRITE (I02,80003) IVTNUM 07750021
779: IF (ICZERO) 45940, 5951, 45940 07760021
780: 45940 IF ( IVON01 - 1 ) 25940, 15940, 25940 07770021
781: 15940 IVPASS = IVPASS + 1 07780021
782: WRITE (I02,80001) IVTNUM 07790021
783: GO TO 5951 07800021
784: 25940 IVFAIL = IVFAIL + 1 07810021
785: IVCOMP = IVON01 07820021
786: IVCORR = 1 07830021
787: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 07840021
788: 5951 CONTINUE 07850021
789: IVTNUM = 595 07860021
790: C 07870021
791: C **** TEST 595 **** 07880021
792: C TEST 595 - A WHOLE REAL ARRAY IS SET IN ONE DATA INITIALIZATION 07890021
793: C STATEMENT. THE SECOND ELEMENT IS -32.766 07900021
794: C 07910021
795: C 07920021
796: IF (ICZERO) 35950, 5950, 35950 07930021
797: 5950 CONTINUE 07940021
798: GO TO 45950 07950021
799: 35950 IVDELE = IVDELE + 1 07960021
800: WRITE (I02,80003) IVTNUM 07970021
801: IF (ICZERO) 45950, 5961, 45950 07980021
802: 45950 IF ( RADN11(2) + 32.766 ) 25950, 15950, 25950 07990021
803: 15950 IVPASS = IVPASS + 1 08000021
804: WRITE (I02,80001) IVTNUM 08010021
805: GO TO 5961 08020021
806: 25950 IVFAIL = IVFAIL + 1 08030021
807: IVCOMP = RADN11(2) 08040021
808: IVCORR = -32 08050021
809: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 08060021
810: 5961 CONTINUE 08070021
811: IVTNUM = 596 08080021
812: C 08090021
813: C **** TEST 596 **** 08100021
814: C TEST 596 - SEE TEST 595. THE FOURTH ELEMENT IS SET TO 587 08110021
815: C BY A REPEAT FIELD. 08120021
816: C 08130021
817: C 08140021
818: IF (ICZERO) 35960, 5960, 35960 08150021
819: 5960 CONTINUE 08160021
820: GO TO 45960 08170021
821: 35960 IVDELE = IVDELE + 1 08180021
822: WRITE (I02,80003) IVTNUM 08190021
823: IF (ICZERO) 45960, 5971, 45960 08200021
824: 45960 IF ( RADN11(4) - 587 ) 25960, 15960, 25960 08210021
825: 15960 IVPASS = IVPASS + 1 08220021
826: WRITE (I02,80001) IVTNUM 08230021
827: GO TO 5971 08240021
828: 25960 IVFAIL = IVFAIL + 1 08250021
829: IVCOMP = RADN11(4) 08260021
830: IVCORR = 587 08270021
831: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 08280021
832: 5971 CONTINUE 08290021
833: IVTNUM = 597 08300021
834: C 08310021
835: C **** TEST 597 **** 08320021
836: C TEST 597 - TEST OF MIXED ARRAY ELEMENT TYPES IN A SINGLE DATA 08330021
837: C INITIALIZATION STATEMENT. THE TYPE LOGICAL STATEMENT CONTAINS08340021
838: C THE ARRAY DECLARATIONS. THE FALSE PATH OF A LOGICAL 08350021
839: C IF STATEMENT TESTS THE LOGICAL RESULTS. 08360021
840: C 08370021
841: C 08380021
842: IF (ICZERO) 35970, 5970, 35970 08390021
843: 5970 CONTINUE 08400021
844: IVON01 = 1 08410021
845: IF ( LATN11(2) ) IVON01 = 0 08420021
846: GO TO 45970 08430021
847: 35970 IVDELE = IVDELE + 1 08440021
848: WRITE (I02,80003) IVTNUM 08450021
849: IF (ICZERO) 45970, 5981, 45970 08460021
850: 45970 IF ( IVON01 - 1 ) 25970, 15970, 25970 08470021
851: 15970 IVPASS = IVPASS + 1 08480021
852: WRITE (I02,80001) IVTNUM 08490021
853: GO TO 5981 08500021
854: 25970 IVFAIL = IVFAIL + 1 08510021
855: IVCOMP = IVON01 08520021
856: IVCORR = 1 08530021
857: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 08540021
858: 5981 CONTINUE 08550021
859: IVTNUM = 598 08560021
860: C 08570021
861: C **** TEST 598 **** 08580021
862: C TEST 598 - TYPE OF THE DATA WAS SET EXPLICITLY REAL IN THE 08590021
863: C DECLARATIVE FOR THE ARRAY. DATA SHOULD BE SET TO 32767. 08600021
864: C 08610021
865: C 08620021
866: IF (ICZERO) 35980, 5980, 35980 08630021
867: 5980 CONTINUE 08640021
868: GO TO 45980 08650021
869: 35980 IVDELE = IVDELE + 1 08660021
870: WRITE (I02,80003) IVTNUM 08670021
871: IF (ICZERO) 45980, 5991, 45980 08680021
872: 45980 IF ( IATN11(2) - 32767. ) 25980, 15980, 25980 08690021
873: 15980 IVPASS = IVPASS + 1 08700021
874: WRITE (I02,80001) IVTNUM 08710021
875: GO TO 5991 08720021
876: 25980 IVFAIL = IVFAIL + 1 08730021
877: IVCOMP = IATN11(2) 08740021
878: IVCORR = 32767 08750021
879: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 08760021
880: 5991 CONTINUE 08770021
881: IVTNUM = 599 08780021
882: C 08790021
883: C **** TEST 599 **** 08800021
884: C TEST 599 - TYPE OF THE DATA WAS SET EXPLICITLY INTEGER IN THE 08810021
885: C DECLARATIVE FOR THE ARRAY. DATA SHOULD BE SET TO -32766 08820021
886: C 08830021
887: C 08840021
888: IF (ICZERO) 35990, 5990, 35990 08850021
889: 5990 CONTINUE 08860021
890: GO TO 45990 08870021
891: 35990 IVDELE = IVDELE + 1 08880021
892: WRITE (I02,80003) IVTNUM 08890021
893: IF (ICZERO) 45990, 6001, 45990 08900021
894: 45990 IF ( RATN11(2) + 32766 ) 25990, 15990, 25990 08910021
895: 15990 IVPASS = IVPASS + 1 08920021
896: WRITE (I02,80001) IVTNUM 08930021
897: GO TO 6001 08940021
898: 25990 IVFAIL = IVFAIL + 1 08950021
899: IVCOMP = RATN11(2) 08960021
900: IVCORR = -32766 08970021
901: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 08980021
902: 6001 CONTINUE 08990021
903: IVTNUM = 600 09000021
904: C 09010021
905: C **** TEST 600 **** 09020021
906: C TEST 600 - TEST OF REAL DECIMAL CONSTANTS USING E-NOTATION. 09030021
907: C SEE SECTION 4.4.2. THE VALUE OF THE ELEMENT SHOULD 09040021
908: C BE SET TO 32767. 09050021
909: C 09060021
910: C 09070021
911: IF (ICZERO) 36000, 6000, 36000 09080021
912: 6000 CONTINUE 09090021
913: GO TO 46000 09100021
914: 36000 IVDELE = IVDELE + 1 09110021
915: WRITE (I02,80003) IVTNUM 09120021
916: IF (ICZERO) 46000, 6011, 46000 09130021
917: 46000 IF ( RADN13(1) - 32767. ) 26000, 16000, 26000 09140021
918: 16000 IVPASS = IVPASS + 1 09150021
919: WRITE (I02,80001) IVTNUM 09160021
920: GO TO 6011 09170021
921: 26000 IVFAIL = IVFAIL + 1 09180021
922: IVCOMP = RADN13(1) 09190021
923: IVCORR = 32767 09200021
924: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 09210021
925: 6011 CONTINUE 09220021
926: IVTNUM = 601 09230021
927: C 09240021
928: C **** TEST 601 **** 09250021
929: C TEST 601 - LIKE TEST 600. REAL DECIMAL CONSTANT VALUE -.32766 09260021
930: C 09270021
931: C 09280021
932: IF (ICZERO) 36010, 6010, 36010 09290021
933: 6010 CONTINUE 09300021
934: GO TO 46010 09310021
935: 36010 IVDELE = IVDELE + 1 09320021
936: WRITE (I02,80003) IVTNUM 09330021
937: IF (ICZERO) 46010, 6021, 46010 09340021
938: 46010 IF ( RADN13(2) + .32766 ) 26010, 16010, 26010 09350021
939: 16010 IVPASS = IVPASS + 1 09360021
940: WRITE (I02,80001) IVTNUM 09370021
941: GO TO 6021 09380021
942: 26010 IVFAIL = IVFAIL + 1 09390021
943: IVCOMP = RADN13(2) 09400021
944: IVCORR = 0 09410021
945: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 09420021
946: 6021 CONTINUE 09430021
947: IVTNUM = 602 09440021
948: C 09450021
949: C **** TEST 602 **** 09460021
950: C TEST 602 - LIKE TEST 600. REAL DECIMAL CONSTANT VALUE 587. 09470021
951: C 09480021
952: C 09490021
953: IF (ICZERO) 36020, 6020, 36020 09500021
954: 6020 CONTINUE 09510021
955: GO TO 46020 09520021
956: 36020 IVDELE = IVDELE + 1 09530021
957: WRITE (I02,80003) IVTNUM 09540021
958: IF (ICZERO) 46020, 6031, 46020 09550021
959: 46020 IF ( RADN13(3) - 587 ) 26020, 16020, 26020 09560021
960: 16020 IVPASS = IVPASS + 1 09570021
961: WRITE (I02,80001) IVTNUM 09580021
962: GO TO 6031 09590021
963: 26020 IVFAIL = IVFAIL + 1 09600021
964: IVCOMP = RADN13(3) 09610021
965: IVCORR = 587 09620021
966: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 09630021
967: 6031 CONTINUE 09640021
968: IVTNUM = 603 09650021
969: C 09660021
970: C **** TEST 603 **** 09670021
971: C TEST 603 - LIKE TEST 600. REAL DECIMAL CONSTANT VALUE 90. 09680021
972: C 09690021
973: C 09700021
974: IF (ICZERO) 36030, 6030, 36030 09710021
975: 6030 CONTINUE 09720021
976: GO TO 46030 09730021
977: 36030 IVDELE = IVDELE + 1 09740021
978: WRITE (I02,80003) IVTNUM 09750021
979: IF (ICZERO) 46030, 6041, 46030 09760021
980: 46030 IF ( RADN13(4) - 90. ) 26030, 16030, 26030 09770021
981: 16030 IVPASS = IVPASS + 1 09780021
982: WRITE (I02,80001) IVTNUM 09790021
983: GO TO 6041 09800021
984: 26030 IVFAIL = IVFAIL + 1 09810021
985: IVCOMP = RADN13(4) 09820021
986: IVCORR = 90 09830021
987: WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR 09840021
988: 6041 CONTINUE 09850021
989: C 09860021
990: C WRITE PAGE FOOTINGS AND RUN SUMMARIES 09870021
991: 99999 CONTINUE 09880021
992: WRITE (I02,90002) 09890021
993: WRITE (I02,90006) 09900021
994: WRITE (I02,90002) 09910021
995: WRITE (I02,90002) 09920021
996: WRITE (I02,90007) 09930021
997: WRITE (I02,90002) 09940021
998: WRITE (I02,90008) IVFAIL 09950021
999: WRITE (I02,90009) IVPASS 09960021
1000: WRITE (I02,90010) IVDELE 09970021
1001: C 09980021
1002: C 09990021
1003: C TERMINATE ROUTINE EXECUTION 10000021
1004: STOP 10010021
1005: C 10020021
1006: C FORMAT STATEMENTS FOR PAGE HEADERS 10030021
1007: 90000 FORMAT (1H1) 10040021
1008: 90002 FORMAT (1H ) 10050021
1009: 90001 FORMAT (1H ,10X,34HFORTRAN COMPILER VALIDATION SYSTEM) 10060021
1010: 90003 FORMAT (1H ,21X,11HVERSION 1.0) 10070021
1011: 90004 FORMAT (1H ,10X,38HFOR OFFICIAL USE ONLY - COPYRIGHT 1978) 10080021
1012: 90005 FORMAT (1H ,5X,4HTEST,5X,9HPASS/FAIL, 5X,8HCOMPUTED,8X,7HCORRECT) 10090021
1013: 90006 FORMAT (1H ,5X,46H----------------------------------------------) 10100021
1014: 90011 FORMAT (1H ,18X,17HSUBSET LEVEL TEST) 10110021
1015: C 10120021
1016: C FORMAT STATEMENTS FOR RUN SUMMARIES 10130021
1017: 90008 FORMAT (1H ,15X,I5,19H ERRORS ENCOUNTERED) 10140021
1018: 90009 FORMAT (1H ,15X,I5,13H TESTS PASSED) 10150021
1019: 90010 FORMAT (1H ,15X,I5,14H TESTS DELETED) 10160021
1020: C 10170021
1021: C FORMAT STATEMENTS FOR TEST RESULTS 10180021
1022: 80001 FORMAT (1H ,4X,I5,7X,4HPASS) 10190021
1023: 80002 FORMAT (1H ,4X,I5,7X,4HFAIL) 10200021
1024: 80003 FORMAT (1H ,4X,I5,7X,7HDELETED) 10210021
1025: 80004 FORMAT (1H ,4X,I5,7X,4HFAIL,10X,I6,9X,I6) 10220021
1026: 80005 FORMAT (1H ,4X,I5,7X,4HFAIL,4X,E12.5,3X,E12.5) 10230021
1027: C 10240021
1028: 90007 FORMAT (1H ,20X,20HEND OF PROGRAM FM021) 10250021
1029: END 10260021
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.