![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM257.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 FM257.f CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / testf77 / tests |
1.1 root 1: PROGRAM FM257 00010257
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 00020257
6: C 00030257
7: C 00040257
8: C THIS ROUTINE IS A TEST OF THE PAUSE AND STOP STATEMENTS. THESE00050257
9: C STATEMENTS CAN NOW BE FOLLOWED BY A STRING OF NOT MORE THAN FIVE 00060257
10: C DIGITS, OR A CHARACTER CONSTANT. 00070257
11: C 00080257
12: C REFERENCES 00090257
13: C REFERENCES 00100257
14: C AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN, 00110257
15: C X3.9-1978 00120257
16: C SECTION 11.12, STOP STATEMENT 00130257
17: C SECTION 11.13, PAUSE STATEMENT 00140257
18: C 00150257
19: C FM015 - TESTS THE STOP AND PAUSE STATEMENTS USING AN OCTAL 00160257
20: C DIGIT STRING OF LENGTH FROM ONE TO FIVE. 00170257
21: C 00180257
22: C 00190257
23: C 00200257
24: C ******************************************************************00210257
25: C A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE 00220257
26: C BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN STANDARD FORTRAN 00230257
27: C X3.9-1978, HAS BEEN DEVELOPED BY THE DEPARTMENT OF THE NAVY. THE 00240257
28: C FORTRAN COMPILER VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT 00250257
29: C ROUTINES, THEIR RELATED DATA, AND AN EXECUTIVE SYSTEM. EACH AUDIT00260257
30: C ROUTINE IS A FORTRAN PROGRAM OR SUBPROGRAM WHICH INCLUDES TESTS 00270257
31: C OF SPECIFIC LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING00280257
32: C THE RESULT OF EXECUTING THESE TESTS. 00290257
33: C 00300257
34: C THIS PARTICULAR PROGRAM OR SUBPROGRAM CONTAINS ONLY FEATURES 00310257
35: C FOUND IN THE SUBSET LEVEL OF THE STANDARD. 00320257
36: C 00330257
37: C SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00340257
38: C DEPARTMENT OF THE NAVY 00350257
39: C FEDERAL COBOL COMPILER TESTING SERVICE 00360257
40: C WASHINGTON, D.C. 20376 00370257
41: C 00380257
42: C ******************************************************************00390257
43: C 00400257
44: C 00410257
45: IMPLICIT LOGICAL (L) 00420257
46: IMPLICIT CHARACTER*14 (C) 00430257
47: C 00440257
48: C 00450257
49: C 00460257
50: C INITIALIZATION SECTION. 00470257
51: C 00480257
52: C INITIALIZE CONSTANTS 00490257
53: C ******************** 00500257
54: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER 00510257
55: I01 = 5 00520257
56: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER 00530257
57: I02 = 6 00540257
58: C SYSTEM ENVIRONMENT SECTION 00550257
59: C 00560257
60: I01 = 5 00570257
61: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00580257
62: C (UNIT NUMBER FOR CARD READER). 00590257
63: CX011 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD00600257
64: C THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00610257
65: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE. 00620257
66: C 00630257
67: I02 = 6 00640257
68: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6 00650257
69: C (UNIT NUMBER FOR PRINTER). 00660257
70: CX021 THIS CARD IS PEPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD.00670257
71: C THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00680257
72: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE. 00690257
73: C 00700257
74: IVPASS = 0 00710257
75: IVFAIL = 0 00720257
76: IVDELE = 0 00730257
77: ICZERO = 0 00740257
78: C 00750257
79: C WRITE OUT PAGE HEADERS 00760257
80: C 00770257
81: WRITE (I02,90002) 00780257
82: WRITE (I02,90006) 00790257
83: WRITE (I02,90008) 00800257
84: WRITE (I02,90004) 00810257
85: WRITE (I02,90010) 00820257
86: WRITE (I02,90004) 00830257
87: WRITE (I02,90016) 00840257
88: WRITE (I02,90001) 00850257
89: WRITE (I02,90004) 00860257
90: WRITE (I02,90012) 00870257
91: WRITE (I02,90014) 00880257
92: WRITE (I02,90004) 00890257
93: C 00900257
94: C 00910257
95: C 00920257
96: C THE FOLLOWING SERIES OF TESTS CHECK THE VARIOUS FORMS OF THE 00930257
97: C PAUSE STATEMENT. IN EACH CASE THE WORD PAUSE (FOLLOWED BY A 00940257
98: C STRING OF CHARACTERS AS NOTED IN EACH TEST DESCRIPTION), SHOULD BE00950257
99: C DISPLAYED ON THE OPERATORS CONSOLE. FOR EACH TEST THE OPERATOR 00960257
100: C NEED ONLY DO WHATEVER IS NESSARY TO TELL THE SYSTEM TO CONTINUE 00970257
101: C THE EXECUTION OF THE ROUTINE. THE STRING FORMS ARE AS DESCRIBED 00980257
102: C IN SECTION 11.13. 00990257
103: C 01000257
104: C 01010257
105: C 01020257
106: C **** FCVS PROGRAM 257 - TEST 001 **** 01030257
107: C 01040257
108: C TEST 001 CHECKS THE PAUSE STATEMENT THAT IS NOT FOLLOWED BY 01050257
109: C A STRING OF ANYTHING EXCEPT BLANKS. ONLY THE WORD PAUSE SHOULD 01060257
110: C BE DISPLAYED. 01070257
111: C 01080257
112: C 01090257
113: IVTNUM = 1 01100257
114: IF (ICZERO) 30010, 0010, 30010 01110257
115: 0010 CONTINUE 01120257
116: PAUSE 01130257
117: C 01140257
118: C ***** THESE CARDS INITIALIZE IVCOMP AND IVCORR FOR THE NEXT 01150257
119: C FIVE TESTS EVEN THOUGH THEY ONLY APPEAR IN THE FAIL CODE 01160257
120: C OF THE BOILERPLATE.***** 01170257
121: IVCOMP = 1 01180257
122: IVCORR = 1 01190257
123: C 01200257
124: C 01210257
125: 40010 IF ( ICZERO ) 20010, 10010, 20010 01220257
126: 30010 IVDELE = IVDELE + 1 01230257
127: WRITE (I02,80000) IVTNUM 01240257
128: IF (ICZERO) 10010, 0021, 20010 01250257
129: 10010 IVPASS = IVPASS + 1 01260257
130: WRITE (I02,80002) IVTNUM 01270257
131: GO TO 0021 01280257
132: 20010 IVFAIL = IVFAIL + 1 01290257
133: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01300257
134: 0021 CONTINUE 01310257
135: C 01320257
136: C **** FCVS PROGRAM 257 - TEST 002 **** 01330257
137: C 01340257
138: C TEST 002 SHOULD DISPLAY THE WORD PAUSE FOLLOWED BY A SINGLE 01350257
139: C CHARACTER ZERO (0). 01360257
140: C 01370257
141: C 01380257
142: IVTNUM = 2 01390257
143: IF (ICZERO) 30020, 0020, 30020 01400257
144: 0020 CONTINUE 01410257
145: PAUSE 0 01420257
146: 40020 IF ( ICZERO ) 20020, 10020, 20020 01430257
147: 30020 IVDELE = IVDELE + 1 01440257
148: WRITE (I02,80000) IVTNUM 01450257
149: IF (ICZERO) 10020, 0031, 20020 01460257
150: 10020 IVPASS = IVPASS + 1 01470257
151: WRITE (I02,80002) IVTNUM 01480257
152: GO TO 0031 01490257
153: 20020 IVFAIL = IVFAIL + 1 01500257
154: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01510257
155: 0031 CONTINUE 01520257
156: C 01530257
157: C **** FCVS PROGRAM 257 - TEST 003 **** 01540257
158: C 01550257
159: C TEST 003 SHOULD DISPLAY THE WORD PAUSE FOLLOWED BY A STRING OF 01560257
160: C FIVE ZEROS (00000). 01570257
161: C 01580257
162: C 01590257
163: IVTNUM = 3 01600257
164: IF (ICZERO) 30030, 0030, 30030 01610257
165: 0030 CONTINUE 01620257
166: PAUSE 00000 01630257
167: 40030 IF ( ICZERO ) 20030, 10030, 20030 01640257
168: 30030 IVDELE = IVDELE + 1 01650257
169: WRITE (I02,80000) IVTNUM 01660257
170: IF (ICZERO) 10030, 0041, 20030 01670257
171: 10030 IVPASS = IVPASS + 1 01680257
172: WRITE (I02,80002) IVTNUM 01690257
173: GO TO 0041 01700257
174: 20030 IVFAIL = IVFAIL + 1 01710257
175: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01720257
176: 0041 CONTINUE 01730257
177: C 01740257
178: C **** FCVS PROGRAM 257 - TEST 004 **** 01750257
179: C 01760257
180: C TEST 004 SHOULD DISPLAY THE WORD PAUSE FOLLOWED BY THE STRING 01770257
181: C OF FIVE CHARACTERS 19283. 01780257
182: C 01790257
183: C 01800257
184: IVTNUM = 4 01810257
185: IF (ICZERO) 30040, 0040, 30040 01820257
186: 0040 CONTINUE 01830257
187: PAUSE 19283 01840257
188: 40040 IF ( ICZERO ) 20040, 10040, 20040 01850257
189: 30040 IVDELE = IVDELE + 1 01860257
190: WRITE (I02,80000) IVTNUM 01870257
191: IF (ICZERO) 10040, 0051, 20040 01880257
192: 10040 IVPASS = IVPASS + 1 01890257
193: WRITE (I02,80002) IVTNUM 01900257
194: GO TO 0051 01910257
195: 20040 IVFAIL = IVFAIL + 1 01920257
196: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01930257
197: 0051 CONTINUE 01940257
198: C 01950257
199: C **** FCVS PROGRAM 257 - TEST 005 **** 01960257
200: C 01970257
201: C TEST 005 SHOULD DISPLAY THE WORD PAUSE FOLLOWED BY THE STRING 01980257
202: C OF FOUR NINES (9999). 01990257
203: C 02000257
204: C 02010257
205: IVTNUM = 5 02020257
206: IF (ICZERO) 30050, 0050, 30050 02030257
207: 0050 CONTINUE 02040257
208: PAUSE 9999 02050257
209: 40050 IF ( ICZERO ) 20050, 10050, 20050 02060257
210: 30050 IVDELE = IVDELE + 1 02070257
211: WRITE (I02,80000) IVTNUM 02080257
212: IF (ICZERO) 10050, 0061, 20050 02090257
213: 10050 IVPASS = IVPASS + 1 02100257
214: WRITE (I02,80002) IVTNUM 02110257
215: GO TO 0061 02120257
216: 20050 IVFAIL = IVFAIL + 1 02130257
217: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02140257
218: 0061 CONTINUE 02150257
219: C 02160257
220: C **** FCVS PROGRAM 257 - TEST 006 **** 02170257
221: C 02180257
222: C TEST 006 IS FOR THE STOP STATEMENT - SECTION 11.12. 02190257
223: C SINCE THE STOP STATEMENT CAN ONLY BE EXECUTED ONCE IN A PROGRAM 02200257
224: C UNIT, VARIOUS FORMATS OF THE STOP STATEMENT WILL BE CHECKED FOR 02210257
225: C SYNTAX ONLY BY THE USE OF A COMPUTED GO TO STATEMENT. 02220257
226: C 02230257
227: C ONCE THE STOP STATEMENT HAS BEEN EXECUTED, THEN THE ROUTINE 02240257
228: C FM257 SHOULD NO LONGER EXECUTE. ANY CONTINUATION IS CONSIDERED AS02250257
229: C A FAILURE OF THIS TEST. 02260257
230: C 02270257
231: C 02280257
232: IVTNUM = 6 02290257
233: IF (ICZERO) 30060, 0060, 30060 02300257
234: 0060 CONTINUE 02310257
235: IVON01 = 6 02320257
236: GO TO ( 0062, 0063, 0064, 0065, 0066, 0067, 40060 ), IVON01 02330257
237: C 02340257
238: 0062 STOP 0 02350257
239: 0063 STOP 00000 02360257
240: 0064 STOP 12345 02370257
241: 0065 STOP 9999 02380257
242: 0066 STOP 'IMA 1' 02390257
243: 0067 STOP 'P ASS' 02400257
244: C 02410257
245: C **** THE TEST FAILS IF IT GOES BEYOND THE STOP STATEMENTS ****02420257
246: C 02430257
247: 40060 IF ( ICZERO ) 10060, 20060, 10060 02440257
248: C ***** NOTE THAT THE NORMAL PASS-10060 AND FAIL-20060 LABELS 02450257
249: C ARE REVERSED BECAUSE IF THE LOGIC EXECUTES THIS STATEMENT 02460257
250: C THEN THE STOP STATEMENT FAILS TO EXECUTE CORRECTLY. ***** 02470257
251: 30060 IVDELE = IVDELE + 1 02480257
252: WRITE (I02,80000) IVTNUM 02490257
253: IF (ICZERO) 10060, 0071, 20060 02500257
254: 10060 IVPASS = IVPASS + 1 02510257
255: WRITE (I02,80002) IVTNUM 02520257
256: GO TO 0071 02530257
257: 20060 IVFAIL = IVFAIL + 1 02540257
258: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02550257
259: 0071 CONTINUE 02560257
260: C 02570257
261: C 02580257
262: C WRITE OUT TEST SUMMARY 02590257
263: C 02600257
264: WRITE (I02,90004) 02610257
265: WRITE (I02,90014) 02620257
266: WRITE (I02,90004) 02630257
267: WRITE (I02,90000) 02640257
268: WRITE (I02,90004) 02650257
269: WRITE (I02,90020) IVFAIL 02660257
270: WRITE (I02,90022) IVPASS 02670257
271: WRITE (I02,90024) IVDELE 02680257
272: STOP 02690257
273: 90001 FORMAT (1H ,24X,5HFM257) 02700257
274: 90000 FORMAT (1H ,20X,20HEND OF PROGRAM FM257) 02710257
275: C 02720257
276: C FORMATS FOR TEST DETAIL LINES 02730257
277: C 02740257
278: 80000 FORMAT (1H ,4X,I5,6X,7HDELETED) 02750257
279: 80002 FORMAT (1H ,4X,I5,7X,4HPASS) 02760257
280: 80010 FORMAT (1H ,4X,I5,7X,4HFAIL,10X,I6,9X,I6) 02770257
281: 80012 FORMAT (1H ,4X,I5,7X,4HFAIL,4X,E12.5,3X,E12.5) 02780257
282: 80018 FORMAT (1H ,4X,I5,7X,4HFAIL,2X,A14,1X,A14) 02790257
283: C 02800257
284: C FORMAT STATEMENTS FOR PAGE HEADERS 02810257
285: C 02820257
286: 90002 FORMAT (1H1) 02830257
287: 90004 FORMAT (1H ) 02840257
288: 90006 FORMAT (1H ,10X,34HFORTRAN COMPILER VALIDATION SYSTEM) 02850257
289: 90008 FORMAT (1H ,21X,11HVERSION 1.0) 02860257
290: 90010 FORMAT (1H ,8X,38HFOR OFFICIAL USE ONLY - COPYRIGHT 1978) 02870257
291: 90012 FORMAT (1H ,5X,4HTEST,5X,9HPASS/FAIL,5X,8HCOMPUTED,8X,7HCORRECT) 02880257
292: 90014 FORMAT (1H ,5X,46H----------------------------------------------) 02890257
293: 90016 FORMAT (1H ,18X,17HSUBSET LEVEL TEST) 02900257
294: C 02910257
295: C FORMAT STATEMENTS FOR RUN SUMMARY 02920257
296: C 02930257
297: 90020 FORMAT (1H ,19X,I5,13H TESTS FAILED) 02940257
298: 90022 FORMAT (1H ,19X,I5,13H TESTS PASSED) 02950257
299: 90024 FORMAT (1H ,19X,I5,14H TESTS DELETED) 02960257
300: END 02970257
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.