![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to fm037.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 fm037.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 fm037
4: c
5: c this routine tests arithmetic assignment statements of the
6: c form
7: c integer variable = arithmetic expression
8: c where the arithmetic expression is formed with three integer
9: c constants and the arithmetic operator /. both positive and nega-
10: c tive constants are used in the arithmetic expression.
11: c
12: c there are tests which require no truncation of the result
13: c and tests where the result must be truncated before being stored
14: c in the resultant integer variable. the standard states 'the value
15: c of an integer factor or term is the nearest integer whose magni-
16: c tude does not exceed the magnitude of the mathematical value
17: c represented by that factor or term. the associative and commuta-
18: c tive laws do not apply in the evaluation of integer terms con-
19: c taining division, hence the evaluation of such terms must effec-
20: c tively proceed from left to right.'
21: c
22: c there are tests where the arithmetic expression contains
23: c (1) integer constant/integer constant/integer constant
24: c no truncation required
25: c (2) integer constant/integer constant/integer constant
26: c truncation required
27: c
28: c references
29: c american national standard programming language fortran,
30: c x3.9-1978
31: c
32: c section 4.3, integer type
33: c section 4.3.1, integer constant
34: c section 6.1, arithmetic expressions
35: c section 6.6, evaluation of expressions
36: c section 10.1, arithmetic assignment statement
37: c
38: c **********************************************************
39: c
40: c a compiler validation system for the fortran language
41: c based on specifications as defined in american national standard
42: c programming language fortran x3.9-1978, has been developed by the
43: c federal cobol compiler testing service. the fortran compiler
44: c validation system (fcvs) consists of audit routines, their related
45: c data, and an executive system. each audit routine is a fortran
46: c program, subprogram or function which includes tests of specific
47: c language elements and supporting procedures indicating the result
48: c of executing these tests.
49: c
50: c this particular program/subprogram/function contains features
51: c found only in the subset as defined in x3.9-1978.
52: c
53: c suggestions and comments should be forwarded to -
54: c
55: c department of the navy
56: c federal cobol compiler testing service
57: c washington, d.c. 20376
58: c
59: c **********************************************************
60: c
61: c
62: c
63: c initialization section
64: c
65: c initialize constants
66: c **************
67: c i01 contains the logical unit number for the card reader.
68: i01 = 5
69: c i02 contains the logical unit number for the printer.
70: i02 = 6
71: c system environment section
72: c
73: cx010 this card is replaced by contents of fexec x-010 control card.
74: c the cx010 card is for overriding the program default i01 = 5
75: c (unit number for card reader).
76: cx011 this card is replaced by contents of fexec x-011 control card.
77: c the cx011 card is for systems which require additional
78: c fortran statements for files associated with cx010 above.
79: c
80: cx020 this card is replaced by contents of fexec x-020 control card.
81: c the cx020 card is for overriding the program default i02 = 6
82: c (unit number for printer).
83: cx021 this card is replaced by contents of fexec x-021 control card.
84: c the cx021 card is for systems which require additional
85: c fortran statements for files associated with cx020 above.
86: c
87: ivpass=0
88: ivfail=0
89: ivdele=0
90: iczero=0
91: c
92: c write page headers
93: write (i02,90000)
94: write (i02,90001)
95: write (i02,90002)
96: write (i02, 90002)
97: write (i02,90003)
98: write (i02,90002)
99: write (i02,90004)
100: write (i02,90002)
101: write (i02,90011)
102: write (i02,90002)
103: write (i02,90002)
104: write (i02,90005)
105: write (i02,90006)
106: write (i02,90002)
107: c
108: c test section
109: c
110: c arithmetic assignment statement
111: c
112: c test 491 through test 519 contain three integer constants and
113: c operator / in an arithmetic expression. the form tested is
114: c integer variable = integer constant/integer constant/int.con.
115: c
116: c
117: c test 491 through test 496 - positive integer constants
118: c no truncation required
119: c
120: 4911 continue
121: ivtnum = 491
122: c
123: c **** test 491 ****
124: c
125: if (iczero) 34910, 4910, 34910
126: 4910 continue
127: ivcomp = 24/3/4
128: go to 44910
129: 34910 ivdele = ivdele + 1
130: write (i02,80003) ivtnum
131: if (iczero) 44910, 4921, 44910
132: 44910 if (ivcomp - 2) 24910,14910,24910
133: 14910 ivpass = ivpass + 1
134: write (i02,80001) ivtnum
135: go to 4921
136: 24910 ivfail = ivfail + 1
137: ivcorr = 2
138: write (i02,80004) ivtnum, ivcomp ,ivcorr
139: 4921 continue
140: ivtnum = 492
141: c
142: c **** test 492 ****
143: c
144: if (iczero) 34920, 4920, 34920
145: 4920 continue
146: ivcomp = 330/3/2
147: go to 44920
148: 34920 ivdele = ivdele + 1
149: write (i02,80003) ivtnum
150: if (iczero) 44920, 4931, 44920
151: 44920 if (ivcomp - 55) 24920,14920,24920
152: 14920 ivpass = ivpass + 1
153: write (i02,80001) ivtnum
154: go to 4931
155: 24920 ivfail = ivfail + 1
156: ivcorr = 55
157: write (i02,80004) ivtnum, ivcomp ,ivcorr
158: 4931 continue
159: ivtnum = 493
160: c
161: c **** test 493 ****
162: c
163: if (iczero) 34930, 4930, 34930
164: 4930 continue
165: ivcomp = 15249/13/51
166: go to 44930
167: 34930 ivdele = ivdele + 1
168: write (i02,80003) ivtnum
169: if (iczero) 44930, 4941, 44930
170: 44930 if (ivcomp - 23) 24930,14930,24930
171: 14930 ivpass = ivpass + 1
172: write (i02,80001) ivtnum
173: go to 4941
174: 24930 ivfail = ivfail + 1
175: ivcorr = 23
176: write (i02,80004) ivtnum, ivcomp ,ivcorr
177: 4941 continue
178: ivtnum = 494
179: c
180: c **** test 494 ****
181: c
182: if (iczero) 34940, 4940, 34940
183: 4940 continue
184: ivcomp = 7150/2/25
185: go to 44940
186: 34940 ivdele = ivdele + 1
187: write (i02,80003) ivtnum
188: if (iczero) 44940, 4951, 44940
189: 44940 if (ivcomp - 143) 24940,14940,24940
190: 14940 ivpass = ivpass + 1
191: write (i02,80001) ivtnum
192: go to 4951
193: 24940 ivfail = ivfail + 1
194: ivcorr = 143
195: write (i02,80004) ivtnum, ivcomp ,ivcorr
196: 4951 continue
197: ivtnum = 495
198: c
199: c **** test 495 ****
200: c
201: if (iczero) 34950, 4950, 34950
202: 4950 continue
203: ivcomp = 32766/2/3
204: go to 44950
205: 34950 ivdele = ivdele + 1
206: write (i02,80003) ivtnum
207: if (iczero) 44950, 4961, 44950
208: 44950 if (ivcomp - 5461) 24950,14950,24950
209: 14950 ivpass = ivpass + 1
210: write (i02,80001) ivtnum
211: go to 4961
212: 24950 ivfail = ivfail + 1
213: ivcorr = 5461
214: write (i02,80004) ivtnum, ivcomp ,ivcorr
215: 4961 continue
216: ivtnum = 496
217: c
218: c **** test 496 ****
219: c
220: if (iczero) 34960, 4960, 34960
221: 4960 continue
222: ivcomp = 32766/1/1
223: go to 44960
224: 34960 ivdele = ivdele + 1
225: write (i02,80003) ivtnum
226: if (iczero) 44960, 4971, 44960
227: 44960 if (ivcomp - 32766) 24960,14960,24960
228: 14960 ivpass = ivpass + 1
229: write (i02,80001) ivtnum
230: go to 4971
231: 24960 ivfail = ivfail + 1
232: ivcorr = 32766
233: write (i02,80004) ivtnum, ivcomp ,ivcorr
234: c
235: c test 497 through test 502 - positive integer constants
236: c truncation required
237: c
238: 4971 continue
239: ivtnum = 497
240: c
241: c **** test 497 ****
242: c
243: if (iczero) 34970, 4970, 34970
244: 4970 continue
245: ivcomp = 24/3/3
246: go to 44970
247: 34970 ivdele = ivdele + 1
248: write (i02,80003) ivtnum
249: if (iczero) 44970, 4981, 44970
250: 44970 if (ivcomp -2) 24970,14970,24970
251: 14970 ivpass = ivpass + 1
252: write (i02,80001) ivtnum
253: go to 4981
254: 24970 ivfail = ivfail + 1
255: ivcorr = 2
256: write (i02,80004) ivtnum, ivcomp ,ivcorr
257: 4981 continue
258: ivtnum = 498
259: c
260: c **** test 498 ****
261: c
262: if (iczero) 34980, 4980, 34980
263: 4980 continue
264: ivcomp = 230/2/3
265: go to 44980
266: 34980 ivdele = ivdele + 1
267: write (i02,80003) ivtnum
268: if (iczero) 44980, 4991, 44980
269: 44980 if (ivcomp - 38) 24980,14980,24980
270: 14980 ivpass = ivpass + 1
271: write (i02,80001) ivtnum
272: go to 4991
273: 24980 ivfail = ivfail + 1
274: ivcorr = 38
275: write (i02,80004) ivtnum, ivcomp ,ivcorr
276: 4991 continue
277: ivtnum = 499
278: c
279: c **** test 499 ****
280: c
281: if (iczero) 34990, 4990, 34990
282: 4990 continue
283: ivcomp = 7151/3/10
284: go to 44990
285: 34990 ivdele = ivdele + 1
286: write (i02,80003) ivtnum
287: if (iczero) 44990, 5001, 44990
288: 44990 if (ivcomp - 238) 24990,14990,24990
289: 14990 ivpass = ivpass + 1
290: write (i02,80001) ivtnum
291: go to 5001
292: 24990 ivfail = ivfail + 1
293: ivcorr = 238
294: write (i02,80004) ivtnum, ivcomp ,ivcorr
295: 5001 continue
296: ivtnum = 500
297: c
298: c **** test 500 ****
299: c
300: if (iczero) 35000, 5000, 35000
301: 5000 continue
302: ivcomp = 15248/51/13
303: go to 45000
304: 35000 ivdele = ivdele + 1
305: write (i02,80003) ivtnum
306: if (iczero) 45000, 5011, 45000
307: 45000 if (ivcomp - 22) 25000,15000,25000
308: 15000 ivpass = ivpass + 1
309: write (i02,80001) ivtnum
310: go to 5011
311: 25000 ivfail = ivfail + 1
312: ivcorr = 22
313: write (i02,80004) ivtnum, ivcomp ,ivcorr
314: 5011 continue
315: ivtnum = 501
316: c
317: c **** test 501 ****
318: c
319: if (iczero) 35010, 5010, 35010
320: 5010 continue
321: ivcomp = 27342/4/3
322: go to 45010
323: 35010 ivdele = ivdele + 1
324: write (i02,80003) ivtnum
325: if (iczero) 45010, 5021, 45010
326: 45010 if (ivcomp - 2278) 25010,15010,25010
327: 15010 ivpass = ivpass + 1
328: write (i02,80001) ivtnum
329: go to 5021
330: 25010 ivfail = ivfail + 1
331: ivcorr = 2278
332: write (i02,80004) ivtnum, ivcomp ,ivcorr
333: 5021 continue
334: ivtnum = 502
335: c
336: c **** test 502 ****
337: c
338: if (iczero) 35020, 5020, 35020
339: 5020 continue
340: ivcomp = 32767/2/1
341: go to 45020
342: 35020 ivdele = ivdele + 1
343: write (i02,80003) ivtnum
344: if (iczero) 45020, 5031, 45020
345: 45020 if (ivcomp - 16383) 25020,15020,25020
346: 15020 ivpass = ivpass + 1
347: write (i02,80001) ivtnum
348: go to 5031
349: 25020 ivfail = ivfail + 1
350: ivcorr = 16383
351: write (i02,80004) ivtnum, ivcomp ,ivcorr
352: c
353: c test 503 through test 507 - negative integer constants included
354: c no truncation required
355: c
356: 5031 continue
357: ivtnum = 503
358: c
359: c **** test 503 ****
360: c
361: if (iczero) 35030, 5030, 35030
362: 5030 continue
363: ivcomp = -24/3/4
364: go to 45030
365: 35030 ivdele = ivdele + 1
366: write (i02,80003) ivtnum
367: if (iczero) 45030, 5041, 45030
368: 45030 if (ivcomp +2) 25030,15030,25030
369: 15030 ivpass = ivpass + 1
370: write (i02,80001) ivtnum
371: go to 5041
372: 25030 ivfail = ivfail + 1
373: ivcorr = -2
374: write (i02,80004) ivtnum, ivcomp ,ivcorr
375: 5041 continue
376: ivtnum = 504
377: c
378: c **** test 504 ****
379: c
380: if (iczero) 35040, 5040, 35040
381: 5040 continue
382: ivcomp = 330/(-3)/2
383: go to 45040
384: 35040 ivdele = ivdele + 1
385: write (i02,80003) ivtnum
386: if (iczero) 45040, 5051, 45040
387: 45040 if (ivcomp + 55) 25040,15040,25040
388: 15040 ivpass = ivpass + 1
389: write (i02,80001) ivtnum
390: go to 5051
391: 25040 ivfail = ivfail + 1
392: ivcorr = -55
393: write (i02,80004) ivtnum, ivcomp ,ivcorr
394: 5051 continue
395: ivtnum = 505
396: c
397: c **** test 505 ****
398: c
399: if (iczero) 35050, 5050, 35050
400: 5050 continue
401: ivcomp = 15249/(-13)/(-51)
402: go to 45050
403: 35050 ivdele = ivdele + 1
404: write (i02,80003) ivtnum
405: if (iczero) 45050, 5061, 45050
406: 45050 if (ivcomp - 23) 25050,15050,25050
407: 15050 ivpass = ivpass + 1
408: write (i02,80001) ivtnum
409: go to 5061
410: 25050 ivfail = ivfail + 1
411: ivcorr = 23
412: write (i02,80004) ivtnum, ivcomp ,ivcorr
413: 5061 continue
414: ivtnum = 506
415: c
416: c **** test 506 ****
417: c
418: if (iczero) 35060, 5060, 35060
419: 5060 continue
420: ivcomp = -7150/(-2)/(-25)
421: go to 45060
422: 35060 ivdele = ivdele + 1
423: write (i02,80003) ivtnum
424: if (iczero) 45060, 5071, 45060
425: 45060 if (ivcomp + 143) 25060,15060,25060
426: 15060 ivpass = ivpass + 1
427: write (i02,80001) ivtnum
428: go to 5071
429: 25060 ivfail = ivfail + 1
430: ivcorr = -143
431: write (i02,80004) ivtnum, ivcomp ,ivcorr
432: 5071 continue
433: ivtnum = 507
434: c
435: c **** test 507 ****
436: c
437: if (iczero) 35070, 5070, 35070
438: 5070 continue
439: ivcomp = (-32766)/(-2)/(-3)
440: go to 45070
441: 35070 ivdele = ivdele + 1
442: write (i02,80003) ivtnum
443: if (iczero) 45070, 5081, 45070
444: 45070 if (ivcomp + 5461) 25070,15070,25070
445: 15070 ivpass = ivpass + 1
446: write (i02,80001) ivtnum
447: go to 5081
448: 25070 ivfail = ivfail + 1
449: ivcorr = -5461
450: write (i02,80004) ivtnum, ivcomp ,ivcorr
451: c
452: c test 508 through test 513 - negative integer constants included
453: c truncation required
454: c
455: 5081 continue
456: ivtnum = 508
457: c
458: c **** test 508 ****
459: c
460: if (iczero) 35080, 5080, 35080
461: 5080 continue
462: ivcomp = -24/3/3
463: go to 45080
464: 35080 ivdele = ivdele + 1
465: write (i02,80003) ivtnum
466: if (iczero) 45080, 5091, 45080
467: 45080 if (ivcomp + 2) 25080,15080,25080
468: 15080 ivpass = ivpass + 1
469: write (i02,80001) ivtnum
470: go to 5091
471: 25080 ivfail = ivfail + 1
472: ivcorr = -2
473: write (i02,80004) ivtnum, ivcomp ,ivcorr
474: 5091 continue
475: ivtnum = 509
476: c
477: c **** test 509 ****
478: c
479: if (iczero) 35090, 5090, 35090
480: 5090 continue
481: ivcomp = 230/(-2)/3
482: go to 45090
483: 35090 ivdele = ivdele + 1
484: write (i02,80003) ivtnum
485: if (iczero) 45090, 5101, 45090
486: 45090 if (ivcomp + 38) 25090,15090,25090
487: 15090 ivpass = ivpass + 1
488: write (i02,80001) ivtnum
489: go to 5101
490: 25090 ivfail = ivfail + 1
491: ivcorr = -38
492: write (i02,80004) ivtnum, ivcomp ,ivcorr
493: 5101 continue
494: ivtnum = 510
495: c
496: c **** test 510 ****
497: c
498: if (iczero) 35100, 5100, 35100
499: 5100 continue
500: ivcomp = 7151/(-3)/(-10)
501: go to 45100
502: 35100 ivdele = ivdele + 1
503: write (i02,80003) ivtnum
504: if (iczero) 45100, 5111, 45100
505: 45100 if (ivcomp - 238) 25100,15100,25100
506: 15100 ivpass = ivpass + 1
507: write (i02,80001) ivtnum
508: go to 5111
509: 25100 ivfail = ivfail + 1
510: ivcorr = 238
511: write (i02,80004) ivtnum, ivcomp ,ivcorr
512: 5111 continue
513: ivtnum = 511
514: c
515: c **** test 511 ****
516: c
517: if (iczero) 35110, 5110, 35110
518: 5110 continue
519: ivcomp = -15248/(-51)/(-13)
520: go to 45110
521: 35110 ivdele = ivdele + 1
522: write (i02,80003) ivtnum
523: if (iczero) 45110, 5121, 45110
524: 45110 if (ivcomp + 22) 25110,15110,25110
525: 15110 ivpass = ivpass + 1
526: write (i02,80001) ivtnum
527: go to 5121
528: 25110 ivfail = ivfail + 1
529: ivcorr = -22
530: write (i02,80004) ivtnum, ivcomp ,ivcorr
531: 5121 continue
532: ivtnum = 512
533: c
534: c **** test 512 ****
535: c
536: if (iczero) 35120, 5120, 35120
537: 5120 continue
538: ivcomp = (-27342)/(-4)/(-3)
539: go to 45120
540: 35120 ivdele = ivdele + 1
541: write (i02,80003) ivtnum
542: if (iczero) 45120, 5131, 45120
543: 45120 if (ivcomp + 2278) 25120,15120,25120
544: 15120 ivpass = ivpass + 1
545: write (i02,80001) ivtnum
546: go to 5131
547: 25120 ivfail = ivfail + 1
548: ivcorr = -2278
549: write (i02,80004) ivtnum, ivcomp ,ivcorr
550: 5131 continue
551: ivtnum = 513
552: c
553: c **** test 513 ****
554: c
555: if (iczero) 35130, 5130, 35130
556: 5130 continue
557: ivcomp = 32767/2/(-1)
558: go to 45130
559: 35130 ivdele = ivdele + 1
560: write (i02,80003) ivtnum
561: if (iczero) 45130, 5141, 45130
562: 45130 if (ivcomp + 16383) 25130,15130,25130
563: 15130 ivpass = ivpass + 1
564: write (i02,80001) ivtnum
565: go to 5141
566: 25130 ivfail = ivfail + 1
567: ivcorr = -16383
568: write (i02,80004) ivtnum, ivcomp ,ivcorr
569: c
570: c test 514 through test 519 - positive and negative signed integer
571: c constants in arithmetic expression.
572: c
573: 5141 continue
574: ivtnum = 514
575: c
576: c **** test 514 ****
577: c
578: if (iczero) 35140, 5140, 35140
579: 5140 continue
580: ivcomp = +24/(-3)/4
581: go to 45140
582: 35140 ivdele = ivdele + 1
583: write (i02,80003) ivtnum
584: if (iczero) 45140, 5151, 45140
585: 45140 if (ivcomp +2) 25140,15140,25140
586: 15140 ivpass = ivpass + 1
587: write (i02,80001) ivtnum
588: go to 5151
589: 25140 ivfail = ivfail + 1
590: ivcorr = -2
591: write (i02,80004) ivtnum, ivcomp ,ivcorr
592: 5151 continue
593: ivtnum = 515
594: c
595: c **** test 515 ****
596: c
597: if (iczero) 35150, 5150, 35150
598: 5150 continue
599: ivcomp = 24/(+3)/(-4)
600: go to 45150
601: 35150 ivdele = ivdele + 1
602: write (i02,80003) ivtnum
603: if (iczero) 45150, 5161, 45150
604: 45150 if (ivcomp +2) 25150,15150,25150
605: 15150 ivpass = ivpass + 1
606: write (i02,80001) ivtnum
607: go to 5161
608: 25150 ivfail = ivfail + 1
609: ivcorr = -2
610: write (i02,80004) ivtnum, ivcomp ,ivcorr
611: 5161 continue
612: ivtnum = 516
613: c
614: c **** test 516 ****
615: c
616: if (iczero) 35160, 5160, 35160
617: 5160 continue
618: ivcomp = -24/(-3)/(+4)
619: go to 45160
620: 35160 ivdele = ivdele + 1
621: write (i02,80003) ivtnum
622: if (iczero) 45160, 5171, 45160
623: 45160 if (ivcomp -2) 25160,15160,25160
624: 15160 ivpass = ivpass + 1
625: write (i02,80001) ivtnum
626: go to 5171
627: 25160 ivfail = ivfail + 1
628: ivcorr = 2
629: write (i02,80004) ivtnum, ivcomp ,ivcorr
630: 5171 continue
631: ivtnum = 517
632: c
633: c **** test 517 ****
634: c
635: if (iczero) 35170, 5170, 35170
636: 5170 continue
637: ivcomp = -16811/(-16812)/(+1)
638: go to 45170
639: 35170 ivdele = ivdele + 1
640: write (i02,80003) ivtnum
641: if (iczero) 45170, 5181, 45170
642: 45170 if (ivcomp - 0) 25170,15170,25170
643: 15170 ivpass = ivpass + 1
644: write (i02,80001) ivtnum
645: go to 5181
646: 25170 ivfail = ivfail + 1
647: ivcorr = 0
648: write (i02,80004) ivtnum, ivcomp ,ivcorr
649: 5181 continue
650: ivtnum = 518
651: c
652: c **** test 518 ****
653: c
654: if (iczero) 35180, 5180, 35180
655: 5180 continue
656: ivcomp = (-16811) / (+16811) / (+1)
657: go to 45180
658: 35180 ivdele = ivdele + 1
659: write (i02,80003) ivtnum
660: if (iczero) 45180, 5191, 45180
661: 45180 if (ivcomp +1) 25180,15180,25180
662: 15180 ivpass = ivpass + 1
663: write (i02,80001) ivtnum
664: go to 5191
665: 25180 ivfail = ivfail + 1
666: ivcorr = -1
667: write (i02,80004) ivtnum, ivcomp ,ivcorr
668: 5191 continue
669: ivtnum = 519
670: c
671: c **** test 519 ****
672: c
673: if (iczero) 35190, 5190, 35190
674: 5190 continue
675: ivcomp = (-335)/(+168)/(+1)
676: go to 45190
677: 35190 ivdele = ivdele + 1
678: write (i02,80003) ivtnum
679: if (iczero) 45190, 5201, 45190
680: 45190 if (ivcomp + 1) 25190,15190,25190
681: 15190 ivpass = ivpass + 1
682: write (i02,80001) ivtnum
683: go to 5201
684: 25190 ivfail = ivfail + 1
685: ivcorr = -1
686: write (i02,80004) ivtnum, ivcomp ,ivcorr
687: c **** end of tests ****
688: 5201 continue
689: c
690: c write page footings and run summaries
691: 99999 continue
692: write (i02,90002)
693: write (i02,90006)
694: write (i02,90002)
695: write (i02,90002)
696: write (i02,90007)
697: write (i02,90002)
698: write (i02,90008) ivfail
699: write (i02,90009) ivpass
700: write (i02,90010) ivdele
701: c
702: c
703: c terminate routine execution
704: stop
705: c
706: c format statements for page headers
707: 90000 format (1h1)
708: 90002 format (1h )
709: 90001 format (1h ,10x,34hfortran compiler validation system)
710: 90003 format (1h ,21x,11hversion 1.0)
711: 90004 format (1h ,10x,38hfor official use only - copyright 1978)
712: 90005 format (1h ,5x,4htest,5x,9hpass/fail, 5x,8hcomputed,8x,7hcorrect)
713: 90006 format (1h ,5x,46h----------------------------------------------)
714: 90011 format (1h ,18x,17hsubset level test)
715: c
716: c format statements for run summaries
717: 90008 format (1h ,15x,i5,19h errors encountered)
718: 90009 format (1h ,15x,i5,13h tests passed)
719: 90010 format (1h ,15x,i5,14h tests deleted)
720: c
721: c format statements for test results
722: 80001 format (1h ,4x,i5,7x,4hpass)
723: 80002 format (1h ,4x,i5,7x,4hfail)
724: 80003 format (1h ,4x,i5,7x,7hdeleted)
725: 80004 format (1h ,4x,i5,7x,4hfail,10x,i6,9x,i6)
726: 80005 format (1h ,4x,i5,7x,4hfail,4x,e12.5,3x,e12.5)
727: c
728: 90007 format (1h ,20x,20hend of program fm037)
729: end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.