![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM520.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 FM520.f CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / testf77 / tests |
1.1 root 1: PROGRAM FM520 00010520
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 00020520
6: C TESTING PARAMETER STATEMENT 00030520
7: C 00040520
8: C 00050520
9: CBB** ********************** BBCCOMNT **********************************00060520
10: C**** 00070520
11: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00080520
12: C**** VERSION 2.0 00090520
13: C**** 00100520
14: C**** 00110520
15: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00120520
16: C**** GENERAL SERVICES ADMINISTRATION 00130520
17: C**** FEDERAL SOFTWARE TESTING CENTER 00140520
18: C**** 5203 LEESBURG PIKE, SUITE 1100 00150520
19: C**** FALLS CHURCH, VA. 22041 00160520
20: C**** 00170520
21: C**** (703) 756-6153 00180520
22: C**** 00190520
23: CBE** ********************** BBCCOMNT **********************************00200520
24: IMPLICIT DOUBLE PRECISION (D), COMPLEX (Z), LOGICAL (L) 00210520
25: IMPLICIT CHARACTER*27 (C) 00220520
26: CBB** ********************** BBCINITA **********************************00230520
27: C**** SPECIFICATION STATEMENTS 00240520
28: C**** 00250520
29: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00260520
30: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00270520
31: CBE** ********************** BBCINITA **********************************00280520
32: C 00290520
33: PARAMETER(IPN001=5+5,IPN002=8-3,IPN003=1*5) 00300520
34: PARAMETER(RPN001=5.1+4.9,RPN002=8.7-3.7,RPN003=2.0*2.5) 00310520
35: C 00320520
36: C TEST 1 - 7 TEST INTEGER ARITHMETIC EXPRESSION USING 00330520
37: C ONLY SYMBOLIC NAMES OF ARITHMETIC CONSTANTS 00340520
38: C S06AF-2P 4.A 00350520
39: C 00360520
40: C 00370520
41: C 00380520
42: CBB** ********************** BBCINITB **********************************00390520
43: C**** INITIALIZE SECTION 00400520
44: DATA ZVERS, ZVERSD, ZDATE 00410520
45: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00420520
46: DATA ZCOMPL, ZNAME, ZTAPE 00430520
47: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00440520
48: DATA ZPROJ, ZTAPED, ZPROG 00450520
49: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00460520
50: DATA REMRKS /' '/ 00470520
51: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00480520
52: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00490520
53: C**** 00500520
54: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00510520
55: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00520520
56: CZ03 ZPROG = 'PROGRAM NAME' 00530520
57: ZDATE = '07-Nov-85 ' *RP
58: ZCOMPL = 'CCI 5.2 ' *RP
59: ZPROJ = 'TC-85- -410' *RP
60: ZNAME = ' ' *RP
61: ZTAPE = ' ' *RP
62: ZTAPED = '850703 ' *RP
63: C 00600520
64: IVPASS = 0 00610520
65: IVFAIL = 0 00620520
66: IVDELE = 0 00630520
67: IVINSP = 0 00640520
68: IVTOTL = 0 00650520
69: IVTOTN = 0 00660520
70: ICZERO = 0 00670520
71: C 00680520
72: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00690520
73: I01 = 05 00700520
74: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00710520
75: I02 = 06 00720520
76: C 00730520
77: I01 = 5 00740520
78: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00750520
79: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00760520
80: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00770520
81: C 00780520
82: I02 = 6 00790520
83: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00800520
84: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00810520
85: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00820520
86: C 00830520
87: CBE** ********************** BBCINITB **********************************00840520
88: ZPROG='FM520' 00850520
89: IVTOTL = 30 00860520
90: CBB** ********************** BBCHED0A **********************************00870520
91: C**** 00880520
92: C**** WRITE REPORT TITLE 00890520
93: C**** 00900520
94: WRITE (I02, 90002) 00910520
95: WRITE (I02, 90006) 00920520
96: WRITE (I02, 90007) 00930520
97: WRITE (I02, 90008) ZVERS, ZVERSD 00940520
98: WRITE (I02, 90009) ZPROG, ZPROG 00950520
99: WRITE (I02, 90010) ZDATE, ZCOMPL 00960520
100: CBE** ********************** BBCHED0A **********************************00970520
101: CBB** ********************** BBCHED0B **********************************00980520
102: C**** WRITE DETAIL REPORT HEADERS 00990520
103: C**** 01000520
104: WRITE (I02,90004) 01010520
105: WRITE (I02,90004) 01020520
106: WRITE (I02,90013) 01030520
107: WRITE (I02,90014) 01040520
108: WRITE (I02,90015) IVTOTL 01050520
109: CBE** ********************** BBCHED0B **********************************01060520
110: C 01070520
111: CT001* TEST 001 **** FCVS PROGRAM 520 **** 01080520
112: C 01090520
113: C 01100520
114: IVTNUM = 1 01110520
115: IVCOMP=+IPN001 01120520
116: IVCORR=+10 01130520
117: 40010 IF (IVCOMP - 10) 20010, 10010, 20010 01140520
118: 10010 IVPASS = IVPASS + 1 01150520
119: WRITE (I02,80002) IVTNUM 01160520
120: GO TO 0021 01170520
121: 20010 IVFAIL = IVFAIL + 1 01180520
122: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01190520
123: 0021 CONTINUE 01200520
124: C 01210520
125: CT002* TEST 002 **** FCVS PROGRAM 520 **** 01220520
126: C 01230520
127: C 01240520
128: IVTNUM = 2 01250520
129: IVCOMP=-IPN001 01260520
130: IVCORR=-10 01270520
131: 40020 IF (IVCOMP + 10) 20020, 10020, 20020 01280520
132: 10020 IVPASS = IVPASS + 1 01290520
133: WRITE (I02,80002) IVTNUM 01300520
134: GO TO 0031 01310520
135: 20020 IVFAIL = IVFAIL + 1 01320520
136: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01330520
137: 0031 CONTINUE 01340520
138: C 01350520
139: CT003* TEST 003 **** FCVS PROGRAM 520 **** 01360520
140: C 01370520
141: C 01380520
142: IVTNUM = 3 01390520
143: IVCOMP=IPN001+IPN002 01400520
144: IVCORR=15 01410520
145: 40030 IF (IVCOMP - 15) 20030, 10030, 20030 01420520
146: 10030 IVPASS = IVPASS + 1 01430520
147: WRITE (I02,80002) IVTNUM 01440520
148: GO TO 0041 01450520
149: 20030 IVFAIL = IVFAIL + 1 01460520
150: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01470520
151: 0041 CONTINUE 01480520
152: C 01490520
153: CT004* TEST 004 **** FCVS PROGRAM 520 **** 01500520
154: C 01510520
155: C 01520520
156: IVTNUM = 4 01530520
157: IVCOMP=IPN001-IPN002 01540520
158: IVCORR=5 01550520
159: 40040 IF (IVCOMP - 5) 20040, 10040, 20040 01560520
160: 10040 IVPASS = IVPASS + 1 01570520
161: WRITE (I02,80002) IVTNUM 01580520
162: GO TO 0051 01590520
163: 20040 IVFAIL = IVFAIL + 1 01600520
164: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01610520
165: 0051 CONTINUE 01620520
166: C 01630520
167: CT005* TEST 005 **** FCVS PROGRAM 520 **** 01640520
168: C 01650520
169: C 01660520
170: IVTNUM = 5 01670520
171: IVCOMP=IPN001*IPN002 01680520
172: IVCORR=50 01690520
173: 40050 IF (IVCOMP - 50) 20050, 10050, 20050 01700520
174: 10050 IVPASS = IVPASS + 1 01710520
175: WRITE (I02,80002) IVTNUM 01720520
176: GO TO 0061 01730520
177: 20050 IVFAIL = IVFAIL + 1 01740520
178: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01750520
179: 0061 CONTINUE 01760520
180: C 01770520
181: CT006* TEST 006 **** FCVS PROGRAM 520 **** 01780520
182: C 01790520
183: C 01800520
184: IVTNUM = 6 01810520
185: IVCOMP=IPN001/IPN002 01820520
186: IVCORR=2 01830520
187: 40060 IF (IVCOMP - 2) 20060, 10060, 20060 01840520
188: 10060 IVPASS = IVPASS + 1 01850520
189: WRITE (I02,80002) IVTNUM 01860520
190: GO TO 0071 01870520
191: 20060 IVFAIL = IVFAIL + 1 01880520
192: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01890520
193: 0071 CONTINUE 01900520
194: C 01910520
195: CT007* TEST 007 **** FCVS PROGRAM 520 **** 01920520
196: C 01930520
197: C 01940520
198: IVTNUM = 7 01950520
199: IVCOMP=IPN001**IPN002 01960520
200: IVCORR=100000 01970520
201: 40070 IF (IVCOMP - 100000) 20070, 10070, 20070 01980520
202: 10070 IVPASS = IVPASS + 1 01990520
203: WRITE (I02,80002) IVTNUM 02000520
204: GO TO 0081 02010520
205: 20070 IVFAIL = IVFAIL + 1 02020520
206: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02030520
207: 0081 CONTINUE 02040520
208: C 02050520
209: C 02060520
210: C TEST 8 - 14 TEST REAL ARITHMETIC EXPRESSION USING 02070520
211: C ONLY SYMBOLIC NAMES OF ARITHMETIC CONSTANTS 02080520
212: C S06AF-2P 4.A 02090520
213: C 02100520
214: CT008* TEST 008 **** FCVS PROGRAM 520 **** 02110520
215: C 02120520
216: C 02130520
217: IVTNUM = 8 02140520
218: RVCOMP=+RPN001 02150520
219: RVCORR=+10.0 02160520
220: IF (RVCOMP - 0.99995E+01) 20080, 10080, 40080 02170520
221: 40080 IF (RVCOMP - 0.10001E+02) 10080, 10080, 20080 02180520
222: 10080 IVPASS = IVPASS + 1 02190520
223: WRITE (I02,80002) IVTNUM 02200520
224: GO TO 0091 02210520
225: 20080 IVFAIL = IVFAIL + 1 02220520
226: WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 02230520
227: 0091 CONTINUE 02240520
228: C 02250520
229: CT009* TEST 009 **** FCVS PROGRAM 520 **** 02260520
230: C 02270520
231: C 02280520
232: IVTNUM = 9 02290520
233: RVCOMP=-RPN001 02300520
234: RVCORR=-10.0 02310520
235: IF (RVCOMP + 0.10001E+02) 20090, 10090, 40090 02320520
236: 40090 IF (RVCOMP + 0.99995E+01) 10090, 10090, 20090 02330520
237: 10090 IVPASS = IVPASS + 1 02340520
238: WRITE (I02,80002) IVTNUM 02350520
239: GO TO 0101 02360520
240: 20090 IVFAIL = IVFAIL + 1 02370520
241: WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 02380520
242: 0101 CONTINUE 02390520
243: C 02400520
244: CT010* TEST 010 **** FCVS PROGRAM 520 **** 02410520
245: C 02420520
246: IVTNUM = 10 02430520
247: RVCOMP=RPN001+RPN002 02440520
248: RVCORR=15.0 02450520
249: IF (RVCOMP - 0.14999E+02) 20100, 10100, 40100 02460520
250: 40100 IF (RVCOMP - 0.15001E+02) 10100, 10100, 20100 02470520
251: 10100 IVPASS = IVPASS + 1 02480520
252: WRITE (I02,80002) IVTNUM 02490520
253: GO TO 0111 02500520
254: 20100 IVFAIL = IVFAIL + 1 02510520
255: WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 02520520
256: 0111 CONTINUE 02530520
257: C 02540520
258: CT011* TEST 011 **** FCVS PROGRAM 520 **** 02550520
259: C 02560520
260: C 02570520
261: IVTNUM = 11 02580520
262: RVCOMP=RPN001-RPN002 02590520
263: RVCORR=5.0 02600520
264: IF (RVCOMP - 0.49997E+01) 20110, 10110, 40110 02610520
265: 40110 IF (RVCOMP - 0.50003E+01) 10110, 10110, 20110 02620520
266: 10110 IVPASS = IVPASS + 1 02630520
267: WRITE (I02,80002) IVTNUM 02640520
268: GO TO 0121 02650520
269: 20110 IVFAIL = IVFAIL + 1 02660520
270: WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 02670520
271: 0121 CONTINUE 02680520
272: C 02690520
273: CT012* TEST 012 **** FCVS PROGRAM 520 **** 02700520
274: C 02710520
275: C 02720520
276: IVTNUM = 12 02730520
277: RVCOMP=RPN001*RPN002 02740520
278: RVCORR=50.0 02750520
279: IF (RVCOMP - 0.49997E+02) 20120, 10120, 40120 02760520
280: 40120 IF (RVCOMP - 0.50003E+02) 10120, 10120, 20120 02770520
281: 10120 IVPASS = IVPASS + 1 02780520
282: WRITE (I02,80002) IVTNUM 02790520
283: GO TO 0131 02800520
284: 20120 IVFAIL = IVFAIL + 1 02810520
285: WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 02820520
286: 0131 CONTINUE 02830520
287: C 02840520
288: CT013* TEST 013 **** FCVS PROGRAM 520 **** 02850520
289: C 02860520
290: IVTNUM = 13 02870520
291: RVCOMP=RPN001/RPN002 02880520
292: RVCORR=2.0 02890520
293: IF (RVCOMP - 0.19999E+01) 20130, 10130, 40130 02900520
294: 40130 IF (RVCOMP - 0.20001E+01) 10130, 10130, 20130 02910520
295: 10130 IVPASS = IVPASS + 1 02920520
296: WRITE (I02,80002) IVTNUM 02930520
297: GO TO 0141 02940520
298: 20130 IVFAIL = IVFAIL + 1 02950520
299: WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 02960520
300: 0141 CONTINUE 02970520
301: C 02980520
302: CT014* TEST 014 **** FCVS PROGRAM 520 **** 02990520
303: C 03000520
304: IVTNUM = 14 03010520
305: RVCOMP=RPN001**RPN002 03020520
306: RVCORR=100000.0 03030520
307: IF (RVCOMP - 0.99995E+05) 20140, 10140, 40140 03040520
308: 40140 IF (RVCOMP - 0.10001E+06) 10140, 10140, 20140 03050520
309: 10140 IVPASS = IVPASS + 1 03060520
310: WRITE (I02,80002) IVTNUM 03070520
311: GO TO 0151 03080520
312: 20140 IVFAIL = IVFAIL + 1 03090520
313: WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 03100520
314: 0151 CONTINUE 03110520
315: C 03120520
316: C 03130520
317: C TEST 15 - 18 REPEATS TEST 1 - 7 USING MORE THAN ONE OPERATOR 03140520
318: C S06AF-2P 4.C 03150520
319: C 03160520
320: CT015* TEST 015 **** FCVS PROGRAM 520 **** 03170520
321: C 03180520
322: C 03190520
323: IVTNUM = 15 03200520
324: IVCOMP=IPN001+IPN001-IPN002 03210520
325: IVCORR=15 03220520
326: 40150 IF (IVCOMP - 15) 20150, 10150, 20150 03230520
327: 10150 IVPASS = IVPASS + 1 03240520
328: WRITE (I02,80002) IVTNUM 03250520
329: GO TO 0161 03260520
330: 20150 IVFAIL = IVFAIL + 1 03270520
331: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03280520
332: 0161 CONTINUE 03290520
333: C 03300520
334: CT016* TEST 016 **** FCVS PROGRAM 520 **** 03310520
335: C 03320520
336: IVTNUM = 16 03330520
337: IVCOMP=IPN001+IPN001-IPN002*IPN002 03340520
338: IVCORR=-5 03350520
339: 40160 IF (IVCOMP + 5) 20160, 10160, 20160 03360520
340: 10160 IVPASS = IVPASS + 1 03370520
341: WRITE (I02,80002) IVTNUM 03380520
342: GO TO 0171 03390520
343: 20160 IVFAIL = IVFAIL + 1 03400520
344: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03410520
345: 0171 CONTINUE 03420520
346: C 03430520
347: CT017* TEST 017 **** FCVS PROGRAM 520 **** 03440520
348: C 03450520
349: C 03460520
350: IVTNUM = 17 03470520
351: IVCOMP=IPN001+IPN001-IPN002*IPN002/IPN003 03480520
352: IVCORR=15 03490520
353: 40170 IF (IVCOMP - 15) 20170, 10170, 20170 03500520
354: 10170 IVPASS = IVPASS + 1 03510520
355: WRITE (I02,80002) IVTNUM 03520520
356: GO TO 0181 03530520
357: 20170 IVFAIL = IVFAIL + 1 03540520
358: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03550520
359: 0181 CONTINUE 03560520
360: C 03570520
361: CT018* TEST 018 **** FCVS PROGRAM 520 **** 03580520
362: C 03590520
363: IVTNUM = 18 03600520
364: IVCOMP=IPN001+IPN001**IPN002-IPN002*IPN002/IPN003 03610520
365: IVCORR=100005 03620520
366: 40180 IF (IVCOMP - 100005) 20180, 10180, 20180 03630520
367: 10180 IVPASS = IVPASS + 1 03640520
368: WRITE (I02,80002) IVTNUM 03650520
369: GO TO 0191 03660520
370: 20180 IVFAIL = IVFAIL + 1 03670520
371: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03680520
372: 0191 CONTINUE 03690520
373: C 03700520
374: C 03710520
375: C TEST 19 - 22 REPEATS TEST 8 - 14 USING MORE THAN ONE OPERATOR 03720520
376: C S06AF-2P 4.C 03730520
377: C 03740520
378: CT019* TEST 019 **** FCVS PROGRAM 520 **** 03750520
379: C 03760520
380: IVTNUM = 19 03770520
381: RVCOMP=RPN001+RPN001-RPN002 03780520
382: RVCORR=15.0 03790520
383: IF (RVCOMP - 0.14999E+02) 20190, 10190, 40190 03800520
384: 40190 IF (RVCOMP - 0.15001E+02) 10190, 10190, 20190 03810520
385: 10190 IVPASS = IVPASS + 1 03820520
386: WRITE (I02,80002) IVTNUM 03830520
387: GO TO 0201 03840520
388: 20190 IVFAIL = IVFAIL + 1 03850520
389: WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 03860520
390: 0201 CONTINUE 03870520
391: C 03880520
392: CT020* TEST 020 **** FCVS PROGRAM 520 **** 03890520
393: C 03900520
394: IVTNUM = 20 03910520
395: RVCOMP=RPN001+RPN001-RPN002*RPN002 03920520
396: RVCORR=-5.0 03930520
397: IF (RVCOMP + 0.50003E+01) 20200, 10200, 40200 03940520
398: 40200 IF (RVCOMP + 0.49997E+01) 10200, 10200, 20200 03950520
399: 10200 IVPASS = IVPASS + 1 03960520
400: WRITE (I02,80002) IVTNUM 03970520
401: GO TO 0211 03980520
402: 20200 IVFAIL = IVFAIL + 1 03990520
403: WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 04000520
404: 0211 CONTINUE 04010520
405: C 04020520
406: CT021* TEST 021 **** FCVS PROGRAM 520 **** 04030520
407: C 04040520
408: IVTNUM = 21 04050520
409: RVCOMP=RPN001+RPN001-RPN002*RPN002/RPN003 04060520
410: RVCORR=15.0 04070520
411: IF (RVCOMP - 0.14999E+02) 20210, 10210, 40210 04080520
412: 40210 IF (RVCOMP - 0.15001E+02) 10210, 10210, 20210 04090520
413: 10210 IVPASS = IVPASS + 1 04100520
414: WRITE (I02,80002) IVTNUM 04110520
415: GO TO 0221 04120520
416: 20210 IVFAIL = IVFAIL + 1 04130520
417: WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 04140520
418: 0221 CONTINUE 04150520
419: C 04160520
420: CT022* TEST 022 **** FCVS PROGRAM 520 **** 04170520
421: C 04180520
422: IVTNUM = 22 04190520
423: RVCOMP=RPN001+RPN001**RPN002-RPN002*RPN002/RPN003 04200520
424: RVCORR=100005.0 04210520
425: IF (RVCOMP - 0.10000E+06) 20220, 10220, 40220 04220520
426: 40220 IF (RVCOMP - 0.10001E+06) 10220, 10220, 20220 04230520
427: 10220 IVPASS = IVPASS + 1 04240520
428: WRITE (I02,80002) IVTNUM 04250520
429: GO TO 0231 04260520
430: 20220 IVFAIL = IVFAIL + 1 04270520
431: WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 04280520
432: 0231 CONTINUE 04290520
433: C 04300520
434: C 04310520
435: C TEST 23 - 26 REPEATS TEST 15 - 18 USING PARENTHESES 04320520
436: C S06AF-2P 4.D 04330520
437: C 04340520
438: C 04350520
439: C 04360520
440: CT023* TEST 023 **** FCVS PROGRAM 520 **** 04370520
441: C 04380520
442: IVTNUM = 23 04390520
443: IVCOMP=IPN001+(IPN001-IPN002) 04400520
444: IVCORR=15 04410520
445: 40230 IF (IVCOMP - 15) 20230, 10230, 20230 04420520
446: 10230 IVPASS = IVPASS + 1 04430520
447: WRITE (I02,80002) IVTNUM 04440520
448: GO TO 0241 04450520
449: 20230 IVFAIL = IVFAIL + 1 04460520
450: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 04470520
451: 0241 CONTINUE 04480520
452: C 04490520
453: CT024* TEST 024 **** FCVS PROGRAM 520 **** 04500520
454: C 04510520
455: IVTNUM = 24 04520520
456: IVCOMP=((IPN001+IPN001)-IPN002)*IPN002 04530520
457: IVCORR=75 04540520
458: 40240 IF (IVCOMP - 75) 20240, 10240, 20240 04550520
459: 10240 IVPASS = IVPASS + 1 04560520
460: WRITE (I02,80002) IVTNUM 04570520
461: GO TO 0251 04580520
462: 20240 IVFAIL = IVFAIL + 1 04590520
463: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 04600520
464: 0251 CONTINUE 04610520
465: C 04620520
466: CT025* TEST 025 **** FCVS PROGRAM 520 **** 04630520
467: C 04640520
468: IVTNUM = 25 04650520
469: IVCOMP=(IPN001+IPN001)-IPN002*(IPN002/IPN003) 04660520
470: IVCORR=15 04670520
471: 40250 IF (IVCOMP - 15) 20250, 10250, 20250 04680520
472: 10250 IVPASS = IVPASS + 1 04690520
473: WRITE (I02,80002) IVTNUM 04700520
474: GO TO 0261 04710520
475: 20250 IVFAIL = IVFAIL + 1 04720520
476: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 04730520
477: 0261 CONTINUE 04740520
478: C 04750520
479: CT026* TEST 026 **** FCVS PROGRAM 520 **** 04760520
480: C 04770520
481: IVTNUM = 26 04780520
482: IVCOMP=(IPN001+IPN001)**2-((IPN002*IPN002)/IPN003) 04790520
483: IVCORR=395 04800520
484: 40260 IF (IVCOMP - 395) 20260, 10260, 20260 04810520
485: 10260 IVPASS = IVPASS + 1 04820520
486: WRITE (I02,80002) IVTNUM 04830520
487: GO TO 0271 04840520
488: 20260 IVFAIL = IVFAIL + 1 04850520
489: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 04860520
490: 0271 CONTINUE 04870520
491: C 04880520
492: C TEST 27 - 30 REPEATS TEST 19 - 22 USING PARENTHESES 04890520
493: C S06AF-2P 4.D 04900520
494: C 04910520
495: CT027* TEST 027 **** FCVS PROGRAM 520 **** 04920520
496: C 04930520
497: IVTNUM = 27 04940520
498: RVCOMP=RPN001+(RPN001-RPN002) 04950520
499: RVCORR=15.0 04960520
500: IF (RVCOMP - 0.14999E+02) 20270, 10270, 40270 04970520
501: 40270 IF (RVCOMP - 0.15001E+02) 10270, 10270, 20270 04980520
502: 10270 IVPASS = IVPASS + 1 04990520
503: WRITE (I02,80002) IVTNUM 05000520
504: GO TO 0281 05010520
505: 20270 IVFAIL = IVFAIL + 1 05020520
506: WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 05030520
507: 0281 CONTINUE 05040520
508: C 05050520
509: CT028* TEST 028 **** FCVS PROGRAM 520 **** 05060520
510: C 05070520
511: IVTNUM = 28 05080520
512: RVCOMP=((RPN001+RPN001)-RPN002)*RPN002 05090520
513: RVCORR=75.0 05100520
514: IF (RVCOMP - 0.74996E+02) 20280, 10280, 40280 05110520
515: 40280 IF (RVCOMP - 0.75004E+02) 10280, 10280, 20280 05120520
516: 10280 IVPASS = IVPASS + 1 05130520
517: WRITE (I02,80002) IVTNUM 05140520
518: GO TO 0291 05150520
519: 20280 IVFAIL = IVFAIL + 1 05160520
520: WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 05170520
521: 0291 CONTINUE 05180520
522: C 05190520
523: CT029* TEST 029 **** FCVS PROGRAM 520 **** 05200520
524: C 05210520
525: IVTNUM = 29 05220520
526: RVCOMP=(RPN001+RPN001)-RPN002*(RPN002/RPN003) 05230520
527: RVCORR=15.0 05240520
528: IF (RVCOMP - 0.14999E+02) 20290, 10290, 40290 05250520
529: 40290 IF (RVCOMP - 0.15001E+02) 10290, 10290, 20290 05260520
530: 10290 IVPASS = IVPASS + 1 05270520
531: WRITE (I02,80002) IVTNUM 05280520
532: GO TO 0301 05290520
533: 20290 IVFAIL = IVFAIL + 1 05300520
534: WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 05310520
535: 0301 CONTINUE 05320520
536: C 05330520
537: CT030* TEST 030 **** FCVS PROGRAM 520 **** 05340520
538: C 05350520
539: C 05360520
540: IVTNUM = 30 05370520
541: RVCOMP=(RPN001+RPN001)**3.0-((RPN002*RPN002)/RPN003) 05380520
542: RVCORR=7995.0 05390520
543: IF (RVCOMP - 0.79946E+04) 20300, 10300, 40300 05400520
544: 40300 IF (RVCOMP - 0.79954E+04) 10300, 10300, 20300 05410520
545: 10300 IVPASS = IVPASS + 1 05420520
546: WRITE (I02,80002) IVTNUM 05430520
547: GO TO 0311 05440520
548: 20300 IVFAIL = IVFAIL + 1 05450520
549: WRITE (I02,80012) IVTNUM, RVCOMP, RVCORR 05460520
550: 0311 CONTINUE 05470520
551: C 05480520
552: CBB** ********************** BBCSUM0 **********************************05490520
553: C**** WRITE OUT TEST SUMMARY 05500520
554: C**** 05510520
555: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 05520520
556: WRITE (I02, 90004) 05530520
557: WRITE (I02, 90014) 05540520
558: WRITE (I02, 90004) 05550520
559: WRITE (I02, 90020) IVPASS 05560520
560: WRITE (I02, 90022) IVFAIL 05570520
561: WRITE (I02, 90024) IVDELE 05580520
562: WRITE (I02, 90026) IVINSP 05590520
563: WRITE (I02, 90028) IVTOTN, IVTOTL 05600520
564: CBE** ********************** BBCSUM0 **********************************05610520
565: CBB** ********************** BBCFOOT0 **********************************05620520
566: C**** WRITE OUT REPORT FOOTINGS 05630520
567: C**** 05640520
568: WRITE (I02,90016) ZPROG, ZPROG 05650520
569: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 05660520
570: WRITE (I02,90019) 05670520
571: CBE** ********************** BBCFOOT0 **********************************05680520
572: 90001 FORMAT (1H ,56X,5HFM520) 05690520
573: 90000 FORMAT (1H ,50X,20HEND OF PROGRAM FM520) 05700520
574: CBB** ********************** BBCFMT0A **********************************05710520
575: C**** FORMATS FOR TEST DETAIL LINES 05720520
576: C**** 05730520
577: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 05740520
578: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 05750520
579: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 05760520
580: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 05770520
581: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 05780520
582: 1I6,/,1H ,15X,10HCORRECT= ,I6) 05790520
583: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 05800520
584: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 05810520
585: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 05820520
586: 1A21,/,1H ,16X,10HCORRECT= ,A21) 05830520
587: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 05840520
588: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 05850520
589: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 05860520
590: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 05870520
591: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 05880520
592: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 05890520
593: 80050 FORMAT (1H ,48X,A31) 05900520
594: CBE** ********************** BBCFMT0A **********************************05910520
595: CBB** ********************** BBCFMAT1 **********************************05920520
596: C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 05930520
597: C**** 05940520
598: 80031 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 05950520
599: 1D17.10,/,1H ,16X,10HCORRECT= ,D17.10) 05960520
600: 80033 FORMAT (1H ,16X,10HCOMPUTED= ,D17.10,10X,A31) 05970520
601: 80035 FORMAT (1H ,16X,10HCORRECT= ,D17.10,10X,A31) 05980520
602: 80037 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 05990520
603: 80039 FORMAT (1H ,16X,10HCORRECT= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 06000520
604: 80041 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 06010520
605: 80043 FORMAT (1H ,16X,10HCORRECT= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 06020520
606: 80045 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 06030520
607: 11H(,F12.5,2H, ,F12.5,1H)/,1H ,16X,10HCORRECT= , 06040520
608: 21H(,F12.5,2H, ,F12.5,1H)) 06050520
609: CBE** ********************** BBCFMAT1 **********************************06060520
610: CBB** ********************** BBCFMT0B **********************************06070520
611: C**** FORMAT STATEMENTS FOR PAGE HEADERS 06080520
612: C**** 06090520
613: 90002 FORMAT (1H1) 06100520
614: 90004 FORMAT (1H ) 06110520
615: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 06120520
616: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 06130520
617: 90008 FORMAT (1H ,21X,A13,A17) 06140520
618: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 06150520
619: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 06160520
620: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 06170520
621: 1 7X,7HREMARKS,24X) 06180520
622: 90014 FORMAT (1H ,46H----------------------------------------------, 06190520
623: 1 33H---------------------------------) 06200520
624: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 06210520
625: C**** 06220520
626: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 06230520
627: C**** 06240520
628: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 06250520
629: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 06260520
630: 1 A13) 06270520
631: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 06280520
632: C**** 06290520
633: C**** FORMAT STATEMENTS FOR RUN SUMMARY 06300520
634: C**** 06310520
635: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 06320520
636: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 06330520
637: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 06340520
638: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 06350520
639: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 06360520
640: CBE** ********************** BBCFMT0B **********************************06370520
641: END 06380520
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.