![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to fm002.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 fm002.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 fm002
4: c
5: c this routine checks that comment lines which have valid
6: c fortran statements do not affect the execution of the program
7: c in any way.
8: c
9: c references
10: c american national standard programming language fortran,
11: c x3.9-1978
12: c
13: c section 3.2.1, comment line
14: c
15: c **********************************************************
16: c
17: c a compiler validation system for the fortran language
18: c based on specifications as defined in american national standard
19: c programming language fortran x3.9-1978, has been developed by the
20: c federal cobol compiler testing service. the fortran compiler
21: c validation system (fcvs) consists of audit routines, their related
22: c data, and an executive system. each audit routine is a fortran
23: c program, subprogram or function which includes tests of specific
24: c language elements and supporting procedures indicating the result
25: c of executing these tests.
26: c
27: c this particular program/subprogram/function contains features
28: c found only in the subset as defined in x3.9-1978.
29: c
30: c suggestions and comments should be forwarded to -
31: c
32: c department of the navy
33: c federal cobol compiler testing service
34: c washington, d.c. 20376
35: c
36: c **********************************************************
37: c
38: c
39: c
40: c initialization section
41: c
42: c initialize constants
43: c **************
44: c i01 contains the logical unit number for the card reader.
45: i01 = 5
46: c i02 contains the logical unit number for the printer.
47: i02 = 6
48: c system environment section
49: c
50: cx010 this card is replaced by contents of fexec x-010 control card.
51: c the cx010 card is for overriding the program default i01 = 5
52: c (unit number for card reader).
53: cx011 this card is replaced by contents of fexec x-011 control card.
54: c the cx011 card is for systems which require additional
55: c fortran statements for files associated with cx010 above.
56: c
57: cx020 this card is replaced by contents of fexec x-020 control card.
58: c the cx020 card is for overriding the program default i02 = 6
59: c (unit number for printer).
60: cx021 this card is replaced by contents of fexec x-021 control card.
61: c the cx021 card is for systems which require additional
62: c fortran statements for files associated with cx020 above.
63: c
64: ivpass=0
65: ivfail=0
66: ivdele=0
67: iczero=0
68: c
69: c write page headers
70: write (i02,90000)
71: write (i02,90001)
72: write (i02,90002)
73: write (i02, 90002)
74: write (i02,90003)
75: write (i02,90002)
76: write (i02,90004)
77: write (i02,90002)
78: write (i02,90011)
79: write (i02,90002)
80: write (i02,90002)
81: write (i02,90005)
82: write (i02,90006)
83: write (i02,90002)
84: c test section
85: c
86: 41 continue
87: ivtnum=4
88: c
89: c **** test 004 ****
90: c test 004 - blank comment line
91: c
92: if (iczero) 30040,40,30040
93: 40 continue
94: ivon01=4
95: c
96: go to 40040
97: 30040 ivdele=ivdele+1
98: write (i02,80003) ivtnum
99: if (iczero) 40040, 51, 40040
100: 40040 if (ivon01 - 4) 20040, 10040, 20040
101: 10040 ivpass=ivpass+1
102: write (i02,80001) ivtnum
103: go to 51
104: 20040 ivfail=ivfail+1
105: ivcomp=ivon01
106: ivcorr=4
107: write (i02,80004) ivtnum,ivcomp,ivcorr
108: 51 continue
109: ivtnum=5
110: c
111: c **** test 005 ****
112: c test 005 - go to in comment line
113: c
114: if (iczero) 30050, 50, 30050
115: 50 continue
116: ivon01 = 3
117: c go to 20050
118: ivon01=5
119: go to 40050
120: 30050 ivdele=ivdele+1
121: write (i02,80003) ivtnum
122: if (iczero) 40050, 61, 40050
123: 40050 if (ivon01 - 5) 20050,10050,20050
124: 10050 ivpass=ivpass+1
125: write (i02,80001) ivtnum
126: go to 61
127: 20050 ivfail=ivfail+1
128: ivcomp=ivon01
129: ivcorr=5
130: write (i02,80004) ivtnum,ivcomp,ivcorr
131: 61 continue
132: ivtnum=6
133: c
134: c **** test 006 ****
135: c test 006 - integer assignment statement in comment line
136: c
137: if (iczero) 30060,60,30060
138: 60 continue
139: ivon01=6
140: c ivon01=1
141: go to 40060
142: 30060 ivdele=ivdele+1
143: write (i02,80003) ivtnum
144: if (iczero) 40060,71,40060
145: 40060 if (ivon01-6) 20060,10060,20060
146: 10060 ivpass=ivpass+1
147: write (i02,80001) ivtnum
148: go to 71
149: 20060 ivfail=ivfail+1
150: ivcomp=ivon01
151: ivcorr=6
152: write (i02,80004) ivtnum,ivcomp,ivcorr
153: 71 continue
154: ivtnum=7
155: c
156: c **** test 007 ****
157: c test 007 - integer assignment statement in comment line
158: c integer expression to right of =
159: c
160: if (iczero) 30070,70,30070
161: 70 continue
162: ivon02=6
163: ivon01=7
164: c ivon01= 3*ivon02
165: go to 40070
166: 30070 ivdele=ivdele+1
167: write (i02,80003) ivtnum
168: if (iczero) 40070,81,40070
169: 40070 if (ivon01-7) 20070,10070,20070
170: 10070 ivpass=ivpass+1
171: write (i02,80001) ivtnum
172: go to 81
173: 20070 ivfail=ivfail+1
174: ivcomp=ivon01
175: ivcorr=7
176: write (i02,80004) ivtnum,ivcomp,ivcorr
177: 81 continue
178: ivtnum=8
179: c
180: c **** test 008 ****
181: c test 008 - if statement in comment line
182: c
183: if (iczero) 30080,80,30080
184: 80 continue
185: ivon01=300
186: c if (ivon01) 20080,20080,20080
187: ivon01=8
188: go to 40080
189: 30080 ivdele=ivdele+1
190: write (i02,80003) ivtnum
191: if (iczero) 40080,91,40080
192: 40080 if (ivon01-8) 20080,10080,20080
193: 10080 ivpass=ivpass+1
194: write (i02,80001) ivtnum
195: go to 91
196: 20080 ivfail=ivfail+1
197: ivcomp=ivon01
198: ivcorr=8
199: write (i02,80004) ivtnum,ivcomp,ivcorr
200: 91 continue
201: ivtnum=9
202: c
203: c **** test 009 ****
204: c test 009 - write statement in a comment line
205: c
206: if (iczero) 30090,90,30090
207: 90 continue
208: ivon01=200
209: c 92 write (i02,80002) ivtnum
210: ivon01=9
211: go to 40090
212: 30090 ivdele=ivdele+1
213: write (i02,80003) ivtnum
214: if (iczero) 40090,101,40090
215: 40090 if (ivon01-9) 20090,10090,20090
216: 10090 ivpass=ivpass+1
217: write (i02,80001) ivtnum
218: go to 101
219: 20090 ivfail=ivfail+1
220: ivcomp=ivon01
221: ivcorr=9
222: write (i02,80004) ivtnum,ivcomp,ivcorr
223: 101 ivtnum=10
224: c
225: c **** test 010 ****
226: c test 010 - statement label in comment line
227: c
228: if (iczero) 30100,100,30100
229: 100 continue
230: go to 102
231: c 102 write (i02,80002)
232: c go to 111
233: 102 ivon01=10
234: go to 40100
235: 30100 ivdele=ivdele+1
236: write (i02,80003) ivtnum
237: if (iczero) 40100,111,40100
238: 40100 if (ivon01-10) 20100,10100,20100
239: 10100 ivpass=ivpass+1
240: write (i02,80001) ivtnum
241: go to 111
242: 20100 ivfail=ivfail+1
243: ivcomp=ivon01
244: ivcorr=10
245: write (i02,80004) ivtnum,ivcomp,ivcorr
246: 111 continue
247: ivtnum=11
248: c
249: c **** test 011 ****
250: c test 011 - continue in comment line
251: c followed by integer assignment statement in comment
252: c
253: if (iczero) 30110,110,30110
254: 110 ivon01=11
255: c continue
256: c ivon01=7000
257: go to 40110
258: 30110 ivdele=ivdele+1
259: write (i02,80003) ivtnum
260: if (iczero) 40110,121,40110
261: 40110 if (ivon01 -11) 20110,10110,20110
262: 10110 ivpass=ivpass+1
263: write (i02,80001) ivtnum
264: go to 121
265: 20110 ivfail=ivfail+1
266: ivcomp=ivon01
267: ivcorr=11
268: write (i02,80004) ivtnum,ivcomp,ivcorr
269: 121 continue
270: ivtnum=12
271: c
272: c **** test 012 ****
273: c test 012 - integer assignment statement in comment line
274: c
275: if (iczero) 30120,120,30120
276: 120 continue
277: ivon01=12
278: c ivon01=ivon01+1
279: go to 40120
280: 30120 ivdele=ivdele+1
281: write (i02,80003) ivtnum
282: if (iczero) 40120,99999,40120
283: 40120 if (ivon01 - 12) 20120,10120,20120
284: 10120 ivpass=ivpass+1
285: write (i02,80001) ivtnum
286: go to 99999
287: 20120 ivfail=ivfail+1
288: ivcomp=ivon01
289: ivcorr=12
290: write (i02,80004) ivtnum,ivcomp,ivcorr
291: c
292: c write page footings and run summaries
293: 99999 continue
294: write (i02,90002)
295: write (i02,90006)
296: write (i02,90002)
297: write (i02,90002)
298: write (i02,90007)
299: write (i02,90002)
300: write (i02,90008) ivfail
301: write (i02,90009) ivpass
302: write (i02,90010) ivdele
303: c
304: c
305: c terminate routine execution
306: stop
307: c
308: c format statements for page headers
309: 90000 format (1h1)
310: 90002 format (1h )
311: 90001 format (1h ,10x,34hfortran compiler validation system)
312: 90003 format (1h ,21x,11hversion 1.0)
313: 90004 format (1h ,10x,38hfor official use only - copyright 1978)
314: 90005 format (1h ,5x,4htest,5x,9hpass/fail, 5x,8hcomputed,8x,7hcorrect)
315: 90006 format (1h ,5x,46h----------------------------------------------)
316: 90011 format (1h ,18x,17hsubset level test)
317: c
318: c format statements for run summaries
319: 90008 format (1h ,15x,i5,19h errors encountered)
320: 90009 format (1h ,15x,i5,13h tests passed)
321: 90010 format (1h ,15x,i5,14h tests deleted)
322: c
323: c format statements for test results
324: 80001 format (1h ,4x,i5,7x,4hpass)
325: 80002 format (1h ,4x,i5,7x,4hfail)
326: 80003 format (1h ,4x,i5,7x,7hdeleted)
327: 80004 format (1h ,4x,i5,7x,4hfail,10x,i6,9x,i6)
328: 80005 format (1h ,4x,i5,7x,4hfail,4x,e12.5,3x,e12.5)
329: c
330: 90007 format (1h ,20x,20hend of program fm002)
331: c comment line before end statement
332: end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.