![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM906.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 FM906.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***********************************************************************00010906
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 00020906
6: C***** FM906 00030906
7: C***** LSTDI2 - (372) 00040906
8: C***** 00050906
9: C***********************************************************************00060906
10: C***** GENERAL PURPOSE ANS REF 00070906
11: C***** TEST LIST DIRECTED INPUT 13.6 00080906
12: C***** DOUBLE PRECISION, COMPLEX DATA TYPES INCLUDED 12.4 00090906
13: C***** 00100906
14: CBB** ********************** BBCCOMNT **********************************00110906
15: C**** 00120906
16: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130906
17: C**** VERSION 2.0 00140906
18: C**** 00150906
19: C**** 00160906
20: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170906
21: C**** GENERAL SERVICES ADMINISTRATION 00180906
22: C**** FEDERAL SOFTWARE TESTING CENTER 00190906
23: C**** 5203 LEESBURG PIKE, SUITE 1100 00200906
24: C**** FALLS CHURCH, VA. 22041 00210906
25: C**** 00220906
26: C**** (703) 756-6153 00230906
27: C**** 00240906
28: CBE** ********************** BBCCOMNT **********************************00250906
29: C***** 00260906
30: C INPUT DATA TO THIS SEGMENT CONSISTS OF 12 CARD IMAGES IN COL. 1-44 00270906
31: COL. 1-----------------------------------------44 00280906
32: CARD 1 2.5D0 00290906
33: CARD 2 1.5 2.5D0 3.5E0 00300906
34: CARD 3 (3.0,4.0) 00310906
35: CARD 4 (1.0,0.0) (0.0,0.0) (0.0,3.0) 00320906
36: CARD 5 2, 2.5D0, 2.5D0, T, (3.0,4.0), 'TEST' 00330906
37: CARD 6 ( 2.5 , 3.5 ) 00340906
38: CARD 7 (1.0 , 00350906
39: CARD 8 2.0) 00360906
40: CARD 9 , (2.0, 3.0),,6.0D0, 2*, 00370906
41: CARD 10 1.0D0 (2.0, 2.0) 3.0D0 (4.0, 4.0) 5.0D0 00380906
42: CARD 11 6.0D0 (7.0, 7.0) / 8.0D0 (9.0, 9.0) 10.0D0 00390906
43: CARD 12 2.0D0 4.0D0 / 6.0D0 8.0D0 10.0D0 00400906
44: C***** 00410906
45: C***** S P E C I F I C A T I O N S SEGMENT 372 00420906
46: LOGICAL AVB 00430906
47: CHARACTER A4VK*4,CVCORR*4 00440906
48: DOUBLE PRECISION AVD, BVD, CVD, DVCORR 00450906
49: DOUBLE PRECISION A1D(4) 00460906
50: COMPLEX AVC, BVC, CVC, ZVCORR 00470906
51: REAL R2E(6) 00480906
52: EQUIVALENCE (AVC,R2E(1)),(BVC,R2E(3)),(CVC,R2E(5)) 00490906
53: C***** 00500906
54: CBB** ********************** BBCINITA **********************************00510906
55: C**** SPECIFICATION STATEMENTS 00520906
56: C**** 00530906
57: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00540906
58: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00550906
59: CBE** ********************** BBCINITA **********************************00560906
60: CBB** ********************** BBCINITB **********************************00570906
61: C**** INITIALIZE SECTION 00580906
62: DATA ZVERS, ZVERSD, ZDATE 00590906
63: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00600906
64: DATA ZCOMPL, ZNAME, ZTAPE 00610906
65: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00620906
66: DATA ZPROJ, ZTAPED, ZPROG 00630906
67: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00640906
68: DATA REMRKS /' '/ 00650906
69: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00660906
70: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00670906
71: C**** 00680906
72: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00690906
73: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00700906
74: CZ03 ZPROG = 'PROGRAM NAME' 00710906
75: ZDATE = '07-Nov-85 ' *RP
76: ZCOMPL = 'CCI 5.2 ' *RP
77: ZPROJ = 'TC-85- -410' *RP
78: ZNAME = ' ' *RP
79: ZTAPE = ' ' *RP
80: ZTAPED = '850703 ' *RP
81: C 00780906
82: IVPASS = 0 00790906
83: IVFAIL = 0 00800906
84: IVDELE = 0 00810906
85: IVINSP = 0 00820906
86: IVTOTL = 0 00830906
87: IVTOTN = 0 00840906
88: ICZERO = 0 00850906
89: C 00860906
90: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00870906
91: I01 = 05 00880906
92: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00890906
93: I02 = 06 00900906
94: C 00910906
95: I01 = 5 00920906
96: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00930906
97: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00940906
98: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00950906
99: C 00960906
100: I02 = 6 00970906
101: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00980906
102: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00990906
103: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 01000906
104: C 01010906
105: CBE** ********************** BBCINITB **********************************01020906
106: IRVI = I01 01030906
107: NUVI = I02 01040906
108: IVTOTL = 28 01050906
109: ZPROG = 'FM906' 01060906
110: CBB** ********************** BBCHED0A **********************************01070906
111: C**** 01080906
112: C**** WRITE REPORT TITLE 01090906
113: C**** 01100906
114: WRITE (I02, 90002) 01110906
115: WRITE (I02, 90006) 01120906
116: WRITE (I02, 90007) 01130906
117: WRITE (I02, 90008) ZVERS, ZVERSD 01140906
118: WRITE (I02, 90009) ZPROG, ZPROG 01150906
119: WRITE (I02, 90010) ZDATE, ZCOMPL 01160906
120: CBE** ********************** BBCHED0A **********************************01170906
121: C***** 01180906
122: C***** HEADING FOR SEGMENT 372 01190906
123: WRITE(NUVI,37200) 01200906
124: 37200 FORMAT(1H , /16H LSTDI2 - (372) , 01210906
125: 1 20H LIST DIRECTED INPUT, 01220906
126: 2 32H FOR D.P. AND COMPLEX DATA TYPES// 01230906
127: 3 22H ANS REF. - 13.6 12.4) 01240906
128: CBB** ********************** BBCHED0B **********************************01250906
129: C**** WRITE DETAIL REPORT HEADERS 01260906
130: C**** 01270906
131: WRITE (I02,90004) 01280906
132: WRITE (I02,90004) 01290906
133: WRITE (I02,90013) 01300906
134: WRITE (I02,90014) 01310906
135: WRITE (I02,90015) IVTOTL 01320906
136: CBE** ********************** BBCHED0B **********************************01330906
137: CT001* TEST 1 - CARD 1 DOUBLE PRECISION 01340906
138: IVTNUM = 1 01350906
139: READ(IRVI, *) AVD 01360906
140: IF (AVD - 0.2499999998D+01) 20010, 10010, 40010 01370906
141: 40010 IF (AVD - 0.2500000002D+01) 10010, 10010, 20010 01380906
142: 10010 IVPASS = IVPASS + 1 01390906
143: WRITE (NUVI, 80002) IVTNUM 01400906
144: GO TO 0011 01410906
145: 20010 IVFAIL = IVFAIL + 1 01420906
146: DVCORR = 2.5D0 01430906
147: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01440906
148: 0011 CONTINUE 01450906
149: C***** TESTS 2 THRU 4 - CARD 2 SEVERAL DOUBLE PRECISION 01460906
150: CT002* TEST 2 01470906
151: IVTNUM = 2 01480906
152: READ(IRVI, *) AVD, BVD, CVD 01490906
153: IF (AVD - 0.1499999999D+01) 20020, 10020, 40020 01500906
154: 40020 IF (AVD - 0.1500000001D+01) 10020, 10020, 20020 01510906
155: 10020 IVPASS = IVPASS + 1 01520906
156: WRITE (NUVI, 80002) IVTNUM 01530906
157: GO TO 0021 01540906
158: 20020 IVFAIL = IVFAIL + 1 01550906
159: DVCORR = 1.5D0 01560906
160: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 01570906
161: 0021 CONTINUE 01580906
162: CT003* TEST 3 01590906
163: IVTNUM = 3 01600906
164: IF (BVD - 0.2499999998D+01) 20030, 10030, 40030 01610906
165: 40030 IF (BVD - 0.2500000002D+01) 10030, 10030, 20030 01620906
166: 10030 IVPASS = IVPASS + 1 01630906
167: WRITE (NUVI, 80002) IVTNUM 01640906
168: GO TO 0031 01650906
169: 20030 IVFAIL = IVFAIL + 1 01660906
170: DVCORR = 2.5D0 01670906
171: WRITE (NUVI, 80031) IVTNUM, BVD, DVCORR 01680906
172: 0031 CONTINUE 01690906
173: CT004* TEST 4 01700906
174: IVTNUM = 4 01710906
175: IF (CVD - 0.3499999998D+01) 20040, 10040, 40040 01720906
176: 40040 IF (CVD - 0.3500000002D+01) 10040, 10040, 20040 01730906
177: 10040 IVPASS = IVPASS + 1 01740906
178: WRITE (NUVI, 80002) IVTNUM 01750906
179: GO TO 0041 01760906
180: 20040 IVFAIL = IVFAIL + 1 01770906
181: DVCORR = 3.5D0 01780906
182: WRITE (NUVI, 80031) IVTNUM, CVD, DVCORR 01790906
183: 0041 CONTINUE 01800906
184: CT005* TEST 5 - CARD 3 COMPLEX 01810906
185: IVTNUM = 5 01820906
186: READ(IRVI, *) AVC 01830906
187: IF (R2E(1) - 0.29998E+01) 20050, 40052, 40051 01840906
188: 40051 IF (R2E(1) - 0.30002E+01) 40052, 40052, 20050 01850906
189: 40052 IF (R2E(2) - 0.39998E+01) 20050, 10050, 40050 01860906
190: 40050 IF (R2E(2) - 0.40002E+01) 10050, 10050, 20050 01870906
191: 10050 IVPASS = IVPASS + 1 01880906
192: WRITE (NUVI, 80002) IVTNUM 01890906
193: GO TO 0051 01900906
194: 20050 IVFAIL = IVFAIL + 1 01910906
195: ZVCORR = (3.0, 4.0) 01920906
196: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 01930906
197: 0051 CONTINUE 01940906
198: C***** TESTS 6 THRU 8 - CARD 4 SEVERAL COMPLEX 01950906
199: CT006* TEST 6 01960906
200: IVTNUM = 6 01970906
201: READ(IRVI, *) AVC, BVC, CVC 01980906
202: IF (R2E(1) - 0.99995E+00) 20060, 40062, 40061 01990906
203: 40061 IF (R2E(1) - 0.10001E+01) 40062, 40062, 20060 02000906
204: 40062 IF (R2E(2) + 0.50000E-04) 20060, 10060, 40060 02010906
205: 40060 IF (R2E(2) - 0.50000E-04) 10060, 10060, 20060 02020906
206: 10060 IVPASS = IVPASS + 1 02030906
207: WRITE (NUVI, 80002) IVTNUM 02040906
208: GO TO 0061 02050906
209: 20060 IVFAIL = IVFAIL + 1 02060906
210: ZVCORR = (1.0, 0.0) 02070906
211: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 02080906
212: 0061 CONTINUE 02090906
213: CT007* TEST 7 02100906
214: IVTNUM = 7 02110906
215: IF (R2E(3) + 0.50000E-04) 20070, 40072, 40071 02120906
216: 40071 IF (R2E(3) - 0.50000E-04) 40072, 40072, 20070 02130906
217: 40072 IF (R2E(4) + 0.50000E-04) 20070, 10070, 40070 02140906
218: 40070 IF (R2E(4) - 0.50000E-04) 10070, 10070, 20070 02150906
219: 10070 IVPASS = IVPASS + 1 02160906
220: WRITE (NUVI, 80002) IVTNUM 02170906
221: GO TO 0071 02180906
222: 20070 IVFAIL = IVFAIL + 1 02190906
223: ZVCORR = (0.0, 0.0) 02200906
224: WRITE (NUVI, 80045) IVTNUM, BVC, ZVCORR 02210906
225: 0071 CONTINUE 02220906
226: CT008* TEST 8 02230906
227: IVTNUM = 8 02240906
228: IF (R2E(5) + 0.50000E-04) 20080, 40082, 40081 02250906
229: 40081 IF (R2E(5) - 0.50000E-04) 40082, 40082, 20080 02260906
230: 40082 IF (R2E(6) - 0.29998E+01) 20080, 10080, 40080 02270906
231: 40080 IF (R2E(6) - 0.30002E+01) 10080, 10080, 20080 02280906
232: 10080 IVPASS = IVPASS + 1 02290906
233: WRITE (NUVI, 80002) IVTNUM 02300906
234: GO TO 0081 02310906
235: 20080 IVFAIL = IVFAIL + 1 02320906
236: ZVCORR = (0.0, 3.0) 02330906
237: WRITE (NUVI, 80045) IVTNUM, CVC, ZVCORR 02340906
238: 0081 CONTINUE 02350906
239: C***** TESTS 9 THRU 14 - CARD 5 MIXED LIST 02360906
240: CT009* TEST 9 02370906
241: IVTNUM = 9 02380906
242: READ(IRVI, *) IVI, AVD, AVS, AVB, AVC, A4VK 02390906
243: IF (IVI - 2) 20090, 10090, 20090 02400906
244: 10090 IVPASS = IVPASS + 1 02410906
245: WRITE (NUVI, 80002) IVTNUM 02420906
246: GO TO 0091 02430906
247: 20090 IVFAIL = IVFAIL + 1 02440906
248: IVCORR = 2 02450906
249: WRITE (NUVI, 80010) IVTNUM, IVI, IVCORR 02460906
250: 0091 CONTINUE 02470906
251: CT010* TEST 10 02480906
252: IVTNUM = 10 02490906
253: IF (AVD - 0.2499999998D+01) 20100, 10100, 40100 02500906
254: 40100 IF (AVD - 0.2500000002D+01) 10100, 10100, 20100 02510906
255: 10100 IVPASS = IVPASS + 1 02520906
256: WRITE (NUVI, 80002) IVTNUM 02530906
257: GO TO 0101 02540906
258: 20100 IVFAIL = IVFAIL + 1 02550906
259: DVCORR = 2.5D0 02560906
260: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 02570906
261: 0101 CONTINUE 02580906
262: CT011* TEST 11 02590906
263: IVTNUM = 11 02600906
264: IF (AVS - 0.24998E+01) 20110, 10110, 40110 02610906
265: 40110 IF (AVS - 0.25002E+01) 10110, 10110, 20110 02620906
266: 10110 IVPASS = IVPASS + 1 02630906
267: WRITE (NUVI, 80002) IVTNUM 02640906
268: GO TO 0111 02650906
269: 20110 IVFAIL = IVFAIL + 1 02660906
270: RVCORR = 2.5 02670906
271: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02680906
272: 0111 CONTINUE 02690906
273: CT012* TEST 12 02700906
274: IVTNUM = 12 02710906
275: IVCOMP = 0 02720906
276: IF (AVB) IVCOMP = 1 02730906
277: IF (IVCOMP - 1) 20120, 10120, 20120 02740906
278: 10120 IVPASS = IVPASS + 1 02750906
279: WRITE (NUVI, 80002) IVTNUM 02760906
280: GO TO 0121 02770906
281: 20120 IVFAIL = IVFAIL + 1 02780906
282: LVCORR = 1 02790906
283: REMRKS = '1 = TRUE ; 0 = FALSE' 02800906
284: WRITE (NUVI, 80008) IVTNUM, REMRKS 02810906
285: WRITE (NUVI, 80024) IVCOMP 02820906
286: WRITE (NUVI, 80026) LVCORR 02830906
287: 0121 CONTINUE 02840906
288: C***** ADVANCE TO TOP-OF-PAGE AND WRITE HEADERS 02850906
289: WRITE (NUVI, 90002) 02860906
290: WRITE (NUVI, 90013) 02870906
291: WRITE (NUVI, 90014) 02880906
292: CT013* TEST 13 02890906
293: IVTNUM = 13 02900906
294: IF (R2E(1) - 0.29998E+01) 20130, 40132, 40131 02910906
295: 40131 IF (R2E(1) - 0.30002E+01) 40132, 40132, 20130 02920906
296: 40132 IF (R2E(2) - 0.39998E+01) 20130, 10130, 40130 02930906
297: 40130 IF (R2E(2) - 0.40002E+01) 10130, 10130, 20130 02940906
298: 10130 IVPASS = IVPASS + 1 02950906
299: WRITE (NUVI, 80002) IVTNUM 02960906
300: GO TO 0131 02970906
301: 20130 IVFAIL = IVFAIL + 1 02980906
302: ZVCORR = (3.0, 4.0) 02990906
303: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 03000906
304: 0131 CONTINUE 03010906
305: CT014* TEST 14 03020906
306: IVTNUM = 14 03030906
307: IVCOMP = 0 03040906
308: IF (A4VK.EQ.'TEST') IVCOMP = 1 03050906
309: IF (IVCOMP - 1) 20140, 10140, 20140 03060906
310: 10140 IVPASS = IVPASS + 1 03070906
311: WRITE (NUVI, 80002) IVTNUM 03080906
312: GO TO 0141 03090906
313: 20140 IVFAIL = IVFAIL + 1 03100906
314: CVCORR = 'TEST' 03110906
315: WRITE (NUVI, 80018) IVTNUM, A4VK, CVCORR 03120906
316: 0141 CONTINUE 03130906
317: CT015* TEST 15 - CARD 6 COMPLEX CONSTANT W/EMBEDDED BLANKS 03140906
318: IVTNUM = 15 03150906
319: READ(IRVI, *) AVC 03160906
320: IF (R2E(1) - 0.24998E+01) 20150, 40152, 40151 03170906
321: 40151 IF (R2E(1) - 0.25002E+01) 40152, 40152, 20150 03180906
322: 40152 IF (R2E(2) - 0.34998E+01) 20150, 10150, 40150 03190906
323: 40150 IF (R2E(2) - 0.35002E+01) 10150, 10150, 20150 03200906
324: 10150 IVPASS = IVPASS + 1 03210906
325: WRITE (NUVI, 80002) IVTNUM 03220906
326: GO TO 0151 03230906
327: 20150 IVFAIL = IVFAIL + 1 03240906
328: ZVCORR = (2.5, 3.5) 03250906
329: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 03260906
330: 0151 CONTINUE 03270906
331: CT016* TEST 16 - CARDS 7-8 COMPLEX WITH EMBEDDED END-OF-RECORD 03280906
332: IVTNUM = 16 03290906
333: READ(IRVI, *) AVC 03300906
334: IF (R2E(1) - 0.99995E+00) 20160, 40162, 40161 03310906
335: 40161 IF (R2E(1) - 0.10001E+01) 40162, 40162, 20160 03320906
336: 40162 IF (R2E(2) - 0.19999E+01) 20160, 10160, 40160 03330906
337: 40160 IF (R2E(2) - 0.20001E+01) 10160, 10160, 20160 03340906
338: 10160 IVPASS = IVPASS + 1 03350906
339: WRITE (NUVI, 80002) IVTNUM 03360906
340: GO TO 0161 03370906
341: 20160 IVFAIL = IVFAIL + 1 03380906
342: ZVCORR = (1.0, 2.0) 03390906
343: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 03400906
344: 0161 CONTINUE 03410906
345: C***** TESTS 17 THRU 22 - CARD 9 NULL VALUES 03420906
346: CT017* TEST 17 03430906
347: IVTNUM = 17 03440906
348: AVD = 1.0D0 03450906
349: BVC = (4.0, 5.0) 03460906
350: CVC = (7.0, 8.0) 03470906
351: CVD = 9.0D0 03480906
352: READ(IRVI, *) AVD, AVC, BVC, BVD, CVC, CVD 03490906
353: IF (AVD - 0.9999999995D+00) 20170, 10170, 40170 03500906
354: 40170 IF (AVD - 0.1000000001D+01) 10170, 10170, 20170 03510906
355: 10170 IVPASS = IVPASS + 1 03520906
356: WRITE (NUVI, 80002) IVTNUM 03530906
357: GO TO 0171 03540906
358: 20170 IVFAIL = IVFAIL + 1 03550906
359: DVCORR = 1.0D0 03560906
360: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 03570906
361: 0171 CONTINUE 03580906
362: CT018* TEST 18 03590906
363: IVTNUM = 18 03600906
364: IF (R2E(1) - 0.19999E+01) 20180, 40182, 40181 03610906
365: 40181 IF (R2E(1) - 0.20001E+01) 40182, 40182, 20180 03620906
366: 40182 IF (R2E(2) - 0.29998E+01) 20180, 10180, 40180 03630906
367: 40180 IF (R2E(2) - 0.30002E+01) 10180, 10180, 20180 03640906
368: 10180 IVPASS = IVPASS + 1 03650906
369: WRITE (NUVI, 80002) IVTNUM 03660906
370: GO TO 0181 03670906
371: 20180 IVFAIL = IVFAIL + 1 03680906
372: ZVCORR = (2.0, 3.0) 03690906
373: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 03700906
374: 0181 CONTINUE 03710906
375: CT019* TEST 19 03720906
376: IVTNUM = 19 03730906
377: IF (R2E(3) - 0.39998E+01) 20190, 40192, 40191 03740906
378: 40191 IF (R2E(3) - 0.40002E+01) 40192, 40192, 20190 03750906
379: 40192 IF (R2E(4) - 0.49997E+01) 20190, 10190, 40190 03760906
380: 40190 IF (R2E(4) - 0.50003E+01) 10190, 10190, 20190 03770906
381: 10190 IVPASS = IVPASS + 1 03780906
382: WRITE (NUVI, 80002) IVTNUM 03790906
383: GO TO 0191 03800906
384: 20190 IVFAIL = IVFAIL + 1 03810906
385: ZVCORR = (4.0, 5.0) 03820906
386: WRITE (NUVI, 80045) IVTNUM, BVC, ZVCORR 03830906
387: 0191 CONTINUE 03840906
388: CT020* TEST 20 03850906
389: IVTNUM = 20 03860906
390: IF (BVD - 0.5999999997D+01) 20200, 10200, 40200 03870906
391: 40200 IF (BVD - 0.6000000003D+01) 10200, 10200, 20200 03880906
392: 10200 IVPASS = IVPASS + 1 03890906
393: WRITE (NUVI, 80002) IVTNUM 03900906
394: GO TO 0201 03910906
395: 20200 IVFAIL = IVFAIL + 1 03920906
396: DVCORR = 6.0D0 03930906
397: WRITE (NUVI, 80031) IVTNUM, BVD, DVCORR 03940906
398: 0201 CONTINUE 03950906
399: CT021* TEST 21 03960906
400: IVTNUM = 21 03970906
401: IF (R2E(5) - 0.69996E+01) 20210, 40212, 40211 03980906
402: 40211 IF (R2E(5) - 0.70004E+01) 40212, 40212, 20210 03990906
403: 40212 IF (R2E(6) - 0.79996E+01) 20210, 10210, 40210 04000906
404: 40210 IF (R2E(6) - 0.80004E+01) 10210, 10210, 20210 04010906
405: 10210 IVPASS = IVPASS + 1 04020906
406: WRITE (NUVI, 80002) IVTNUM 04030906
407: GO TO 0211 04040906
408: 20210 IVFAIL = IVFAIL + 1 04050906
409: ZVCORR = (7.0, 8.0) 04060906
410: WRITE (NUVI, 80045) IVTNUM, CVC, ZVCORR 04070906
411: 0211 CONTINUE 04080906
412: CT022* TEST 22 04090906
413: IVTNUM = 22 04100906
414: IF (CVD - 0.8999999995D+01) 20220, 10220, 40220 04110906
415: 40220 IF (CVD - 0.9000000005D+01) 10220, 10220, 20220 04120906
416: 10220 IVPASS = IVPASS + 1 04130906
417: WRITE (NUVI, 80002) IVTNUM 04140906
418: GO TO 0221 04150906
419: 20220 IVFAIL = IVFAIL + 1 04160906
420: DVCORR = 9.0D0 04170906
421: WRITE (NUVI, 80031) IVTNUM, CVD, DVCORR 04180906
422: 0221 CONTINUE 04190906
423: C***** TESTS 23 THRU 27 - CARDS 10-11 SLASH TERMINATOR 04200906
424: CT023* TEST 23 04210906
425: IVTNUM = 23 04220906
426: READ(IRVI, *) AVD, AVC, BVD, BVC, CVD 04230906
427: READ(IRVI, *) AVD, AVC, BVD, BVC, CVD 04240906
428: IF (AVD - 0.5999999997D+01) 20230, 10230, 40230 04250906
429: 40230 IF (AVD - 0.6000000003D+01) 10230, 10230, 20230 04260906
430: 10230 IVPASS = IVPASS + 1 04270906
431: WRITE (NUVI, 80002) IVTNUM 04280906
432: GO TO 0231 04290906
433: 20230 IVFAIL = IVFAIL + 1 04300906
434: DVCORR = 6.0D0 04310906
435: WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR 04320906
436: 0231 CONTINUE 04330906
437: CT024* TEST 24 04340906
438: IVTNUM = 24 04350906
439: IF (R2E(1) - 0.69996E+01) 20240, 40242, 40241 04360906
440: 40241 IF (R2E(1) - 0.70004E+01) 40242, 40242, 20240 04370906
441: 40242 IF (R2E(2) - 0.69996E+01) 20240, 10240, 40240 04380906
442: 40240 IF (R2E(2) - 0.70004E+01) 10240, 10240, 20240 04390906
443: 10240 IVPASS = IVPASS + 1 04400906
444: WRITE (NUVI, 80002) IVTNUM 04410906
445: GO TO 0241 04420906
446: 20240 IVFAIL = IVFAIL + 1 04430906
447: ZVCORR = (7.0, 7.0) 04440906
448: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 04450906
449: 0241 CONTINUE 04460906
450: CT025* TEST 25 04470906
451: IVTNUM = 25 04480906
452: IF (BVD - 0.2999999998D+01) 20250, 10250, 40250 04490906
453: 40250 IF (BVD - 0.3000000002D+01) 10250, 10250, 20250 04500906
454: 10250 IVPASS = IVPASS + 1 04510906
455: WRITE (NUVI, 80002) IVTNUM 04520906
456: GO TO 0251 04530906
457: 20250 IVFAIL = IVFAIL + 1 04540906
458: DVCORR = 3.0D0 04550906
459: WRITE (NUVI, 80031) IVTNUM, BVD, DVCORR 04560906
460: 0251 CONTINUE 04570906
461: CT026* TEST 26 04580906
462: IVTNUM = 26 04590906
463: IF (R2E(3) - 0.39998E+01) 20260, 40262, 40261 04600906
464: 40261 IF (R2E(3) - 0.40002E+01) 40262, 40262, 20260 04610906
465: 40262 IF (R2E(4) - 0.39998E+01) 20260, 10260, 40260 04620906
466: 40260 IF (R2E(4) - 0.40002E+01) 10260, 10260, 20260 04630906
467: 10260 IVPASS = IVPASS + 1 04640906
468: WRITE (NUVI, 80002) IVTNUM 04650906
469: GO TO 0261 04660906
470: 20260 IVFAIL = IVFAIL + 1 04670906
471: ZVCORR = (4.0, 4.0) 04680906
472: WRITE (NUVI, 80045) IVTNUM, BVC, ZVCORR 04690906
473: 0261 CONTINUE 04700906
474: CT027* TEST 27 04710906
475: IVTNUM = 27 04720906
476: IF (CVD - 0.4999999997D+01) 20270, 10270, 40270 04730906
477: 40270 IF (CVD - 0.5000000003D+01) 10270, 10270, 20270 04740906
478: 10270 IVPASS = IVPASS + 1 04750906
479: WRITE (NUVI, 80002) IVTNUM 04760906
480: GO TO 0271 04770906
481: 20270 IVFAIL = IVFAIL + 1 04780906
482: DVCORR = 5.0D0 04790906
483: WRITE (NUVI, 80031) IVTNUM, CVD, DVCORR 04800906
484: 0271 CONTINUE 04810906
485: CT028* TEST 28 04820906
486: IVTNUM = 28 04830906
487: A1D(3) = 3.0D0 04840906
488: READ(IRVI, *) (A1D(IVI), IVI=1,4) 04850906
489: IF (A1D(3) - 0.2999999998D+01) 20280, 10280, 40280 04860906
490: 40280 IF (A1D(3) - 0.3000000002D+01) 10280, 10280, 20280 04870906
491: 10280 IVPASS = IVPASS + 1 04880906
492: WRITE (NUVI, 80002) IVTNUM 04890906
493: GO TO 0281 04900906
494: 20280 IVFAIL = IVFAIL + 1 04910906
495: DVCORR = 3.0D0 04920906
496: WRITE (NUVI, 80031) IVTNUM, A1D(3), DVCORR 04930906
497: 0281 CONTINUE 04940906
498: CBB** ********************** BBCSUM0 **********************************04950906
499: C**** WRITE OUT TEST SUMMARY 04960906
500: C**** 04970906
501: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 04980906
502: WRITE (I02, 90004) 04990906
503: WRITE (I02, 90014) 05000906
504: WRITE (I02, 90004) 05010906
505: WRITE (I02, 90020) IVPASS 05020906
506: WRITE (I02, 90022) IVFAIL 05030906
507: WRITE (I02, 90024) IVDELE 05040906
508: WRITE (I02, 90026) IVINSP 05050906
509: WRITE (I02, 90028) IVTOTN, IVTOTL 05060906
510: CBE** ********************** BBCSUM0 **********************************05070906
511: CBB** ********************** BBCFOOT0 **********************************05080906
512: C**** WRITE OUT REPORT FOOTINGS 05090906
513: C**** 05100906
514: WRITE (I02,90016) ZPROG, ZPROG 05110906
515: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 05120906
516: WRITE (I02,90019) 05130906
517: CBE** ********************** BBCFOOT0 **********************************05140906
518: CBB** ********************** BBCFMT0A **********************************05150906
519: C**** FORMATS FOR TEST DETAIL LINES 05160906
520: C**** 05170906
521: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 05180906
522: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 05190906
523: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 05200906
524: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 05210906
525: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 05220906
526: 1I6,/,1H ,15X,10HCORRECT= ,I6) 05230906
527: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 05240906
528: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 05250906
529: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 05260906
530: 1A21,/,1H ,16X,10HCORRECT= ,A21) 05270906
531: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 05280906
532: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 05290906
533: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 05300906
534: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 05310906
535: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 05320906
536: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 05330906
537: 80050 FORMAT (1H ,48X,A31) 05340906
538: CBE** ********************** BBCFMT0A **********************************05350906
539: CBB** ********************** BBCFMAT1 **********************************05360906
540: C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 05370906
541: C**** 05380906
542: 80031 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 05390906
543: 1D17.10,/,1H ,16X,10HCORRECT= ,D17.10) 05400906
544: 80033 FORMAT (1H ,16X,10HCOMPUTED= ,D17.10,10X,A31) 05410906
545: 80035 FORMAT (1H ,16X,10HCORRECT= ,D17.10,10X,A31) 05420906
546: 80037 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 05430906
547: 80039 FORMAT (1H ,16X,10HCORRECT= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 05440906
548: 80041 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 05450906
549: 80043 FORMAT (1H ,16X,10HCORRECT= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 05460906
550: 80045 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 05470906
551: 11H(,F12.5,2H, ,F12.5,1H)/,1H ,16X,10HCORRECT= , 05480906
552: 21H(,F12.5,2H, ,F12.5,1H)) 05490906
553: CBE** ********************** BBCFMAT1 **********************************05500906
554: CBB** ********************** BBCFMT0B **********************************05510906
555: C**** FORMAT STATEMENTS FOR PAGE HEADERS 05520906
556: C**** 05530906
557: 90002 FORMAT (1H1) 05540906
558: 90004 FORMAT (1H ) 05550906
559: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 05560906
560: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 05570906
561: 90008 FORMAT (1H ,21X,A13,A17) 05580906
562: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 05590906
563: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 05600906
564: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 05610906
565: 1 7X,7HREMARKS,24X) 05620906
566: 90014 FORMAT (1H ,46H----------------------------------------------, 05630906
567: 1 33H---------------------------------) 05640906
568: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 05650906
569: C**** 05660906
570: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 05670906
571: C**** 05680906
572: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 05690906
573: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 05700906
574: 1 A13) 05710906
575: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 05720906
576: C**** 05730906
577: C**** FORMAT STATEMENTS FOR RUN SUMMARY 05740906
578: C**** 05750906
579: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 05760906
580: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 05770906
581: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 05780906
582: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 05790906
583: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 05800906
584: CBE** ********************** BBCFMT0B **********************************05810906
585: C***** 05820906
586: C***** END OF TEST SEGMENT 372 05830906
587: STOP 05840906
588: END 05850906
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.