![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM005.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 FM005.f CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / testf77 / tests |
1.1 root 1: C COMMENT SECTION 00010005
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 00020005
6: C FM005 00030005
7: C 00040005
8: C THIS ROUTINE TESTS THE BASIC ASSUMPTIONS REGARDING THE SIMPLE 00050005
9: C FORMATTED WRITE STATEMENT OF FORM 00060005
10: C WRITE (U,F) OR 00070005
11: C WRITE (U,F) L 00080005
12: C WHERE U IS A LOGICAL UNIT NUMBER 00090005
13: C F IS A FORMAT STATEMENT LABEL, AND 00100005
14: C L IS A LIST OF INTEGER VARIABLES. 00110005
15: C THE FORMAT STATEMENT F CONTAINS NH HOLLERITH FIELD DESCRIPTORS, 00120005
16: C NX BLANK FIELD DESCRIPTORS AND IW NUMERIC FIELD DESCRIPTORS. 00130005
17: C 00140005
18: C THIS ROUTINE TESTS WHETHER THE FIRST CHARACTER OF A FORMAT 00150005
19: C RECORD FOR PRINTER OUTPUT DETERMINES VERTICAL SPACING AS FOLLOWS 00160005
20: C BLANK - ONE LINE 00170005
21: C 1 - ADVANCE TO FIRST LINE OF NEXT PAGE 00180005
22: C 00190005
23: C REFERENCES 00200005
24: C AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN, 00210005
25: C X3.9-1978 00220005
26: C 00230005
27: C SECTION 12.8.2, INPUT/OUTPUT LISTS 00240005
28: C SECTION 12.9.5.2, READ, WRITE, AND PRINT STATEMENT 00250005
29: C SECTION 12.9.5.2.3, PRINTING OF FORMATTED RECORDS 00260005
30: C SECTION 13.5.2, H EDITING 00270005
31: C SECTION 13.5.3.2, X EDITING 00280005
32: C SECTION 13.5.9.1, NUMERIC EDITING 00290005
33: C 00300005
34: C ALL OF THE RESULTS OF THIS ROUTINE MUST BE VISUALLY CHECKED 00310005
35: C ON THE OUTPUT REPORT. THE USUAL TEST CODE FOR PASS, FAIL, OR 00320005
36: C DELETE DOES NOT APPLY TO THIS ROUTINE. IF ANY TEST IS TO BE 00330005
37: C DELETED, CHANGE THE OFFENDING WRITE OR FORMAT STATEMENT TO A 00340005
38: C COMMENT. THE PERSON RESPONSIBLE FOR CHECKING THE OUTPUT MUST ALSO00350005
39: C CHECK THE COMPILER LISTING TO SEE IF ANY STATEMENTS HAVE BEEN 00360005
40: C CHANGED TO COMMENTS. 00370005
41: C 00380005
42: C ********************************************************** 00390005
43: C 00400005
44: C A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE 00410005
45: C BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN NATIONAL STANDARD 00420005
46: C PROGRAMMING LANGUAGE FORTRAN X3.9-1978, HAS BEEN DEVELOPED BY THE 00430005
47: C FEDERAL COBOL COMPILER TESTING SERVICE. THE FORTRAN COMPILER 00440005
48: C VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT ROUTINES, THEIR RELATED00450005
49: C DATA, AND AN EXECUTIVE SYSTEM. EACH AUDIT ROUTINE IS A FORTRAN 00460005
50: C PROGRAM, SUBPROGRAM OR FUNCTION WHICH INCLUDES TESTS OF SPECIFIC 00470005
51: C LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING THE RESULT 00480005
52: C OF EXECUTING THESE TESTS. 00490005
53: C 00500005
54: C THIS PARTICULAR PROGRAM/SUBPROGRAM/FUNCTION CONTAINS FEATURES 00510005
55: C FOUND ONLY IN THE SUBSET AS DEFINED IN X3.9-1978. 00520005
56: C 00530005
57: C SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO - 00540005
58: C 00550005
59: C DEPARTMENT OF THE NAVY 00560005
60: C FEDERAL COBOL COMPILER TESTING SERVICE 00570005
61: C WASHINGTON, D.C. 20376 00580005
62: C 00590005
63: C ********************************************************** 00600005
64: C 00610005
65: C 00620005
66: C 00630005
67: C INITIALIZATION SECTION 00640005
68: C 00650005
69: C INITIALIZE CONSTANTS 00660005
70: C ************** 00670005
71: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00680005
72: I01 = 5 00690005
73: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00700005
74: I02 = 6 00710005
75: C SYSTEM ENVIRONMENT SECTION 00720005
76: C 00730005
77: I01 = 5 00740005
78: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00750005
79: C (UNIT NUMBER FOR CARD READER). 00760005
80: CX011 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD. 00770005
81: C THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00780005
82: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE. 00790005
83: C 00800005
84: I02 = 6 00810005
85: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6 00820005
86: C (UNIT NUMBER FOR PRINTER). 00830005
87: CX021 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD. 00840005
88: C THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00850005
89: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE. 00860005
90: C 00870005
91: IVPASS=0 00880005
92: IVFAIL=0 00890005
93: IVDELE=0 00900005
94: ICZERO=0 00910005
95: C 00920005
96: C WRITE PAGE HEADERS 00930005
97: WRITE (I02,90000) 00940005
98: WRITE (I02,90001) 00950005
99: WRITE (I02,90002) 00960005
100: WRITE (I02, 90002) 00970005
101: WRITE (I02,90003) 00980005
102: WRITE (I02,90002) 00990005
103: WRITE (I02,90004) 01000005
104: WRITE (I02,90002) 01010005
105: WRITE (I02,90011) 01020005
106: WRITE (I02,90002) 01030005
107: WRITE (I02,90002) 01040005
108: WRITE (I02,90006) 01050005
109: WRITE (I02,90002) 01060005
110: 331 CONTINUE 01070005
111: IVTNUM = 33 01080005
112: C 01090005
113: C **** TEST 033 **** 01100005
114: C TEST 33 - VERTICAL SPACING TEST 01110005
115: C 1 IN FIRST CHARACTER OF FORMATTED PRINT RECORD MEANS 01120005
116: C RECORD IS FIRST LINE AT TOP OF NEXT PAGE. 01130005
117: C 01140005
118: WRITE (I02,80001) IVTNUM 01150005
119: WRITE (I02,80331) 01160005
120: 80331 FORMAT (5X,22HLAST LINE ON THIS PAGE) 01170005
121: WRITE (I02,80330) 01180005
122: 80330 FORMAT (1H1,31H THIS IS FIRST LINE ON PAGE) 01190005
123: 341 CONTINUE 01200005
124: IVTNUM = 34 01210005
125: C 01220005
126: C **** TEST 034 **** 01230005
127: C TEST 34 - VERTICAL SPACING TEST 01240005
128: C PRINT BLANK LINES 01250005
129: C 01260005
130: WRITE (I02,90002) 01270005
131: WRITE (I02,80001) IVTNUM 01280005
132: WRITE (I02,80340) 01290005
133: 80340 FORMAT (1H , 10X) 01300005
134: WRITE (I02,80341) 01310005
135: 80341 FORMAT (41H THERE IS ONE BLANK LINE BEFORE THIS LINE) 01320005
136: WRITE (I02,80342) 01330005
137: WRITE (I02,80342) 01340005
138: 80342 FORMAT (11H ) 01350005
139: WRITE (I02,80343) 01360005
140: 80343 FORMAT (43H THERE ARE TWO BLANK LINES BEFORE THIS LINE) 01370005
141: WRITE (I02,80344) 01380005
142: WRITE (I02,80344) 01390005
143: WRITE (I02,80344) 01400005
144: 80344 FORMAT (11X) 01410005
145: WRITE (I02,80345) 01420005
146: 80345 FORMAT (45H THERE ARE THREE BLANK LINES BEFORE THIS LINE) 01430005
147: 351 CONTINUE 01440005
148: IVTNUM = 35 01450005
149: C 01460005
150: C **** TEST 035 **** 01470005
151: C TEST 35 - PRINT 54 CHARACTERS 01480005
152: C 01490005
153: WRITE (I02,90002) 01500005
154: WRITE (I02,80001)IVTNUM 01510005
155: WRITE (I02,80351) 01520005
156: 80351 FORMAT (33H NEXT LINE CONTAINS 54 CHARACTERS) 01530005
157: WRITE (I02,80350) 01540005
158: 80350 FORMAT(55H 123456789012345678901234567890123456789012345678901234)01550005
159: 361 CONTINUE 01560005
160: IVTNUM = 36 01570005
161: C 01580005
162: C **** TEST 036 **** 01590005
163: C TEST 36 - NUMERIC FIELD DESCRIPTOR I1 01600005
164: C 01610005
165: WRITE (I02,90000) 01620005
166: WRITE (I02,90002) 01630005
167: WRITE (I02,80001) IVTNUM 01640005
168: WRITE (I02,80361) 01650005
169: 80361 FORMAT (1H ,10X,38HTHIS TEST PRINTS 3 UNDER I1 DESCRIPTOR) 01660005
170: IVON01 = 3 01670005
171: WRITE (I02,80360) IVON01 01680005
172: 80360 FORMAT (1H ,10X,I1) 01690005
173: 371 CONTINUE 01700005
174: IVTNUM = 37 01710005
175: C 01720005
176: C **** TEST 037 **** 01730005
177: C TEST 37 - NUMERIC FIELD DESCRIPTOR I2 01740005
178: C 01750005
179: WRITE (I02,90002) 01760005
180: WRITE (I02,80001) IVTNUM 01770005
181: WRITE (I02,80371) 01780005
182: 80371 FORMAT (11X,39HTHIS TEST PRINTS 15 UNDER I2 DESCRIPTOR) 01790005
183: IVON01 = 15 01800005
184: WRITE (I02,80370) IVON01 01810005
185: 80370 FORMAT (1H ,10X,I2) 01820005
186: 381 CONTINUE 01830005
187: IVTNUM = 38 01840005
188: C 01850005
189: C **** TEST 038 **** 01860005
190: C TEST 38 - NUMERIC FIELD DESCRIPTOR I3 01870005
191: C 01880005
192: WRITE (I02,90002) 01890005
193: WRITE (I02,80001) IVTNUM 01900005
194: WRITE (I02,80381) 01910005
195: 80381 FORMAT (11X,40HTHIS TEST PRINTS 291 UNDER I3 DESCRIPTOR) 01920005
196: IVON01 = 291 01930005
197: WRITE (I02,80380) IVON01 01940005
198: 80380 FORMAT (11X,I3) 01950005
199: 391 CONTINUE 01960005
200: IVTNUM = 39 01970005
201: C 01980005
202: C **** TEST 039 **** 01990005
203: C TEST 39 - NUMERIC FIELD DESCRIPTOR I4 02000005
204: C 02010005
205: WRITE (I02,90002) 02020005
206: WRITE (I02,80001) IVTNUM 02030005
207: WRITE (I02,80391) 02040005
208: 80391 FORMAT (11X,41HTHIS TEST PRINTS 4321 UNDER I4 DESCRIPTOR) 02050005
209: IVON01 = 4321 02060005
210: WRITE (I02,80390) IVON01 02070005
211: 80390 FORMAT (11X,I4) 02080005
212: 401 CONTINUE 02090005
213: IVTNUM = 40 02100005
214: C 02110005
215: C **** TEST 040 **** 02120005
216: C TEST 40 - NUMERIC FIELD DESCRIPTOR I5 02130005
217: C 02140005
218: WRITE (I02,90002) 02150005
219: WRITE (I02,80001) IVTNUM 02160005
220: WRITE (I02,80401) 02170005
221: 80401 FORMAT (1H ,10X,42HTHIS TEST PRINTS 12345 UNDER I5 DESCRIPTOR) 02180005
222: IVON01 = 12345 02190005
223: WRITE (I02,80400) IVON01 02200005
224: 80400 FORMAT (1H ,10X,I5) 02210005
225: 411 CONTINUE 02220005
226: IVTNUM = 41 02230005
227: C 02240005
228: C **** TEST 041 **** 02250005
229: C TEST 41 - NUMERIC FIELD DESCRIPTORS, INTEGER CONVERSION 02260005
230: C 02270005
231: IVON01 = 1 02280005
232: IVON02 = 22 02290005
233: IVON03 = 333 02300005
234: IVON04 = 4444 02310005
235: IVON05 = 25555 02320005
236: WRITE (I02,90002) 02330005
237: WRITE (I02,80001) IVTNUM 02340005
238: WRITE (I02,80411) 02350005
239: 80411 FORMAT (3X,50HTHIS TEST PRINTS 1, 22, 333, 4444, AND 25555 UNDER) 02360005
240: WRITE (I02,80412) 02370005
241: 80412 FORMAT (10X,32H(10X,I1,3X,I2,3X,I3,3X,I4,3X,I5)) 02380005
242: WRITE (I02,80410) IVON01, IVON02, IVON03, IVON04, IVON05 02390005
243: 80410 FORMAT (10X,I1,3X,I2,3X,I3,3X,I4,3X,I5) 02400005
244: 421 CONTINUE 02410005
245: IVTNUM = 42 02420005
246: C 02430005
247: C **** TEST 042 **** 02440005
248: C TEST 42 - HOLLERITH, NUMERIC AND X FIELD DESCRIPTORS 02450005
249: C COMBINE HOLLERITH, NUMERIC AND X FIELD DESCRIPTORS IN 02460005
250: C ONE FORMAT STATEMENT 02470005
251: C 02480005
252: IVON01=113 02490005
253: IVON02=8 02500005
254: WRITE (I02,90002) 02510005
255: WRITE (I02,80001) IVTNUM 02520005
256: WRITE (I02,80421) 02530005
257: 80421 FORMAT (10X,28HNEXT TWO LINES ARE IDENTICAL) 02540005
258: WRITE (I02,80422) 02550005
259: 80422 FORMAT (35H IVON01 = 113 IVON02 = 8) 02560005
260: WRITE (I02,80420) IVON01, IVON02 02570005
261: 80420 FORMAT (6X,8HIVON01 =,I5,3X,8HIVON02 =,I5) 02580005
262: 431 CONTINUE 02590005
263: IVTNUM=43 02600005
264: C 02610005
265: C **** TEST 043 **** 02620005
266: C TEST 43 - NUMERIC FIELD DESCRIPTOR I2 02630005
267: C PRINT NEGATIVE INTEGER 02640005
268: C 02650005
269: IVON01 = -1 02660005
270: WRITE (I02,90000) 02670005
271: WRITE (I02,90002) 02680005
272: WRITE (I02,80001) IVTNUM 02690005
273: WRITE (I02,80431) 02700005
274: 80431 FORMAT (11X,39HTHIS TEST PRINTS -1 UNDER I2 DESCRIPTOR) 02710005
275: WRITE (I02,80430) IVON01 02720005
276: 80430 FORMAT (11X,I2) 02730005
277: 441 CONTINUE 02740005
278: IVTNUM = 44 02750005
279: C 02760005
280: C **** TEST 044 **** 02770005
281: C TEST 44 - NUMERIC FIELD DESCRIPTOR I3 02780005
282: C PRINT NEGATIVE INTEGER 02790005
283: C 02800005
284: IVON01 = -22 02810005
285: WRITE (I02,90002) 02820005
286: WRITE (I02,80001) IVTNUM 02830005
287: WRITE (I02,80441) 02840005
288: 80441 FORMAT (11X,40HTHIS TEST PRINTS -22 UNDER I3 DESCRIPTOR) 02850005
289: WRITE (I02,80440) IVON01 02860005
290: 80440 FORMAT (11X,I3) 02870005
291: 451 CONTINUE 02880005
292: IVTNUM = 45 02890005
293: C 02900005
294: C **** TEST 045 **** 02910005
295: C TEST 45 - NUMERIC FIELD DESCRIPTOR I4 02920005
296: C PRINT NEGATIVE INTEGER 02930005
297: C 02940005
298: IVON01 = -333 02950005
299: WRITE (I02,90002) 02960005
300: WRITE (I02,80001) IVTNUM 02970005
301: WRITE (I02,80451) 02980005
302: 80451 FORMAT (11X,41HTHIS TEST PRINTS -333 UNDER I4 DESCRIPTOR) 02990005
303: WRITE (I02,80450) IVON01 03000005
304: 80450 FORMAT (11X,I4) 03010005
305: 461 CONTINUE 03020005
306: IVTNUM = 46 03030005
307: C 03040005
308: C **** TEST 046 **** 03050005
309: C TEST 46 - NUMERIC FIELD DESCRIPTOR I5 03060005
310: C PRINT NEGATIVE INTEGER 03070005
311: C 03080005
312: IVON01 = -4444 03090005
313: WRITE (I02,90002) 03100005
314: WRITE (I02,80001) IVTNUM 03110005
315: WRITE (I02,80461) 03120005
316: 80461 FORMAT (11X,42HTHIS TEST PRINTS -4444 UNDER I5 DESCRIPTOR) 03130005
317: WRITE (I02,80460) IVON01 03140005
318: 80460 FORMAT (11X,I5) 03150005
319: 471 CONTINUE 03160005
320: IVTNUM = 47 03170005
321: C 03180005
322: C **** TEST 047 **** 03190005
323: C TEST 47 - NUMERIC FIELD DESCRIPTOR I6 03200005
324: C PRINT NEGATIVE INTEGER 03210005
325: C 03220005
326: IVON01 = -15555 03230005
327: WRITE (I02,90002) 03240005
328: WRITE (I02,80001) IVTNUM 03250005
329: WRITE (I02,80471) 03260005
330: 80471 FORMAT (11X,43HTHIS TEST PRINTS -15555 UNDER DESCRIPTOR I6) 03270005
331: WRITE (I02,80470) IVON01 03280005
332: 80470 FORMAT (11X,I6) 03290005
333: 481 CONTINUE 03300005
334: IVTNUM = 48 03310005
335: C 03320005
336: C **** TEST 048 **** 03330005
337: C TEST 48 - NUMERIC FIELD DESCRIPTORS, INTEGER CONVERSION 03340005
338: C PRINT NEGATIVE INTEGERS 03350005
339: C 03360005
340: IVON01 = -9 03370005
341: IVON02 = -88 03380005
342: IVON03 = -777 03390005
343: IVON04 = -6666 03400005
344: IVON05 = -25555 03410005
345: WRITE (I02,90002) 03420005
346: WRITE (I02,80001) IVTNUM 03430005
347: WRITE (I02,80481) 03440005
348: 80481 FORMAT (8X,49HTHIS TEST PRINTS -9, -88, -777, -6666, AND -25555) 03450005
349: WRITE (I02,80482) 03460005
350: 80482 FORMAT (11X,43HUNDER FORMAT 10X,I2,3X,I3,3X,I4,3X,I5,3X,I6) 03470005
351: WRITE (I02,80480) IVON01,IVON02,IVON03,IVON04,IVON05 03480005
352: 80480 FORMAT (10X,I2,3X,I3,3X,I4,3X,I5,3X,I6) 03490005
353: 491 CONTINUE 03500005
354: IVTNUM = 49 03510005
355: C 03520005
356: C **** TEST 049 **** 03530005
357: C TEST 49 - NUMERIC FIELD DESCRIPTOR I5 03540005
358: C MIX POSITIVE AND NEGATIVE INTEGER OUTPUT IN ONE FORMAT 03550005
359: C STATEMENT ALL UNDER I5 DESCRIPTOR 03560005
360: C 03570005
361: IVON01 =5 03580005
362: IVON02 = -54 03590005
363: IVON03 = 543 03600005
364: IVON04 = -5432 03610005
365: IVON05=32000 03620005
366: WRITE (I02,90002) 03630005
367: WRITE (I02,80001) IVTNUM 03640005
368: WRITE (I02,80491) 03650005
369: 80491 FORMAT (18X,46HTHIS TEST PRINTS 5, -54, 543, -5432, AND 32000) 03660005
370: WRITE (I02,80492) 03670005
371: 80492 FORMAT (11X,33HUNDER I5 NUMERIC FIELD DESCRIPTOR) 03680005
372: WRITE (I02,80490) IVON01,IVON02,IVON03,IVON04,IVON05 03690005
373: 80490 FORMAT (11X,I5,3X,I5,3X,I5,3X,I5,3X,I5) 03700005
374: C 03710005
375: C WRITE PAGE FOOTINGS 03720005
376: 99999 CONTINUE 03730005
377: WRITE (I02,90002) 03740005
378: WRITE (I02,90006) 03750005
379: WRITE (I02,90002) 03760005
380: WRITE (I02,90007) 03770005
381: C 03780005
382: C TERMINATE ROUTINE EXECUTION 03790005
383: STOP 03800005
384: C 03810005
385: C FORMAT STATEMENTS FOR PAGE HEADERS 03820005
386: 90000 FORMAT (1H1) 03830005
387: 90002 FORMAT (1H ) 03840005
388: 90001 FORMAT (1H ,10X,34HFORTRAN COMPILER VALIDATION SYSTEM) 03850005
389: 90003 FORMAT (1H ,21X,11HVERSION 1.0) 03860005
390: 90004 FORMAT (1H ,10X,38HFOR OFFICIAL USE ONLY - COPYRIGHT 1978) 03870005
391: 90005 FORMAT (1H ,5X,4HTEST,5X,9HPASS/FAIL, 5X,8HCOMPUTED,8X,7HCORRECT) 03880005
392: 90006 FORMAT (1H ,5X,46H----------------------------------------------) 03890005
393: 90011 FORMAT (1H ,18X,17HSUBSET LEVEL TEST) 03900005
394: C FORMAT STATEMENTS FOR THIS ROUTINE 03910005
395: 80001 FORMAT (10X,5HTEST ,I2) 03920005
396: 90007 FORMAT (1H ,20X,20HEND OF PROGRAM FM005) 03930005
397: END 03940005
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.