![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to fm045.f CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDTahoe / usr.bin / f77 / testf77 / tests|
Return to fm045.f CVS log | Up to [CSRG BSD Unix] / 43BSDTahoe / usr.bin / f77 / testf77 / tests |
1.1 root 1: c comment section
2: c
3: c fm045
4: c
5: c this routine tests arithmetic assignments using integer
6: c variables connected by a series of arithmetic operators.
7: c different combinations of parenthetical notation are exercized.
8: c
9: c
10: c references
11: c american national standard programming language fortran,
12: c x3.9-1978
13: c
14: c section 4.3, integer type
15: c section 4.3.1, integer constant
16: c section 6.1, arithmetic expressions
17: c section 6.6, evaluation of expressions
18: c section 10.1, arithmetic assignment statement
19: c
20: c
21: c
22: c **********************************************************
23: c
24: c a compiler validation system for the fortran language
25: c based on specifications as defined in american national standard
26: c programming language fortran x3.9-1978, has been developed by the
27: c federal cobol compiler testing service. the fortran compiler
28: c validation system (fcvs) consists of audit routines, their related
29: c data, and an executive system. each audit routine is a fortran
30: c program, subprogram or function which includes tests of specific
31: c language elements and supporting procedures indicating the result
32: c of executing these tests.
33: c
34: c this particular program/subprogram/function contains features
35: c found only in the subset as defined in x3.9-1978.
36: c
37: c suggestions and comments should be forwarded to -
38: c
39: c department of the navy
40: c federal cobol compiler testing service
41: c washington, d.c. 20376
42: c
43: c **********************************************************
44: c
45: c
46: c
47: c initialization section
48: c
49: c initialize constants
50: c **************
51: c i01 contains the logical unit number for the card reader.
52: i01 = 5
53: c i02 contains the logical unit number for the printer.
54: i02 = 6
55: c system environment section
56: c
57: cx010 this card is replaced by contents of fexec x-010 control card.
58: c the cx010 card is for overriding the program default i01 = 5
59: c (unit number for card reader).
60: cx011 this card is replaced by contents of fexec x-011 control card.
61: c the cx011 card is for systems which require additional
62: c fortran statements for files associated with cx010 above.
63: c
64: cx020 this card is replaced by contents of fexec x-020 control card.
65: c the cx020 card is for overriding the program default i02 = 6
66: c (unit number for printer).
67: cx021 this card is replaced by contents of fexec x-021 control card.
68: c the cx021 card is for systems which require additional
69: c fortran statements for files associated with cx020 above.
70: c
71: ivpass=0
72: ivfail=0
73: ivdele=0
74: iczero=0
75: c
76: c write page headers
77: write (i02,90000)
78: write (i02,90001)
79: write (i02,90002)
80: write (i02, 90002)
81: write (i02,90003)
82: write (i02,90002)
83: write (i02,90004)
84: write (i02,90002)
85: write (i02,90011)
86: write (i02,90002)
87: write (i02,90002)
88: write (i02,90005)
89: write (i02,90006)
90: write (i02,90002)
91: c
92: c
93: c test section
94: c
95: c arithmetic assignment statement
96: c
97: c
98: c tests 747 through 755 use the same string of variables and
99: c operators, but use different combinations of parenthetical
100: c notation to alter priorities in order of evaluation.
101: c
102: c tests 756 through 759 check the capability to enclose the entire
103: c right hand side of an assignment statement in parentheses or sets
104: c of nested parentheses.
105: c
106: c
107: c
108: c
109: c
110: c
111: c
112: ivtnum = 747
113: c
114: c **** test 747 ****
115: c
116: if (iczero) 37470, 7470, 37470
117: 7470 continue
118: ivon01 = 15
119: ivon02 = 9
120: ivon03 = 4
121: ivon04 = 18
122: ivon05 = 6
123: ivon06 = 2
124: ivcomp = ivon01 + ivon02 - ivon03 * ivon04 / ivon05 ** ivon06
125: go to 47470
126: 37470 ivdele = ivdele + 1
127: write (i02,80003) ivtnum
128: if (iczero) 47470, 7481, 47470
129: 47470 if (ivcomp - 22) 27470,17470,27470
130: 17470 ivpass = ivpass + 1
131: write (i02,80001) ivtnum
132: go to 7481
133: 27470 ivfail = ivfail + 1
134: ivcorr = 22
135: write (i02,80004) ivtnum, ivcomp, ivcorr
136: 7481 continue
137: ivtnum = 748
138: c
139: c **** test 748 ****
140: c
141: if (iczero) 37480, 7480, 37480
142: 7480 continue
143: ivon01 = 15
144: ivon02 = 9
145: ivon03 = 4
146: ivon04 = 18
147: ivon05 = 6
148: ivon06 = 2
149: ivcomp = ((((ivon01 + ivon02) - ivon03) * ivon04) / ivon05)
150: * ** ivon06
151: go to 47480
152: 37480 ivdele = ivdele + 1
153: write (i02,80003) ivtnum
154: if (iczero) 47480, 7491, 47480
155: 47480 if (ivcomp - 3600) 27480,17480,27480
156: 17480 ivpass = ivpass + 1
157: write (i02,80001) ivtnum
158: go to 7491
159: 27480 ivfail = ivfail + 1
160: ivcorr = 3600
161: write (i02,80004) ivtnum, ivcomp, ivcorr
162: 7491 continue
163: ivtnum = 749
164: c
165: c **** test 749 ****
166: c
167: if (iczero) 37490, 7490, 37490
168: 7490 continue
169: ivon01 = 15
170: ivon02 = 9
171: ivon03 = 4
172: ivon04 = 36
173: ivon05 = 6
174: ivon06 = 2
175: ivcomp = (ivon01 + ivon02 - ivon03) * (ivon04 / ivon05 ** ivon06)
176: go to 47490
177: 37490 ivdele = ivdele + 1
178: write (i02,80003) ivtnum
179: if (iczero) 47490, 7501, 47490
180: 47490 if (ivcomp - 20) 27490,17490,27490
181: 17490 ivpass = ivpass + 1
182: write (i02,80001) ivtnum
183: go to 7501
184: 27490 ivfail = ivfail + 1
185: ivcorr = 20
186: write (i02,80004) ivtnum, ivcomp, ivcorr
187: 7501 continue
188: ivtnum = 750
189: c
190: c **** test 750 ****
191: c
192: if (iczero) 37500, 7500, 37500
193: 7500 continue
194: ivon01 = 15
195: ivon02 = 9
196: ivon03 = 4
197: ivon04 = 36
198: ivon05 = 6
199: ivon06 = 2
200: ivcomp = (ivon01 + ivon02) - (ivon03 * ivon04) / (ivon05 **
201: * ivon06)
202: go to 47500
203: 37500 ivdele = ivdele + 1
204: write (i02,80003) ivtnum
205: if (iczero) 47500, 7511, 47500
206: 47500 if (ivcomp - 20) 27500,17500,27500
207: 17500 ivpass = ivpass + 1
208: write (i02,80001) ivtnum
209: go to 7511
210: 27500 ivfail = ivfail + 1
211: ivcorr = 20
212: write (i02,80004) ivtnum, ivcomp, ivcorr
213: 7511 continue
214: ivtnum = 751
215: c
216: c **** test 751 ****
217: c
218: if (iczero) 37510, 7510, 37510
219: 7510 continue
220: ivon01 = 15
221: ivon02 = 9
222: ivon03 = 4
223: ivon04 = 36
224: ivon05 = 6
225: ivon06 = 2
226: ivcomp = ((ivon01 + ivon02) - (ivon03 * ivon04)) / (ivon05 **
227: * ivon06)
228: go to 47510
229: 37510 ivdele = ivdele + 1
230: write (i02,80003) ivtnum
231: if (iczero) 47510, 7521, 47510
232: 47510 if (ivcomp + 3) 27510,17510,27510
233: 17510 ivpass = ivpass + 1
234: write (i02,80001) ivtnum
235: go to 7521
236: 27510 ivfail = ivfail + 1
237: ivcorr = -3
238: c actual answer is -3.333333... truncation is necessary
239: write (i02,80004) ivtnum, ivcomp, ivcorr
240: 7521 continue
241: ivtnum = 752
242: c
243: c **** test 752 ****
244: c
245: if (iczero) 37520, 7520, 37520
246: 7520 continue
247: ivon01 = 15
248: ivon02 = 9
249: ivon03 = 4
250: ivon04 = 36
251: ivon05 = 6
252: ivon06 = 2
253: ivcomp = (ivon01 + ivon02) - (ivon03 * ivon04 / ivon05) ** ivon06
254: go to 47520
255: 37520 ivdele = ivdele + 1
256: write (i02,80003) ivtnum
257: if (iczero) 47520, 7531, 47520
258: 47520 if (ivcomp + 552) 27520,17520,27520
259: 17520 ivpass = ivpass + 1
260: write (i02,80001) ivtnum
261: go to 7531
262: 27520 ivfail = ivfail + 1
263: ivcorr = -552
264: write (i02,80004) ivtnum, ivcomp, ivcorr
265: 7531 continue
266: ivtnum = 753
267: c
268: c **** test 753 ****
269: c
270: if (iczero) 37530, 7530, 37530
271: 7530 continue
272: ivon01 = 15
273: ivon02 = 9
274: ivon03 = 4
275: ivon04 = 36
276: ivon05 = 6
277: ivon06 = 2
278: ivcomp = ivon01 + (ivon02 - ivon03 * ivon04) / ivon05 ** ivon06
279: go to 47530
280: 37530 ivdele = ivdele + 1
281: write (i02,80003) ivtnum
282: if (iczero) 47530, 7541, 47530
283: 47530 if (ivcomp - 12) 27530,17530,27530
284: 17530 ivpass = ivpass + 1
285: write (i02,80001) ivtnum
286: go to 7541
287: 27530 ivfail = ivfail + 1
288: ivcorr = 12
289: c actual answer is 11.25 truncation is necessary
290: c during an intermediate step
291: write (i02,80004) ivtnum, ivcomp, ivcorr
292: 7541 continue
293: ivtnum = 754
294: c
295: c **** test 754 ****
296: c
297: if (iczero) 37540, 7540, 37540
298: 7540 continue
299: ivon01 = 15
300: ivon02 = 9
301: ivon03 = 4
302: ivon04 = 36
303: ivon05 = 6
304: ivon06 = 2
305: ivcomp = ivon01 + (ivon02 - ivon03) * (ivon04 / ivon05) ** ivon06
306: go to 47540
307: 37540 ivdele = ivdele + 1
308: write (i02,80003) ivtnum
309: if (iczero) 47540, 7551, 47540
310: 47540 if (ivcomp - 195) 27540,17540,27540
311: 17540 ivpass = ivpass + 1
312: write (i02,80001) ivtnum
313: go to 7551
314: 27540 ivfail = ivfail + 1
315: ivcorr = 195
316: write (i02,80004) ivtnum, ivcomp, ivcorr
317: 7551 continue
318: ivtnum = 755
319: c
320: c **** test 755 ****
321: c
322: if (iczero) 37550, 7550, 37550
323: 7550 continue
324: ivon01 = 15
325: ivon02 = 9
326: ivon03 = 4
327: ivon04 = 36
328: ivon05 = 6
329: ivon06 = 2
330: ivcomp = ((ivon01 + (ivon02 - ivon03) * ivon04) / ivon05) **
331: * ivon06
332: go to 47550
333: 37550 ivdele = ivdele + 1
334: write (i02,80003) ivtnum
335: if (iczero) 47550, 7561, 47550
336: 47550 if (ivcomp - 1024) 27550,17550,27550
337: 17550 ivpass = ivpass + 1
338: write (i02,80001) ivtnum
339: go to 7561
340: 27550 ivfail = ivfail + 1
341: ivcorr = 1024
342: c actual answer is 1056.25 truncation is necessary
343: c during an intermediate step
344: write (i02,80004) ivtnum, ivcomp, ivcorr
345: 7561 continue
346: ivtnum = 756
347: c
348: c **** test 756 ****
349: c single parentheses
350: c
351: if (iczero) 37560, 7560, 37560
352: 7560 continue
353: ivon01 = 13
354: ivon02 = 37
355: ivcomp = (ivon01 + ivon02)
356: go to 47560
357: 37560 ivdele = ivdele + 1
358: write (i02,80003) ivtnum
359: if (iczero) 47560, 7571, 47560
360: 47560 if (ivcomp - 50) 27560,17560,27560
361: 17560 ivpass = ivpass + 1
362: write (i02,80001) ivtnum
363: go to 7571
364: 27560 ivfail = ivfail + 1
365: ivcorr = 50
366: write (i02,80004) ivtnum, ivcomp, ivcorr
367: 7571 continue
368: ivtnum = 757
369: c
370: c **** test 757 ****
371: c nested parentheses (two sets)
372: c
373: if (iczero) 37570, 7570, 37570
374: 7570 continue
375: ivon01 = 13
376: ivon02 = 37
377: ivcomp = ((ivon01 - ivon02))
378: go to 47570
379: 37570 ivdele = ivdele + 1
380: write (i02,80003) ivtnum
381: if (iczero) 47570, 7581, 47570
382: 47570 if (ivcomp + 24) 27570,17570,27570
383: 17570 ivpass = ivpass + 1
384: write (i02,80001) ivtnum
385: go to 7581
386: 27570 ivfail = ivfail + 1
387: ivcorr = -24
388: write (i02,80004) ivtnum, ivcomp, ivcorr
389: 7581 continue
390: ivtnum = 758
391: c
392: c **** test 758 ****
393: c nested parentheses (21 sets - same line)
394: c
395: if (iczero) 37580, 7580, 37580
396: 7580 continue
397: ivon01 = 13
398: ivon02 = 37
399: ivcomp = (((((((((((((((((((((ivon01 * ivon02)))))))))))))))))))))
400: go to 47580
401: 37580 ivdele = ivdele + 1
402: write (i02,80003) ivtnum
403: if (iczero) 47580, 7591, 47580
404: 47580 if (ivcomp - 481) 27580,17580,27580
405: 17580 ivpass = ivpass + 1
406: write (i02,80001) ivtnum
407: go to 7591
408: 27580 ivfail = ivfail + 1
409: ivcorr = 481
410: write (i02,80004) ivtnum, ivcomp, ivcorr
411: 7591 continue
412: ivtnum = 759
413: c
414: c **** test 759 ****
415: c nested parentheses (57 sets - multiple lines)
416: c
417: if (iczero) 37590, 7590, 37590
418: 7590 continue
419: ivon01 = 13
420: ivon02 = 37
421: ivcomp = (((((((((((((((((((((((((((((((((((((((((((((((((((((((((
422: * ivon01 / ivon02
423: * )))))))))))))))))))))))))))))))))))))))))))))))))))))))))
424: go to 47590
425: 37590 ivdele = ivdele + 1
426: write (i02,80003) ivtnum
427: if (iczero) 47590, 7601, 47590
428: 47590 if (ivcomp) 27590,17590,27590
429: 17590 ivpass = ivpass + 1
430: write (i02,80001) ivtnum
431: go to 7601
432: 27590 ivfail = ivfail + 1
433: ivcorr = 0
434: write (i02,80004) ivtnum, ivcomp, ivcorr
435: 7601 continue
436: c
437: c write page footings and run summaries
438: 99999 continue
439: write (i02,90002)
440: write (i02,90006)
441: write (i02,90002)
442: write (i02,90002)
443: write (i02,90007)
444: write (i02,90002)
445: write (i02,90008) ivfail
446: write (i02,90009) ivpass
447: write (i02,90010) ivdele
448: c
449: c
450: c terminate routine execution
451: stop
452: c
453: c format statements for page headers
454: 90000 format (1h1)
455: 90002 format (1h )
456: 90001 format (1h ,10x,34hfortran compiler validation system)
457: 90003 format (1h ,21x,11hversion 1.0)
458: 90004 format (1h ,10x,38hfor official use only - copyright 1978)
459: 90005 format (1h ,5x,4htest,5x,9hpass/fail, 5x,8hcomputed,8x,7hcorrect)
460: 90006 format (1h ,5x,46h----------------------------------------------)
461: 90011 format (1h ,18x,17hsubset level test)
462: c
463: c format statements for run summaries
464: 90008 format (1h ,15x,i5,19h errors encountered)
465: 90009 format (1h ,15x,i5,13h tests passed)
466: 90010 format (1h ,15x,i5,14h tests deleted)
467: c
468: c format statements for test results
469: 80001 format (1h ,4x,i5,7x,4hpass)
470: 80002 format (1h ,4x,i5,7x,4hfail)
471: 80003 format (1h ,4x,i5,7x,7hdeleted)
472: 80004 format (1h ,4x,i5,7x,4hfail,10x,i6,9x,i6)
473: 80005 format (1h ,4x,i5,7x,4hfail,4x,e12.5,3x,e12.5)
474: c
475: 90007 format (1h ,20x,20hend of program fm045)
476: end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.