![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM357.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 FM357.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***********************************************************************00010357
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 00020357
6: C***** FM357 XAMOD - (159) 00030357
7: C***** 00040357
8: C***********************************************************************00050357
9: C***** GENERAL PURPOSE ANS REF 00060357
10: C***** TEST INTRINSIC FUNCTIONS AMOD AND MOD - REMAINDERING, 15.3 00070357
11: C***** WHICH IS DEFINED AS A1-(A1/A2)A2 WHERE (X) IS AN (TABLE 5)00080357
12: C***** INTEGER WHOSE MAGNITUDE IS LE ABS(X) AND WHOSE SIGN 00090357
13: C***** IS THE SAME AS X. 00100357
14: C***** 00110357
15: CBB** ********************** BBCCOMNT **********************************00120357
16: C**** 00130357
17: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00140357
18: C**** VERSION 2.0 00150357
19: C**** 00160357
20: C**** 00170357
21: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00180357
22: C**** GENERAL SERVICES ADMINISTRATION 00190357
23: C**** FEDERAL SOFTWARE TESTING CENTER 00200357
24: C**** 5203 LEESBURG PIKE, SUITE 1100 00210357
25: C**** FALLS CHURCH, VA. 22041 00220357
26: C**** 00230357
27: C**** (703) 756-6153 00240357
28: C**** 00250357
29: CBE** ********************** BBCCOMNT **********************************00260357
30: CBB** ********************** BBCINITA **********************************00270357
31: C**** SPECIFICATION STATEMENTS 00280357
32: C**** 00290357
33: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00300357
34: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00310357
35: CBE** ********************** BBCINITA **********************************00320357
36: CBB** ********************** BBCINITB **********************************00330357
37: C**** INITIALIZE SECTION 00340357
38: DATA ZVERS, ZVERSD, ZDATE 00350357
39: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00360357
40: DATA ZCOMPL, ZNAME, ZTAPE 00370357
41: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00380357
42: DATA ZPROJ, ZTAPED, ZPROG 00390357
43: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00400357
44: DATA REMRKS /' '/ 00410357
45: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00420357
46: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00430357
47: C**** 00440357
48: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00450357
49: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00460357
50: CZ03 ZPROG = 'PROGRAM NAME' 00470357
51: ZDATE = '07-Nov-85 ' *RP
52: ZCOMPL = 'CCI 5.2 ' *RP
53: ZPROJ = 'TC-85- -410' *RP
54: ZNAME = ' ' *RP
55: ZTAPE = ' ' *RP
56: ZTAPED = '850703 ' *RP
57: C 00540357
58: IVPASS = 0 00550357
59: IVFAIL = 0 00560357
60: IVDELE = 0 00570357
61: IVINSP = 0 00580357
62: IVTOTL = 0 00590357
63: IVTOTN = 0 00600357
64: ICZERO = 0 00610357
65: C 00620357
66: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00630357
67: I01 = 05 00640357
68: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00650357
69: I02 = 06 00660357
70: C 00670357
71: I01 = 5 00680357
72: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00690357
73: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00700357
74: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00710357
75: C 00720357
76: I02 = 6 00730357
77: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00740357
78: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00750357
79: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00760357
80: C 00770357
81: CBE** ********************** BBCINITB **********************************00780357
82: NUVI = I02 00790357
83: IVTOTL = 22 00800357
84: ZPROG = 'FM357' 00810357
85: CBB** ********************** BBCHED0A **********************************00820357
86: C**** 00830357
87: C**** WRITE REPORT TITLE 00840357
88: C**** 00850357
89: WRITE (I02, 90002) 00860357
90: WRITE (I02, 90006) 00870357
91: WRITE (I02, 90007) 00880357
92: WRITE (I02, 90008) ZVERS, ZVERSD 00890357
93: WRITE (I02, 90009) ZPROG, ZPROG 00900357
94: WRITE (I02, 90010) ZDATE, ZCOMPL 00910357
95: CBE** ********************** BBCHED0A **********************************00920357
96: C***** 00930357
97: C***** HEADER FOR SEGMENT 159 WRITTEN 00940357
98: WRITE (NUVI,15901) 00950357
99: 15901 FORMAT (1H , //, 2X,35HXAMOD - (159) INTRINSIC FUNCTION-- //16X,00960357
100: 1 24HAMOD, MOD (REMAINDERING)//19H SUBSET REF. - 15.3) 00970357
101: CBB** ********************** BBCHED0B **********************************00980357
102: C**** WRITE DETAIL REPORT HEADERS 00990357
103: C**** 01000357
104: WRITE (I02,90004) 01010357
105: WRITE (I02,90004) 01020357
106: WRITE (I02,90013) 01030357
107: WRITE (I02,90014) 01040357
108: WRITE (I02,90015) IVTOTL 01050357
109: CBE** ********************** BBCHED0B **********************************01060357
110: C***** 01070357
111: C***** TEST OF AMOD 01080357
112: C***** 01090357
113: WRITE(NUVI, 15902) 01100357
114: 15902 FORMAT (/ 8X, 12HTEST OF AMOD) 01110357
115: C***** 01120357
116: CT001* TEST 1 FIRST VALUE ZERO, SECOND NON-ZERO 01130357
117: IVTNUM = 1 01140357
118: REBVS = 0.0 01150357
119: REDVS = 4.5 01160357
120: REAVS = AMOD(REBVS, REDVS) 01170357
121: IF (REAVS + 0.00005) 20010, 10010, 40010 01180357
122: 40010 IF (REAVS - 0.00005) 10010, 10010, 20010 01190357
123: 10010 IVPASS = IVPASS + 1 01200357
124: WRITE (NUVI, 80002) IVTNUM 01210357
125: GO TO 0011 01220357
126: 20010 IVFAIL = IVFAIL + 1 01230357
127: RVCORR = 0.0 01240357
128: WRITE (NUVI,80012) IVTNUM, REAVS, RVCORR 01250357
129: 0011 CONTINUE 01260357
130: CT002* TEST 2 BOTH VALUES EQUAL 01270357
131: IVTNUM = 2 01280357
132: REBVS = 3.5 01290357
133: REDVS = 3.5 01300357
134: REAVS = AMOD(REBVS, REDVS) 01310357
135: IF (REAVS + 0.00005) 20020, 10020, 40020 01320357
136: 40020 IF (REAVS - 0.00005) 10020, 10020, 20020 01330357
137: 10020 IVPASS = IVPASS + 1 01340357
138: WRITE (NUVI, 80002) IVTNUM 01350357
139: GO TO 0021 01360357
140: 20020 IVFAIL = IVFAIL + 1 01370357
141: RVCORR = 0.0 01380357
142: WRITE(NUVI, 80012) IVTNUM, REAVS, RVCORR 01390357
143: 0021 CONTINUE 01400357
144: CT003* TEST 3 FIRST MAGNITUDE LARGER, NOT MULTIPLE OF SECOND 01410357
145: IVTNUM = 3 01420357
146: REBVS = -10.9 01430357
147: REDVS = -3.3 01440357
148: REAVS = AMOD(REBVS, REDVS) 01450357
149: IF (REAVS + 1.0001) 20030, 10030, 40030 01460357
150: 40030 IF (REAVS + 0.99995) 10030, 10030, 20030 01470357
151: 10030 IVPASS = IVPASS + 1 01480357
152: WRITE (NUVI, 80002) IVTNUM 01490357
153: GO TO 0031 01500357
154: 20030 IVFAIL = IVFAIL + 1 01510357
155: RVCORR = -1.0 01520357
156: WRITE(NUVI, 80012) IVTNUM, REAVS, RVCORR 01530357
157: 0031 CONTINUE 01540357
158: CT004* TEST 4 FIRST MAGNITUDE LARGER, MULTIPLE OF SECOND 01550357
159: IVTNUM = 4 01560357
160: REDVS = 1.5 01570357
161: REBVS = 1.5 + REDVS + 1.5 01580357
162: REAVS = AMOD(REBVS, REDVS) 01590357
163: IF (REAVS + 0.00005) 20040, 10040, 40040 01600357
164: 40040 IF (REAVS - 0.00005) 10040, 10040, 20040 01610357
165: 10040 IVPASS = IVPASS + 1 01620357
166: WRITE (NUVI, 80002) IVTNUM 01630357
167: GO TO 0041 01640357
168: 20040 IVFAIL = IVFAIL + 1 01650357
169: RVCORR = 0.0 01660357
170: WRITE(NUVI, 80012) IVTNUM, REAVS, RVCORR 01670357
171: 0041 CONTINUE 01680357
172: CT005* TEST 5 FIRST MAGNITUDE LARGER, NOT MULTIPLE OF SECOND 01690357
173: IVTNUM = 5 01700357
174: REBVS = 7.625 01710357
175: REDVS = 2.125 01720357
176: REAVS = AMOD(REBVS, REDVS) 01730357
177: IF (REAVS - 1.2499) 20050, 10050, 40050 01740357
178: 40050 IF (REAVS - 1.2501) 10050, 10050, 20050 01750357
179: 10050 IVPASS = IVPASS + 1 01760357
180: WRITE (NUVI, 80002) IVTNUM 01770357
181: GO TO 0051 01780357
182: 20050 IVFAIL = IVFAIL + 1 01790357
183: RVCORR = 1.25 01800357
184: WRITE(NUVI, 80012) IVTNUM, REAVS, RVCORR 01810357
185: 0051 CONTINUE 01820357
186: CT006* TEST 6 FIRST VALUE ZERO, SECOND NEGATIVE 01830357
187: IVTNUM = 6 01840357
188: REBVS = 0.0 01850357
189: REDVS = -4.5 01860357
190: REAVS = AMOD(REBVS, REDVS) 01870357
191: IF (REAVS + 0.00005) 20060, 10060, 40060 01880357
192: 40060 IF (REAVS - 0.00005) 10060, 10060, 20060 01890357
193: 10060 IVPASS = IVPASS + 1 01900357
194: WRITE (NUVI, 80002) IVTNUM 01910357
195: GO TO 0061 01920357
196: 20060 IVFAIL = IVFAIL + 1 01930357
197: RVCORR = 0.0 01940357
198: WRITE(NUVI, 80012) IVTNUM, REAVS, RVCORR 01950357
199: 0061 CONTINUE 01960357
200: CT007* TEST 7 BOTH VALUES EQUAL, BOTH NEGATIVE 01970357
201: IVTNUM = 7 01980357
202: REBVS = -3.5 01990357
203: REDVS = -3.5 02000357
204: REAVS = AMOD(REBVS, REDVS) 02010357
205: IF (REAVS + 0.00005) 20070, 10070, 40070 02020357
206: 40070 IF (REAVS - 0.00005) 10070, 10070, 20070 02030357
207: 10070 IVPASS = IVPASS + 1 02040357
208: WRITE (NUVI, 80002) IVTNUM 02050357
209: GO TO 0071 02060357
210: 20070 IVFAIL = IVFAIL + 1 02070357
211: RVCORR = 0.0 02080357
212: WRITE(NUVI, 80012) IVTNUM, REAVS, RVCORR 02090357
213: 0071 CONTINUE 02100357
214: CT008* TEST 8 FIRST VALUE NEGATIVE, SECOND POSITIVE, MULTIPLE 02110357
215: IVTNUM = 8 02120357
216: REBVS = 1.5 02130357
217: REDVS = -(1.5 + REDVS + 1.5) 02140357
218: REAVS = AMOD(-REBVS, -REDVS) 02150357
219: IF (REAVS + 0.00005) 20080, 10080, 40080 02160357
220: 40080 IF (REAVS - 0.00005) 10080, 10080, 20080 02170357
221: 10080 IVPASS = IVPASS + 1 02180357
222: WRITE (NUVI, 80002) IVTNUM 02190357
223: GO TO 0081 02200357
224: 20080 IVFAIL = IVFAIL + 1 02210357
225: RVCORR = 0.0 02220357
226: WRITE(NUVI, 80012) IVTNUM, REAVS, RVCORR 02230357
227: 0081 CONTINUE 02240357
228: CT009* TEST 9 FIRST MAGNITUDE LARGER, NOT MULTIPLE OF SECOND 02250357
229: IVTNUM = 9 02260357
230: REBVS = 10.5 02270357
231: REDVS = -3.3 02280357
232: REAVS = AMOD(REBVS, REDVS) 02290357
233: IF (REAVS - 0.59997) 20090, 10090, 40090 02300357
234: 40090 IF (REAVS - 0.60003) 10090, 10090, 20090 02310357
235: 10090 IVPASS = IVPASS + 1 02320357
236: WRITE (NUVI, 80002) IVTNUM 02330357
237: GO TO 0091 02340357
238: 20090 IVFAIL = IVFAIL + 1 02350357
239: RVCORR = 0.6 02360357
240: WRITE(NUVI, 80012) IVTNUM, REAVS, RVCORR 02370357
241: 0091 CONTINUE 02380357
242: CT010* TEST 10 PAIR OF ARITHMETIC EXPRESSIONS USED AS ARGUMENT 02390357
243: IVTNUM = 10 02400357
244: RECVS = 7.625 02410357
245: REDVS = 2.125 02420357
246: REFVS = 2.0 02430357
247: REAVS = AMOD(RECVS - REFVS, REDVS + REFVS) 02440357
248: IF (REAVS - 1.4999) 20100, 10100, 40100 02450357
249: 40100 IF (REAVS - 1.5001) 10100, 10100, 20100 02460357
250: 10100 IVPASS = IVPASS + 1 02470357
251: WRITE (NUVI, 80002) IVTNUM 02480357
252: GO TO 0101 02490357
253: 20100 IVFAIL = IVFAIL + 1 02500357
254: RVCORR = 1.5 02510357
255: WRITE(NUVI, 80012) IVTNUM, REAVS, RVCORR 02520357
256: 0101 CONTINUE 02530357
257: CT011* TEST 11 TEST LOW AND HIGH MAGNITUDE ARGUMENTS 02540357
258: IVTNUM = 11 02550357
259: RECVS = 1.0E-16 02560357
260: REDVS = 1.0E+16 02570357
261: REAVS = AMOD(RECVS, REDVS) 02580357
262: IF (REAVS - 0.99995E-16) 20110, 10110, 40110 02590357
263: 40110 IF (REAVS - 1.0001E-16) 10110, 10110, 20110 02600357
264: 10110 IVPASS = IVPASS + 1 02610357
265: WRITE (NUVI, 80002) IVTNUM 02620357
266: GO TO 0111 02630357
267: 20110 IVFAIL = IVFAIL + 1 02640357
268: RVCORR = 1.0E-16 02650357
269: WRITE(NUVI, 80012) IVTNUM, REAVS, RVCORR 02660357
270: 0111 CONTINUE 02670357
271: C***** 02680357
272: C***** TEST OF MOD 02690357
273: C***** 02700357
274: WRITE(NUVI, 15904) 02710357
275: 15904 FORMAT (/ 8X, 11HTEST OF MOD) 02720357
276: C***** 02730357
277: CT012* TEST 12 FIRST VALUE ZERO, SECOND NON-ZERO 02740357
278: IVTNUM = 12 02750357
279: IEBVI = 0 02760357
280: IEDVI = 4 02770357
281: IEAVI = MOD(IEBVI, IEDVI) 02780357
282: IF (IEAVI - 0) 20120, 10120, 20120 02790357
283: 10120 IVPASS = IVPASS + 1 02800357
284: WRITE (NUVI, 80002) IVTNUM 02810357
285: GO TO 0121 02820357
286: 20120 IVFAIL = IVFAIL + 1 02830357
287: IVCORR = 0 02840357
288: WRITE (NUVI, 80010) IVTNUM, IEAVI, IVCORR 02850357
289: 0121 CONTINUE 02860357
290: CT013* TEST 13 BOTH VALUES EQUAL 02870357
291: IVTNUM = 13 02880357
292: IEBVI = 3 02890357
293: IEDVI = 3 02900357
294: IEAVI = MOD(IEBVI, IEDVI) 02910357
295: IF (IEAVI - 0) 20130, 10130, 20130 02920357
296: 10130 IVPASS = IVPASS + 1 02930357
297: WRITE (NUVI, 80002) IVTNUM 02940357
298: GO TO 0131 02950357
299: 20130 IVFAIL = IVFAIL + 1 02960357
300: IVCORR = 0 02970357
301: WRITE (NUVI, 80010) IVTNUM, IEAVI, IVCORR 02980357
302: 0131 CONTINUE 02990357
303: CT014* TEST 14 FIRST MAGNITUDE LARGER, NOT MULTIPLE OF SECOND 03000357
304: IVTNUM = 14 03010357
305: IEBVI = -10 03020357
306: IEDVI = -3 03030357
307: IEAVI = MOD(IEBVI, IEDVI) 03040357
308: IF (IEAVI + 1) 20140, 10140, 20140 03050357
309: 10140 IVPASS = IVPASS + 1 03060357
310: WRITE (NUVI, 80002) IVTNUM 03070357
311: GO TO 0141 03080357
312: 20140 IVFAIL = IVFAIL + 1 03090357
313: IVCORR = -1 03100357
314: WRITE (NUVI, 80010) IVTNUM, IEAVI, IVCORR 03110357
315: 0141 CONTINUE 03120357
316: CT015* TEST 15 FIRST MAGNITUDE LARGER, MULTIPLE OF SECOND 03130357
317: IVTNUM = 15 03140357
318: IEBVI = 9 03150357
319: IEDVI = 3 03160357
320: IEAVI = MOD(IEBVI, IEDVI) 03170357
321: IF (IEAVI - 0) 20150, 10150, 20150 03180357
322: 10150 IVPASS = IVPASS + 1 03190357
323: WRITE (NUVI, 80002) IVTNUM 03200357
324: GO TO 0151 03210357
325: 20150 IVFAIL = IVFAIL + 1 03220357
326: IVCORR = 0 03230357
327: WRITE (NUVI, 80010) IVTNUM, IEAVI, IVCORR 03240357
328: 0151 CONTINUE 03250357
329: CT016* TEST 16 FIRST MAGNITUDE LARGER, NOT MULTIPLE OF SECOND 03260357
330: IVTNUM = 16 03270357
331: IEBVI = 7 03280357
332: IEDVI = 2 03290357
333: IEAVI = MOD(IEBVI, IEDVI) 03300357
334: IF (IEAVI - 1) 20160, 10160, 20160 03310357
335: 10160 IVPASS = IVPASS + 1 03320357
336: WRITE (NUVI, 80002) IVTNUM 03330357
337: GO TO 0161 03340357
338: 20160 IVFAIL = IVFAIL + 1 03350357
339: IVCORR = 1 03360357
340: WRITE (NUVI, 80010) IVTNUM, IEAVI, IVCORR 03370357
341: 0161 CONTINUE 03380357
342: CT017* TEST 17 FIRST VALUE ZERO, SECOND NEGATIVE 03390357
343: IVTNUM = 17 03400357
344: IEBVI = 0 03410357
345: IEDVI = -4 03420357
346: IEAVI = MOD(IEBVI, IEDVI) 03430357
347: IF (IEAVI - 0) 20170, 10170, 20170 03440357
348: 10170 IVPASS = IVPASS + 1 03450357
349: WRITE (NUVI, 80002) IVTNUM 03460357
350: GO TO 0171 03470357
351: 20170 IVFAIL = IVFAIL + 1 03480357
352: IVCORR = 0 03490357
353: WRITE (NUVI, 80010) IVTNUM, IEAVI, IVCORR 03500357
354: 0171 CONTINUE 03510357
355: CT018* TEST 18 BOTH VALUES EQUAL, BOTH NEGATIVE 03520357
356: IVTNUM = 18 03530357
357: IEBVI = -3 03540357
358: IEDVI = -3 03550357
359: IEAVI = MOD(IEBVI, IEDVI) 03560357
360: IF (IEAVI - 0) 20180, 10180, 20180 03570357
361: 10180 IVPASS = IVPASS + 1 03580357
362: WRITE (NUVI, 80002) IVTNUM 03590357
363: GO TO 0181 03600357
364: 20180 IVFAIL = IVFAIL + 1 03610357
365: IVCORR = 0 03620357
366: WRITE (NUVI, 80010) IVTNUM, IEAVI, IVCORR 03630357
367: 0181 CONTINUE 03640357
368: CT019* TEST 19 FIRST MAGNITUDE LARGER, MULTIPLE, BOTH NEGATIVE 03650357
369: IVTNUM = 19 03660357
370: IEBVI = -9 03670357
371: IEDVI = -3 03680357
372: IEAVI = MOD(IEBVI, IEDVI) 03690357
373: IF (IEAVI - 0) 20190, 10190, 20190 03700357
374: 10190 IVPASS = IVPASS + 1 03710357
375: WRITE (NUVI, 80002) IVTNUM 03720357
376: GO TO 0191 03730357
377: 20190 IVFAIL = IVFAIL + 1 03740357
378: IVCORR = 0 03750357
379: WRITE (NUVI, 80010) IVTNUM, IEAVI, IVCORR 03760357
380: 0191 CONTINUE 03770357
381: CT020* TEST 20 FIRST NUMBER NEGATIVE, SECOND POSITIVE, MULTIPLE 03780357
382: IVTNUM = 20 03790357
383: IEBVI = -9 03800357
384: IEDVI = 3 03810357
385: IEAVI = MOD(IEBVI, IEDVI) 03820357
386: IF (IEAVI - 0) 20200, 10200, 20200 03830357
387: 10200 IVPASS = IVPASS + 1 03840357
388: WRITE (NUVI, 80002) IVTNUM 03850357
389: GO TO 0201 03860357
390: 20200 IVFAIL = IVFAIL + 1 03870357
391: IVCORR = 0 03880357
392: WRITE (NUVI, 80010) IVTNUM, IEAVI, IVCORR 03890357
393: 0201 CONTINUE 03900357
394: CT021* TEST 21 FIRST VALUE ZERO PRECEDED BY MINUS SIGN 03910357
395: IVTNUM = 21 03920357
396: IEBVI = 0 03930357
397: IEDVI = 4 03940357
398: IEAVI = MOD(-IEBVI, IEDVI) 03950357
399: IF (IEAVI - 0) 20210, 10210, 20210 03960357
400: 10210 IVPASS = IVPASS + 1 03970357
401: WRITE (NUVI, 80002) IVTNUM 03980357
402: GO TO 0211 03990357
403: 20210 IVFAIL = IVFAIL + 1 04000357
404: IVCORR = 0 04010357
405: WRITE (NUVI, 80010) IVTNUM, IEAVI, IVCORR 04020357
406: 0211 CONTINUE 04030357
407: CT022* TEST 22 PAIR OF ARITHMETIC EXPRESSIONS USED AS ARGUMENT 04040357
408: IVTNUM = 22 04050357
409: IEDVI = 10 04060357
410: IEEVI = 3 04070357
411: IEFVI = 2 04080357
412: IEAVI = MOD(IEDVI - IEFVI, IEEVI + IEFVI) 04090357
413: IF (IEAVI - 3) 20220, 10220, 20220 04100357
414: 10220 IVPASS = IVPASS + 1 04110357
415: WRITE (NUVI, 80002) IVTNUM 04120357
416: GO TO 0221 04130357
417: 20220 IVFAIL = IVFAIL + 1 04140357
418: IVCORR = 3 04150357
419: WRITE (NUVI, 80010) IVTNUM, IEAVI, IVCORR 04160357
420: 0221 CONTINUE 04170357
421: C***** 04180357
422: CBB** ********************** BBCSUM0 **********************************04190357
423: C**** WRITE OUT TEST SUMMARY 04200357
424: C**** 04210357
425: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 04220357
426: WRITE (I02, 90004) 04230357
427: WRITE (I02, 90014) 04240357
428: WRITE (I02, 90004) 04250357
429: WRITE (I02, 90020) IVPASS 04260357
430: WRITE (I02, 90022) IVFAIL 04270357
431: WRITE (I02, 90024) IVDELE 04280357
432: WRITE (I02, 90026) IVINSP 04290357
433: WRITE (I02, 90028) IVTOTN, IVTOTL 04300357
434: CBE** ********************** BBCSUM0 **********************************04310357
435: CBB** ********************** BBCFOOT0 **********************************04320357
436: C**** WRITE OUT REPORT FOOTINGS 04330357
437: C**** 04340357
438: WRITE (I02,90016) ZPROG, ZPROG 04350357
439: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 04360357
440: WRITE (I02,90019) 04370357
441: CBE** ********************** BBCFOOT0 **********************************04380357
442: CBB** ********************** BBCFMT0A **********************************04390357
443: C**** FORMATS FOR TEST DETAIL LINES 04400357
444: C**** 04410357
445: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 04420357
446: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 04430357
447: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 04440357
448: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 04450357
449: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 04460357
450: 1I6,/,1H ,15X,10HCORRECT= ,I6) 04470357
451: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 04480357
452: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 04490357
453: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 04500357
454: 1A21,/,1H ,16X,10HCORRECT= ,A21) 04510357
455: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 04520357
456: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 04530357
457: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 04540357
458: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 04550357
459: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 04560357
460: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 04570357
461: 80050 FORMAT (1H ,48X,A31) 04580357
462: CBE** ********************** BBCFMT0A **********************************04590357
463: CBB** ********************** BBCFMT0B **********************************04600357
464: C**** FORMAT STATEMENTS FOR PAGE HEADERS 04610357
465: C**** 04620357
466: 90002 FORMAT (1H1) 04630357
467: 90004 FORMAT (1H ) 04640357
468: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 04650357
469: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 04660357
470: 90008 FORMAT (1H ,21X,A13,A17) 04670357
471: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 04680357
472: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 04690357
473: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 04700357
474: 1 7X,7HREMARKS,24X) 04710357
475: 90014 FORMAT (1H ,46H----------------------------------------------, 04720357
476: 1 33H---------------------------------) 04730357
477: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 04740357
478: C**** 04750357
479: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 04760357
480: C**** 04770357
481: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 04780357
482: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 04790357
483: 1 A13) 04800357
484: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 04810357
485: C**** 04820357
486: C**** FORMAT STATEMENTS FOR RUN SUMMARY 04830357
487: C**** 04840357
488: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 04850357
489: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 04860357
490: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 04870357
491: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 04880357
492: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 04890357
493: CBE** ********************** BBCFMT0B **********************************04900357
494: C***** 04910357
495: C***** END OF TEST SEGMENT 159 04920357
496: STOP 04930357
497: END 04940357
498: 04950357
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.