![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to fm007.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 fm007.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 fm007
4: c
5: c this routine tests the use of data initialization statements.
6: c data initialization statements are used to define initial values
7: c of integer variables. the data statements contain unsigned,
8: c positive signed and negative signed integer constants. the last
9: c data statement contains the form
10: c j*integer constant
11: c which indicates the constant is to be specified j times.
12: c
13: c the tests in this routine check the integer variables in the
14: c data statement for the assigned initial values.
15: c
16: c references
17: c american national standard programming language fortran,
18: c x3.9-1978
19: c
20: c section 4.3, integer type
21: c section 4.3.1, integer constant
22: c section 9, data statement
23: c
24: c
25: c data initialization statements
26: c
27: data ivon01,ivon02,ivon03,ivon04,ivon05/3,76,587,9999,21111/
28: data ivon06,ivon07,ivon08,ivon09,ivon10/+3,+76,+587,+9999,+21111/
29: data ivon11,ivon12,ivon13,ivon14,ivon15/-3,-76,-587,-9999,-21111/
30: data ivon16,ivon17,ivon18,ivon19,ivon20/ 2*119, 2*7, -427/
31: c
32: c
33: c **********************************************************
34: c
35: c a compiler validation system for the fortran language
36: c based on specifications as defined in american national standard
37: c programming language fortran x3.9-1978, has been developed by the
38: c federal cobol compiler testing service. the fortran compiler
39: c validation system (fcvs) consists of audit routines, their related
40: c data, and an executive system. each audit routine is a fortran
41: c program, subprogram or function which includes tests of specific
42: c language elements and supporting procedures indicating the result
43: c of executing these tests.
44: c
45: c this particular program/subprogram/function contains features
46: c found only in the subset as defined in x3.9-1978.
47: c
48: c suggestions and comments should be forwarded to -
49: c
50: c department of the navy
51: c federal cobol compiler testing service
52: c washington, d.c. 20376
53: c
54: c **********************************************************
55: c
56: c
57: c
58: c initialization section
59: c
60: c initialize constants
61: c **************
62: c i01 contains the logical unit number for the card reader.
63: i01 = 5
64: c i02 contains the logical unit number for the printer.
65: i02 = 6
66: c system environment section
67: c
68: cx010 this card is replaced by contents of fexec x-010 control card.
69: c the cx010 card is for overriding the program default i01 = 5
70: c (unit number for card reader).
71: cx011 this card is replaced by contents of fexec x-011 control card.
72: c the cx011 card is for systems which require additional
73: c fortran statements for files associated with cx010 above.
74: c
75: cx020 this card is replaced by contents of fexec x-020 control card.
76: c the cx020 card is for overriding the program default i02 = 6
77: c (unit number for printer).
78: cx021 this card is replaced by contents of fexec x-021 control card.
79: c the cx021 card is for systems which require additional
80: c fortran statements for files associated with cx020 above.
81: c
82: ivpass=0
83: ivfail=0
84: ivdele=0
85: iczero=0
86: c
87: c write page headers
88: write (i02,90000)
89: write (i02,90001)
90: write (i02,90002)
91: write (i02, 90002)
92: write (i02,90003)
93: write (i02,90002)
94: write (i02,90004)
95: write (i02,90002)
96: write (i02,90011)
97: write (i02,90002)
98: write (i02,90002)
99: write (i02,90005)
100: write (i02,90006)
101: write (i02,90002)
102: c test section
103: c
104: c tests 80 through 84 check the values initialized by the data
105: c statement containing ivon01,..., ivon05.
106: c
107: 801 continue
108: ivtnum = 80
109: c
110: c **** test 80 ****
111: c
112: if (iczero) 30800, 800, 30800
113: 800 continue
114: ivcomp = ivon01
115: go to 40800
116: 30800 ivdele = ivdele + 1
117: write (i02,80003) ivtnum
118: if (iczero) 40800, 811, 40800
119: 40800 if (ivcomp - 3) 20800, 10800,20800
120: 10800 ivpass = ivpass + 1
121: write (i02,80001) ivtnum
122: go to 811
123: 20800 ivfail = ivfail + 1
124: ivcorr = 3
125: write (i02,80004) ivtnum, ivcomp ,ivcorr
126: 811 continue
127: ivtnum = 81
128: c
129: c **** test 81 ****
130: c
131: if (iczero) 30810, 810, 30810
132: 810 continue
133: ivcomp = ivon02
134: go to 40810
135: 30810 ivdele = ivdele + 1
136: write (i02,80003) ivtnum
137: if (iczero) 40810, 821, 40810
138: 40810 if (ivcomp - 76) 20810, 10810, 20810
139: 10810 ivpass = ivpass + 1
140: write (i02,80001) ivtnum
141: go to 821
142: 20810 ivfail = ivfail + 1
143: ivcorr = 76
144: write (i02,80004) ivtnum, ivcomp ,ivcorr
145: 821 continue
146: ivtnum = 82
147: c
148: c **** test 82 ****
149: c
150: if (iczero) 30820, 820, 30820
151: 820 continue
152: ivcomp = ivon03
153: go to 40820
154: 30820 ivdele = ivdele + 1
155: write (i02,80003) ivtnum
156: if (iczero) 40820, 831, 40820
157: 40820 if (ivcomp - 587) 20820, 10820, 20820
158: 10820 ivpass = ivpass + 1
159: write (i02,80001) ivtnum
160: go to 831
161: 20820 ivfail = ivfail + 1
162: ivcorr = 587
163: write (i02,80004) ivtnum, ivcomp ,ivcorr
164: 831 continue
165: ivtnum = 83
166: c
167: c **** test 83 ****
168: c
169: if (iczero) 30830, 830, 30830
170: 830 continue
171: ivcomp =ivon04
172: go to 40830
173: 30830 ivdele = ivdele + 1
174: write (i02,80003) ivtnum
175: if (iczero) 40830, 841, 40830
176: 40830 if (ivcomp - 9999) 20830, 10830, 20830
177: 10830 ivpass = ivpass + 1
178: write (i02,80001) ivtnum
179: go to 841
180: 20830 ivfail = ivfail + 1
181: ivcorr = 9999
182: write (i02,80004) ivtnum, ivcomp ,ivcorr
183: 841 continue
184: ivtnum = 84
185: c
186: c **** test 84 ****
187: c
188: if (iczero) 30840, 840, 30840
189: 840 continue
190: ivcomp = ivon05
191: go to 40840
192: 30840 ivdele = ivdele + 1
193: write (i02,80003) ivtnum
194: if (iczero) 40840, 851, 40840
195: 40840 if (ivcomp - 21111) 20840, 10840, 20840
196: 10840 ivpass = ivpass + 1
197: write (i02,80001) ivtnum
198: go to 851
199: 20840 ivfail = ivfail + 1
200: ivcorr = 21111
201: write (i02,80004) ivtnum, ivcomp ,ivcorr
202: c
203: c tests 85 through 89 check the values initialized by the data
204: c statement containing ivon06,...,ivon10.
205: c
206: 851 continue
207: ivtnum = 85
208: c
209: c **** test 85 ****
210: c
211: if (iczero) 30850, 850, 30850
212: 850 continue
213: ivcomp=ivon06
214: go to 40850
215: 30850 ivdele = ivdele + 1
216: write (i02,80003) ivtnum
217: if (iczero) 40850, 861, 40850
218: 40850 if (ivcomp - 3) 20850, 10850, 20850
219: 10850 ivpass = ivpass + 1
220: write (i02,80001) ivtnum
221: go to 861
222: 20850 ivfail = ivfail + 1
223: ivcorr = 3
224: write (i02,80004) ivtnum, ivcomp ,ivcorr
225: 861 continue
226: ivtnum = 86
227: c
228: c **** test 86 ****
229: c
230: if (iczero) 30860, 860, 30860
231: 860 continue
232: ivcomp = ivon07
233: go to 40860
234: 30860 ivdele = ivdele + 1
235: write (i02,80003) ivtnum
236: if (iczero) 40860, 871, 40860
237: 40860 if (ivcomp - 76) 20860, 10860, 20860
238: 10860 ivpass = ivpass + 1
239: write (i02,80001) ivtnum
240: go to 871
241: 20860 ivfail = ivfail + 1
242: ivcorr = 76
243: write (i02,80004) ivtnum, ivcomp ,ivcorr
244: 871 continue
245: ivtnum = 87
246: c
247: c **** test 87 ****
248: c
249: if (iczero) 30870, 870, 30870
250: 870 continue
251: ivcomp = ivon08
252: go to 40870
253: 30870 ivdele = ivdele + 1
254: write (i02,80003) ivtnum
255: if (iczero) 40870, 881, 40870
256: 40870 if (ivcomp - 587) 20870, 10870, 20870
257: 10870 ivpass = ivpass + 1
258: write (i02,80001) ivtnum
259: go to 881
260: 20870 ivfail = ivfail + 1
261: ivcorr = 587
262: write (i02,80004) ivtnum, ivcomp ,ivcorr
263: 881 continue
264: ivtnum = 88
265: c
266: c **** test 88 ****
267: c
268: if (iczero) 30880, 880, 30880
269: 880 continue
270: ivcomp = ivon09
271: go to 40880
272: 30880 ivdele = ivdele + 1
273: write (i02,80003) ivtnum
274: if (iczero) 40880, 891, 40880
275: 40880 if (ivcomp - 9999) 20880, 10880, 20880
276: 10880 ivpass = ivpass + 1
277: write (i02,80001) ivtnum
278: go to 891
279: 20880 ivfail = ivfail + 1
280: ivcorr = 9999
281: write (i02,80004) ivtnum, ivcomp ,ivcorr
282: 891 continue
283: ivtnum = 89
284: c
285: c **** test 89 ****
286: c
287: if (iczero) 30890, 890, 30890
288: 890 continue
289: ivcomp = ivon10
290: go to 40890
291: 30890 ivdele = ivdele + 1
292: write (i02,80003) ivtnum
293: if (iczero) 40890, 901, 40890
294: 40890 if (ivcomp - 21111) 20890, 10890, 20890
295: 10890 ivpass = ivpass + 1
296: write (i02,80001) ivtnum
297: go to 901
298: 20890 ivfail = ivfail + 1
299: ivcorr= 21111
300: write (i02,80004) ivtnum, ivcomp ,ivcorr
301: c
302: c tests 90 through 94 check the values initialized by the data
303: c statement containing ivon11,...,ivon15.
304: c
305: 901 continue
306: ivtnum = 90
307: c
308: c **** test 90 ****
309: c
310: if (iczero) 30900, 900, 30900
311: 900 continue
312: ivcomp = ivon11
313: go to 40900
314: 30900 ivdele = ivdele + 1
315: write (i02,80003) ivtnum
316: if (iczero) 40900, 911, 40900
317: 40900 if (ivcomp + 3) 20900, 10900, 20900
318: 10900 ivpass = ivpass + 1
319: write (i02,80001) ivtnum
320: go to 911
321: 20900 ivfail = ivfail + 1
322: ivcorr = -3
323: write (i02,80004) ivtnum, ivcomp ,ivcorr
324: 911 continue
325: ivtnum = 91
326: c
327: c **** test 91 ****
328: c
329: if (iczero) 30910, 910, 30910
330: 910 continue
331: ivcomp = ivon12
332: go to 40910
333: 30910 ivdele = ivdele + 1
334: write (i02,80003) ivtnum
335: if (iczero) 40910, 921, 40910
336: 40910 if (ivcomp + 76) 20910, 10910, 20910
337: 10910 ivpass = ivpass + 1
338: write (i02,80001) ivtnum
339: go to 921
340: 20910 ivfail = ivfail + 1
341: ivcorr = -76
342: write (i02,80004) ivtnum, ivcomp ,ivcorr
343: 921 continue
344: ivtnum = 92
345: c
346: c **** test 92 ****
347: c
348: if (iczero) 30920, 920, 30920
349: 920 continue
350: ivcomp= ivon13
351: go to 40920
352: 30920 ivdele = ivdele + 1
353: write (i02,80003) ivtnum
354: if (iczero) 40920, 931, 40920
355: 40920 if (ivcomp + 587) 20920, 10920, 20920
356: 10920 ivpass = ivpass + 1
357: write (i02,80001) ivtnum
358: go to 931
359: 20920 ivfail = ivfail + 1
360: ivcorr = -587
361: write (i02,80004) ivtnum, ivcomp ,ivcorr
362: 931 continue
363: ivtnum = 93
364: c
365: c **** test 93 ****
366: c
367: if (iczero) 30930, 930, 30930
368: 930 continue
369: ivcomp = ivon14
370: go to 40930
371: 30930 ivdele = ivdele + 1
372: write (i02,80003) ivtnum
373: if (iczero) 40930, 941, 40930
374: 40930 if (ivcomp + 9999) 20930, 10930, 20930
375: 10930 ivpass = ivpass + 1
376: write (i02,80001) ivtnum
377: go to 941
378: 20930 ivfail = ivfail + 1
379: ivcorr = -9999
380: write (i02,80004) ivtnum, ivcomp ,ivcorr
381: 941 continue
382: ivtnum = 94
383: c
384: c **** test 94 ****
385: c
386: if (iczero) 30940, 940, 30940
387: 940 continue
388: ivcomp = ivon15
389: go to 40940
390: 30940 ivdele = ivdele + 1
391: write (i02,80003) ivtnum
392: if (iczero) 40940, 951, 40940
393: 40940 if (ivcomp + 21111) 20940, 10940, 20940
394: 10940 ivpass = ivpass + 1
395: write (i02,80001) ivtnum
396: go to 951
397: 20940 ivfail = ivfail + 1
398: ivcorr = -21111
399: write (i02,80004) ivtnum, ivcomp ,ivcorr
400: c
401: c tests 95 through 99 check the values initialized by the data
402: c statement containing ivon16,...,ivon20.
403: c
404: 951 continue
405: ivtnum = 95
406: c
407: c **** test 95 ****
408: c
409: if (iczero) 30950, 950, 30950
410: 950 continue
411: ivcomp =ivon16
412: go to 40950
413: 30950 ivdele = ivdele + 1
414: write (i02,80003) ivtnum
415: if (iczero) 40950, 961, 40950
416: 40950 if (ivcomp - 119) 20950, 10950, 20950
417: 10950 ivpass = ivpass + 1
418: write (i02,80001) ivtnum
419: go to 961
420: 20950 ivfail = ivfail + 1
421: ivcorr = 119
422: write (i02,80004) ivtnum, ivcomp ,ivcorr
423: 961 continue
424: ivtnum = 96
425: c
426: c **** test 96 ****
427: c
428: if (iczero) 30960, 960, 30960
429: 960 continue
430: ivcomp=ivon17
431: go to 40960
432: 30960 ivdele = ivdele + 1
433: write (i02,80003) ivtnum
434: if (iczero) 40960, 971, 40960
435: 40960 if (ivcomp - 119) 20960, 10960, 20960
436: 10960 ivpass = ivpass + 1
437: write (i02,80001) ivtnum
438: go to 971
439: 20960 ivfail = ivfail + 1
440: ivcorr = 119
441: write (i02,80004) ivtnum, ivcomp ,ivcorr
442: 971 continue
443: ivtnum = 97
444: c
445: c **** test 97 ****
446: c
447: if (iczero) 30970, 970, 30970
448: 970 continue
449: ivcomp = ivon18
450: go to 40970
451: 30970 ivdele = ivdele + 1
452: write (i02,80003) ivtnum
453: if (iczero) 40970, 981, 40970
454: 40970 if (ivcomp - 7) 20970, 10970, 20970
455: 10970 ivpass = ivpass + 1
456: write (i02,80001) ivtnum
457: go to 981
458: 20970 ivfail = ivfail + 1
459: ivcorr = 7
460: write (i02,80004) ivtnum, ivcomp ,ivcorr
461: 981 continue
462: ivtnum = 98
463: c
464: c **** test 98 ****
465: c
466: if (iczero) 30980, 980, 30980
467: 980 continue
468: ivcomp = ivon19
469: go to 40980
470: 30980 ivdele = ivdele + 1
471: write (i02,80003) ivtnum
472: if (iczero) 40980, 991, 40980
473: 40980 if (ivcomp - 7) 20980, 10980, 20980
474: 10980 ivpass = ivpass + 1
475: write (i02,80001) ivtnum
476: go to 991
477: 20980 ivfail = ivfail + 1
478: ivcorr = 7
479: write (i02,80004) ivtnum, ivcomp ,ivcorr
480: 991 continue
481: ivtnum = 99
482: c
483: c **** test 99 ****
484: c
485: if (iczero) 30990, 990, 30990
486: 990 continue
487: ivcomp = ivon20
488: go to 40990
489: 30990 ivdele = ivdele + 1
490: write (i02,80003) ivtnum
491: if (iczero) 40990, 1001, 40990
492: 40990 if (ivcomp + 427) 20990,10990,20990
493: 10990 ivpass = ivpass + 1
494: write (i02,80001) ivtnum
495: go to 1001
496: 20990 ivfail = ivfail + 1
497: ivcorr = -427
498: write (i02,80004) ivtnum, ivcomp ,ivcorr
499: 1001 continue
500: c
501: c write page footings and run summaries
502: 99999 continue
503: write (i02,90002)
504: write (i02,90006)
505: write (i02,90002)
506: write (i02,90002)
507: write (i02,90007)
508: write (i02,90002)
509: write (i02,90008) ivfail
510: write (i02,90009) ivpass
511: write (i02,90010) ivdele
512: c
513: c
514: c terminate routine execution
515: stop
516: c
517: c format statements for page headers
518: 90000 format (1h1)
519: 90002 format (1h )
520: 90001 format (1h ,10x,34hfortran compiler validation system)
521: 90003 format (1h ,21x,11hversion 1.0)
522: 90004 format (1h ,10x,38hfor official use only - copyright 1978)
523: 90005 format (1h ,5x,4htest,5x,9hpass/fail, 5x,8hcomputed,8x,7hcorrect)
524: 90006 format (1h ,5x,46h----------------------------------------------)
525: 90011 format (1h ,18x,17hsubset level test)
526: c
527: c format statements for run summaries
528: 90008 format (1h ,15x,i5,19h errors encountered)
529: 90009 format (1h ,15x,i5,13h tests passed)
530: 90010 format (1h ,15x,i5,14h tests deleted)
531: c
532: c format statements for test results
533: 80001 format (1h ,4x,i5,7x,4hpass)
534: 80002 format (1h ,4x,i5,7x,4hfail)
535: 80003 format (1h ,4x,i5,7x,7hdeleted)
536: 80004 format (1h ,4x,i5,7x,4hfail,10x,i6,9x,i6)
537: 80005 format (1h ,4x,i5,7x,4hfail,4x,e12.5,3x,e12.5)
538: c
539: 90007 format (1h ,20x,20hend of program fm007)
540: end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.