![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM411.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 FM411.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 FM411 00010411
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 00020411
6: C 00030411
7: C 00040411
8: C THIS ROUTINE TESTS FOR PROPER PROCESSING OF UNFORMATTED RECORDS00050411
9: C WITH A FILE CONNECTED FOR SEQUENTIAL ACCESS. UNFORMATTED RECORDS00060411
10: C MAY BE READ OR WRITTEN ONLY BY UNFORMATTED INPUT/OUTPUT STATE- 00070411
11: C MENTS. THIS ROUTINE TESTS SEVERAL SYNTACTICAL VARIATIONS OF THE 00080411
12: C UNFORMATTED READ AND WRITE STATEMENTS AS WELL AS THE FILE 00090411
13: C POSITIONING STATEMENTS BACKSPACE, ENDFILE AND REWIND. IN 00100411
14: C ADDITION UNFORMATTED RECORDS MAY HAVE BOTH CHARACTER AND 00110411
15: C NONCHARACTER DATA. THIS DATA IS TRANSFERRED WITHOUT EDITING 00120411
16: C BETWEEN THE CURRENT RECORD AND ENTITIES SPECIFIED BY THE INPUT/ 00130411
17: C OUTPUT LIST ITEMS. THIS ROUTINE BOTH READS AND WRITES 00140411
18: C RECORDS CONTAINING DATA OF LOGICAL, REAL AND INTEGER TYPE WITH 00150411
19: C I/O LIST ITEMS REPRESENTED AS VARIABLE NAMES, ARRAY ELEMENT 00160411
20: C NAMES AND ARRAY NAMES. THIS ROUTINE DOES NOT TEST DATA OF TYPE 00170411
21: C CHARACTER. 00180411
22: C ROUTINE FM413 TESTS USE OF UNFORMATTED RECORDS WITH A FILE 00190411
23: C CONNECTED FOR DIRECT ACCESS. 00200411
24: C 00210411
25: C THIS ROUTINE TESTS 00220411
26: C 00230411
27: C (1) THE STATEMENT CONSTRUCTS 00240411
28: C 00250411
29: C A. WRITE (U) VARIABLE-NAME,... 00260411
30: C B. WRITE (U) ARRAY-ELEMENT-NAME,... 00270411
31: C C. WRITE (U) ARRAY-NAME,... 00280411
32: C D. WRITE (U) - NO OUTPUT LIST 00290411
33: C E. WRITE (U) IMPLIED-DO-LIST 00300411
34: C F. READ (U) VARIABLE-NAME,... 00310411
35: C G. READ (U) ARRAY-ELEMENT-NAME,... 00320411
36: C H. READ (U) ARRAY-NAME,... 00330411
37: C I. READ (U,END=S) - NO INPUT LIST 00340411
38: C J. READ (U,END=S) VARIABLE-NAME 00350411
39: C K. READ (U) IMPLIED-DO-LIST 00360411
40: C 00370411
41: C (2) USE OF A READ STATEMENT WHERE THE NUMBER OF VALUES 00380411
42: C IN THE INPUT LIST IS LESS THAN OR EQUAL TO THE 00390411
43: C NUMBER OF VALUES IN THE RECORD. 00400411
44: C 00410411
45: C (3) USE OF THE BACKSPACE, REWIND AND ENDFILE STATEMENT 00420411
46: C ON A FILE CONTAINING UNFORMATTED RECORDS. 00430411
47: C 00440411
48: C (4) USE OF A REWIND STATEMENT ON A FILE THAT IS CONNECTED 00450411
49: C BUT DOES NOT EXIST. 00460411
50: C 00470411
51: C (5) USE OF AN ENDFILE STATEMENT TO CREATE A FILE THAT 00480411
52: C DOES NOT EXIST 00490411
53: C 00500411
54: C REFERENCES - 00510411
55: C 00520411
56: C AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN, 00530411
57: C X3.9-1977 00540411
58: C 00550411
59: C SECTION 4.1, DATA TYPES 00560411
60: C SECTION 12.1.2, UNFORMATTED RECORDS 00570411
61: C SECTION 12.2.1, FILE EXISTENCE 00580411
62: C SECTION 12.2.4, FILE ACCESS 00590411
63: C SECTION 12.2.4.1, SEQUENTIAL ACCESS 00600411
64: C SECTION 12.3.3, UNIT SPECIFIER AND IDENTIFIER 00610411
65: C SECTION 12.7.2, END-OF-FILE SPECIFIER 00620411
66: C SECTION 12.8, READ, WRITE AND PRINT STATEMENTS 00630411
67: C SECTION 12.8.1, CONTROL INFORMATION LIST 00640411
68: C SECTION 12.8.2, INPUT/OUTPUT LIST 00650411
69: C SECTION 12.8.2.1, INPUT LIST ITEMS 00660411
70: C SECTION 12.8.2.2, OUTPUT LIST ITEMS 00670411
71: C SECTION 12.8.2.3, IMPLIED-DO LIST 00680411
72: C SECTION 12.9.5.1, UNFORMATTED DATA TRANSFER 00690411
73: C SECTION 12.10.4, FILE POSITIONING STATEMENTS 00700411
74: C SECTION 12.10.4.1 BACKSPACE STATEMENT 00710411
75: C SECTION 12.10.4.2, ENDFILE STATEMENT 00720411
76: C SECTION 12.10.4.3, REWIND STATEMENT 00730411
77: C 00740411
78: C 00750411
79: C 00760411
80: C ******************************************************************00770411
81: C A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE 00780411
82: C BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN STANDARD FORTRAN 00790411
83: C X3.9-1978, HAS BEEN DEVELOPED BY THE DEPARTMENT OF THE NAVY. THE 00800411
84: C FORTRAN COMPILER VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT 00810411
85: C ROUTINES, THEIR RELATED DATA, AND AN EXECUTIVE SYSTEM. EACH AUDIT00820411
86: C ROUTINE IS A FORTRAN PROGRAM OR SUBPROGRAM WHICH INCLUDES TESTS 00830411
87: C OF SPECIFIC LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING00840411
88: C THE RESULT OF EXECUTING THESE TESTS. 00850411
89: C 00860411
90: C THIS PARTICULAR PROGRAM OR SUBPROGRAM CONTAINS ONLY FEATURES 00870411
91: C FOUND IN THE SUBSET LEVEL OF THE STANDARD. 00880411
92: C 00890411
93: C SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00900411
94: C DEPARTMENT OF THE NAVY 00910411
95: C FEDERAL COBOL COMPILER TESTING SERVICE 00920411
96: C WASHINGTON, D.C. 20376 00930411
97: C 00940411
98: C ******************************************************************00950411
99: C 00960411
100: C 00970411
101: IMPLICIT LOGICAL (L) 00980411
102: IMPLICIT CHARACTER*14 (C) 00990411
103: C 01000411
104: LOGICAL LAON11, LAON21, LAON31, LCONT1, LCONF2, LVONT1, LVONF2 01010411
105: LOGICAL LAON12, LAON22, LAON32, LCONT3, LCONF4, LVONT3, LVONF4 01020411
106: LOGICAL LCONT5, LCONF6, LCONT7, LCONF8, LVONT5, LVONF6, LVONT7 01030411
107: LOGICAL LVONF8 01040411
108: DIMENSION IDUMP(80) 01050411
109: DIMENSION IAON11(8), IAON21(2,4), IAON31(2,2,2) 01060411
110: DIMENSION IAON12(8), IAON22(2,4), IAON32(2,2,2) 01070411
111: DIMENSION RAON11(8), RAON21(2,4), RAON31(2,2,2) 01080411
112: DIMENSION RAON12(8), RAON22(2,4), RAON32(2,2,2) 01090411
113: DIMENSION LAON11(8), LAON21(2,4), LAON31(2,2,2) 01100411
114: DIMENSION LAON12(8), LAON22(2,4), LAON32(2,2,2) 01110411
115: DATA IAON11 /11, -11, 777, -777, 512, -512, -32767, 32767/ 01120411
116: DATA IAON21 /11, -11, 777, -777, 512, -512, -32767, 32767/ 01130411
117: DATA IAON31 /11, -11, 777, -777, 512, -512, -32767, 32767/ 01140411
118: DATA LAON11 /.TRUE., .FALSE., .TRUE., .FALSE., .TRUE., .FALSE., 01150411
119: 1 .TRUE., .FALSE./ 01160411
120: DATA LAON21 /.TRUE., .FALSE., .TRUE., .FALSE., .TRUE., .FALSE., 01170411
121: 1 .TRUE., .FALSE./ 01180411
122: DATA LAON31 /.TRUE., .FALSE., .TRUE., .FALSE., .TRUE., .FALSE., 01190411
123: 1 .TRUE., .FALSE./ 01200411
124: DATA RAON11 /11., -11., 7.77, -7.77,.512, -.512, -32767., 32767./01210411
125: DATA RAON21 /11., -11., 7.77, -7.77,.512, -.512, -32767., 32767./01220411
126: DATA RAON31 /11., -11., 7.77, -7.77,.512, -.512, -32767., 32767./01230411
127: ICON21 = 11 01240411
128: ICON22 = -11 01250411
129: ICON31 = +777 01260411
130: ICON32 = -777 01270411
131: ICON33 = 512 01280411
132: ICON34 = -512 01290411
133: ICON55 = -32767 01300411
134: ICON56 = 32767 01310411
135: RCON21 = 11. 01320411
136: RCON22 = -11. 01330411
137: RCON31 = +7.77 01340411
138: RCON32 = -7.77 01350411
139: RCON33 = .512 01360411
140: RCON34 = -.512 01370411
141: RCON55 = -32767. 01380411
142: RCON56 = 32767. 01390411
143: LCONT1 = .TRUE. 01400411
144: LCONF2 = .FALSE. 01410411
145: LCONT3 = .TRUE. 01420411
146: LCONF4 = .FALSE. 01430411
147: LCONT5 = .TRUE. 01440411
148: LCONF6 = .FALSE. 01450411
149: LCONT7 = .TRUE. 01460411
150: LCONF8 = .FALSE. 01470411
151: C 01480411
152: C THE FILE USED IN THIS ROUTINE HAS THE FOLLOWING PROPERTIES 01490411
153: C 01500411
154: C FILE IDENTIFIER - I04 (X-NUMBER 04) 01510411
155: C RECORD SIZE - 80 01520411
156: C ACCESS METHOD - SEQUENTIAL 01530411
157: C RECORD TYPE - UNFORMATTED 01540411
158: C DESIGNATED DEVICE - DISK 01550411
159: C TYPE OF DATA - INTEGER, REAL AND LOGICAL 01560411
160: C RECORDS IN FILE - 142 PLUS ENDFILE RECORD 01570411
161: C 01580411
162: C THE FIRST 6 FIELDS OF EACH RECORD IN THE FILE UNIQUELY IDENT-01590411
163: C IFIES THAT RECORD. THE REMAINING FIELDS OF THE RECORD CONTAIN 01600411
164: C DATA WHICH ARE USED IN TESTING. A DESCRIPTION OF EACH FIELD 01610411
165: C OF THE PREAMBLE FOLLOWS. 01620411
166: C 01630411
167: C VARIABLE NAME IN PROGRAM FIELD NUMBER 01640411
168: C ------------------------ ------------ 01650411
169: C 01660411
170: C IPROG (ROUTINE NAME) - 1 01670411
171: C IFILE (LOGICAL/X-NUMBER) - 2 01680411
172: C ITOTR (RECORDS IN FILE) - 3 01690411
173: C IRLGN (LENGTH OF RECORD) - 4 01700411
174: C IRECN (RECORD NUMBER) - 5 01710411
175: C IEOF (9999 IF LAST RECORD) - 6 01720411
176: C 01730411
177: C 01740411
178: C 01750411
179: C 01760411
180: C INITIALIZATION SECTION. 01770411
181: C 01780411
182: C INITIALIZE CONSTANTS 01790411
183: C ******************** 01800411
184: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER 01810411
185: I01 = 5 01820411
186: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER 01830411
187: I02 = 6 01840411
188: C SYSTEM ENVIRONMENT SECTION 01850411
189: C 01860411
190: I01 = 5 01870411
191: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 01880411
192: C (UNIT NUMBER FOR CARD READER). 01890411
193: CX011 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD01900411
194: C THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 01910411
195: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE. 01920411
196: C 01930411
197: I02 = 6 01940411
198: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6 01950411
199: C (UNIT NUMBER FOR PRINTER). 01960411
200: CX021 THIS CARD IS PEPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD.01970411
201: C THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 01980411
202: C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE. 01990411
203: C 02000411
204: IVPASS = 0 02010411
205: IVFAIL = 0 02020411
206: IVDELE = 0 02030411
207: ICZERO = 0 02040411
208: C 02050411
209: C WRITE OUT PAGE HEADERS 02060411
210: C 02070411
211: WRITE (I02,90002) 02080411
212: WRITE (I02,90006) 02090411
213: WRITE (I02,90008) 02100411
214: WRITE (I02,90004) 02110411
215: WRITE (I02,90010) 02120411
216: WRITE (I02,90004) 02130411
217: WRITE (I02,90016) 02140411
218: WRITE (I02,90001) 02150411
219: WRITE (I02,90004) 02160411
220: WRITE (I02,90012) 02170411
221: WRITE (I02,90014) 02180411
222: WRITE (I02,90004) 02190411
223: C 02200411
224: I04 = 8 02210411
225: C I04 CONTAINS THE LOGICAL UNIT NUMBER FOR A SEQUENTIAL ACCESS FILE02220411
226: OPEN(UNIT=I04,ACCESS='SEQUENTIAL',FORM='UNFORMATTED') 02230411
227: CX041 THIS CARD IS REPLACED BY CONTENTS OF X-041 CARD 02240411
228: IPROG = 411 02250411
229: IFILE = I04 02260411
230: ITOTR = 142 02270411
231: IRLGN = 80 02280411
232: IRECN = 0 02290411
233: IEOF = 0 02300411
234: C 02310411
235: C **** FCVS PROGRAM 411 - TEST 001 **** 02320411
236: C 02330411
237: C 02340411
238: C TEST 001 USES THE REWIND STATEMENT ON A FILE THAT IS CONNECTED 02350411
239: C BUT DOES NOT EXIST. THERE SHOULD BE NO EFFECT ON THE FILE WHEN 02360411
240: C THIS STATEMENT IS EXECUTED. CONNECTION OF THE FILE TO A UNIT 02370411
241: C IS ASSUMED TO BE DONE BY PRECONNECTION. 02380411
242: C 02390411
243: C SEE SECTION 12.10.4.3, REWIND STATEMENT 02400411
244: C 02410411
245: C 02420411
246: IVTNUM = 1 02430411
247: IF (ICZERO) 30010, 0010, 30010 02440411
248: 0010 CONTINUE 02450411
249: IVCORR = 1 02460411
250: IVCOMP = 0 02470411
251: REWIND I04 02480411
252: IVCOMP = 1 02490411
253: 40010 IF (IVCOMP - 1) 20010, 10010, 20010 02500411
254: 30010 IVDELE = IVDELE + 1 02510411
255: WRITE (I02,80000) IVTNUM 02520411
256: IF (ICZERO) 10010, 0021, 20010 02530411
257: 10010 IVPASS = IVPASS + 1 02540411
258: WRITE (I02,80002) IVTNUM 02550411
259: GO TO 0021 02560411
260: 20010 IVFAIL = IVFAIL + 1 02570411
261: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02580411
262: 0021 CONTINUE 02590411
263: C 02600411
264: C **** FCVS PROGRAM 411 - TEST 002 **** 02610411
265: C 02620411
266: C 02630411
267: C TEST 002 USES THE ENDFILE STATEMENT TO CREATE A FILE THAT IS 02640411
268: C CONNECTED BUT DOES NOT EXIST. NO RECORDS HAVE BEEN WRITTEN TO 02650411
269: C THE FILE BEFORE THE ENDFILE STATEMENT IS EXECUTED. AS IN THE 02660411
270: C PRECEDING TEST, IT IS ASSUMED THAT CONNECTION OF THE FILE TO A 02670411
271: C UNIT IS DONE BY PRECONNECTION. 02680411
272: C 02690411
273: C SEE SECTIONS 12.2.1, FILE EXISTENCE 02700411
274: C 12.10.4.2, ENDFILE STATEMENT 02710411
275: C 02720411
276: C 02730411
277: IVTNUM = 2 02740411
278: IF (ICZERO) 30020, 0020, 30020 02750411
279: 0020 CONTINUE 02760411
280: IVCORR = 1 02770411
281: IVCOMP = 0 02780411
282: ENDFILE I04 02790411
283: REWIND I04 02800411
284: READ (I04, END = 0023) IVON01 02810411
285: C 02820411
286: C TO TEST CREATION OF A FILE VIA A ENDFILE STATEMENT THE FILE 02830411
287: C IS REWOUND AND READ. AN END-OF-FILE CONDITION IS EXPECTED TO 02840411
288: C OCCUR ON THE FIRST READ SINCE THE ONLY RECORD WRITTEN TO THE 02850411
289: C FILE WAS THE ENDFILE RECORD. 02860411
290: C 02870411
291: IVCOMP = 0 02880411
292: GO TO 40020 02890411
293: 0023 IVCOMP = 1 02900411
294: 40020 IF (IVCOMP - 1) 20020, 10020, 20020 02910411
295: 30020 IVDELE = IVDELE + 1 02920411
296: WRITE (I02,80000) IVTNUM 02930411
297: IF (ICZERO) 10020, 0031, 20020 02940411
298: 10020 IVPASS = IVPASS + 1 02950411
299: WRITE (I02,80002) IVTNUM 02960411
300: GO TO 0031 02970411
301: 20020 IVFAIL = IVFAIL + 1 02980411
302: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02990411
303: 0031 CONTINUE 03000411
304: C 03010411
305: C 03020411
306: C TESTS 003 THROUGH 019 USE A PRECONNECTED FILE FOR SEQUENTIAL 03030411
307: C ACCESS TO WRITE 141 RECORDS TO THE FILE. THESE TESTS TEST USE OF 03040411
308: C THE ALLOWABLE FORMS OF THE WRITE STATEMENT ON A FILE CONNECTED 03050411
309: C FOR SEQUENTIAL ACCESS. THE WRITE STATEMENT IS USED WITH 03060411
310: C THE I/O LIST ITEM AS A VARIABLE, ARRAY ELEMENT AND AN ARRAY. 03070411
311: C THE PURPOSE OF TESTS 003 THROUGH 019 IS TO CHECK THE COMPILER'S03080411
312: C ABILITY TO HANDLE THE VARIOUS STATEMENT CONSTRUCTS OF THE 03090411
313: C WRITE STATEMENT. LATER TESTS WITHIN THIS ROUINE READ AND 03100411
314: C CHECK THE RECORDS WHICH ARE CREATED. 03110411
315: C THE VALUE IN IVCORR FOR TESTS 002 THROUGH 013 IS THE RECORD 03120411
316: C NUMBER FOR THE RECORD. 03130411
317: C 03140411
318: C 03150411
319: C 03160411
320: C **** FCVS PROGRAM 411 - TEST 003 **** 03170411
321: C 03180411
322: C 03190411
323: IVTNUM = 3 03200411
324: IF (ICZERO) 30030, 0030, 30030 03210411
325: 0030 CONTINUE 03220411
326: REWIND I04 03230411
327: C REPOSITION TO BEGINNING OF FILE 03240411
328: C 03250411
329: C TEST 003 USES A WRITE STATEMENT WHERE THE OUTPUT LIST ITEM 03260411
330: C IS A VARIABLE OF INTEGER TYPE. 03270411
331: C 03280411
332: IRECN = 01 03290411
333: IVCORR = 01 03300411
334: WRITE (I04) IPROG, IFILE, ITOTR, IRLGN, IRECN, IEOF, 03310411
335: 1 ICON21, ICON22, ICON31, ICON32, ICON33, ICON34, ICON55, ICON56 03320411
336: IVCOMP = IRECN 03330411
337: 40030 IF (IVCOMP - 01) 20030, 10030, 20030 03340411
338: 30030 IVDELE = IVDELE + 1 03350411
339: WRITE (I02,80000) IVTNUM 03360411
340: IF (ICZERO) 10030, 0041, 20030 03370411
341: 10030 IVPASS = IVPASS + 1 03380411
342: WRITE (I02,80002) IVTNUM 03390411
343: GO TO 0041 03400411
344: 20030 IVFAIL = IVFAIL + 1 03410411
345: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03420411
346: 0041 CONTINUE 03430411
347: C 03440411
348: C **** FCVS PROGRAM 411 - TEST 004 **** 03450411
349: C 03460411
350: C 03470411
351: C TEST 004 USES A WRITE STATEMENT WHERE THE OUTPUT LIST ITEM 03480411
352: C IS A VARIABLE OF REAL TYPE. 03490411
353: C 03500411
354: C 03510411
355: IVTNUM = 4 03520411
356: IF (ICZERO) 30040, 0040, 30040 03530411
357: 0040 CONTINUE 03540411
358: IRECN = 02 03550411
359: IVCORR = 02 03560411
360: WRITE (I04) IPROG, IFILE, ITOTR, IRLGN, IRECN, IEOF, 03570411
361: 1 RCON21, RCON22, RCON31, RCON32, RCON33, RCON34, RCON55, RCON56 03580411
362: IVCOMP = IRECN 03590411
363: 40040 IF (IVCOMP - 02) 20040, 10040, 20040 03600411
364: 30040 IVDELE = IVDELE + 1 03610411
365: WRITE (I02,80000) IVTNUM 03620411
366: IF (ICZERO) 10040, 0051, 20040 03630411
367: 10040 IVPASS = IVPASS + 1 03640411
368: WRITE (I02,80002) IVTNUM 03650411
369: GO TO 0051 03660411
370: 20040 IVFAIL = IVFAIL + 1 03670411
371: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03680411
372: 0051 CONTINUE 03690411
373: C 03700411
374: C **** FCVS PROGRAM 411 - TEST 005 **** 03710411
375: C 03720411
376: C 03730411
377: C TEST 005 USES A WRITE STATEMENT WHERE THE OUTPUT LIST ITEM 03740411
378: C IS A VARIABLE OF LOGICAL TYPE. 03750411
379: C 03760411
380: C 03770411
381: IVTNUM = 5 03780411
382: IF (ICZERO) 30050, 0050, 30050 03790411
383: 0050 CONTINUE 03800411
384: IRECN = 03 03810411
385: IVCORR = 03 03820411
386: WRITE (I04) IPROG, IFILE, ITOTR, IRLGN, IRECN, IEOF, 03830411
387: 1 LCONT1, LCONF2, LCONT3, LCONF4, LCONT5, LCONF6, LCONT7, LCONF803840411
388: IVCOMP = IRECN 03850411
389: 40050 IF (IVCOMP - 03) 20050, 10050, 20050 03860411
390: 30050 IVDELE = IVDELE + 1 03870411
391: WRITE (I02,80000) IVTNUM 03880411
392: IF (ICZERO) 10050, 0061, 20050 03890411
393: 10050 IVPASS = IVPASS + 1 03900411
394: WRITE (I02,80002) IVTNUM 03910411
395: GO TO 0061 03920411
396: 20050 IVFAIL = IVFAIL + 1 03930411
397: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03940411
398: 0061 CONTINUE 03950411
399: C 03960411
400: C **** FCVS PROGRAM 411 - TEST 006 **** 03970411
401: C 03980411
402: C 03990411
403: C TEST 006 USES A WRITE STATEMENT WHERE THE OUTPUT LIST ITEM 04000411
404: C IS AN ARRAY ELEMENT OF INTEGER TYPE. ONE, TWO AND THREE 04010411
405: C DIMENSION ARRAYS ARE USED. 04020411
406: C 04030411
407: C 04040411
408: IVTNUM = 6 04050411
409: IF (ICZERO) 30060, 0060, 30060 04060411
410: 0060 CONTINUE 04070411
411: IRECN = 04 04080411
412: IVCORR = 04 04090411
413: WRITE (I04) IPROG, IFILE, ITOTR, IRLGN, IRECN, IEOF, 04100411
414: 1 IAON11(1), IAON11(2), IAON21(1,2), IAON21(2,2), IAON31(1,1,2), 04110411
415: 2 IAON31(2,1,2), IAON11(7), IAON11(8) 04120411
416: IVCOMP = IRECN 04130411
417: 40060 IF (IVCOMP - 04) 20060, 10060, 20060 04140411
418: 30060 IVDELE = IVDELE + 1 04150411
419: WRITE (I02,80000) IVTNUM 04160411
420: IF (ICZERO) 10060, 0071, 20060 04170411
421: 10060 IVPASS = IVPASS + 1 04180411
422: WRITE (I02,80002) IVTNUM 04190411
423: GO TO 0071 04200411
424: 20060 IVFAIL = IVFAIL + 1 04210411
425: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 04220411
426: 0071 CONTINUE 04230411
427: C 04240411
428: C **** FCVS PROGRAM 411 - TEST 007 **** 04250411
429: C 04260411
430: C 04270411
431: C TEST 007 USES A WRITE STATEMENT WHERE THE OUTPUT LIST ITEM 04280411
432: C IS AN ARRAY ELEMENT OF REAL TYPE. ONE, TWO AND THREE 04290411
433: C DIMENSION ARRAYS ARE USED. 04300411
434: C 04310411
435: C 04320411
436: IVTNUM = 7 04330411
437: IF (ICZERO) 30070, 0070, 30070 04340411
438: 0070 CONTINUE 04350411
439: IRECN = 05 04360411
440: IVCORR = 05 04370411
441: WRITE (I04) IPROG, IFILE, ITOTR, IRLGN, IRECN, IEOF, 04380411
442: 1 RAON11(1), RAON11(2), RAON21(1,2), RAON21(2,2), RAON31(1,1,2), 04390411
443: 2RAON31(2,1,2), RAON11(7), RAON11 (8) 04400411
444: IVCOMP = IRECN 04410411
445: 40070 IF (IVCOMP - 05) 20070, 10070, 20070 04420411
446: 30070 IVDELE = IVDELE + 1 04430411
447: WRITE (I02,80000) IVTNUM 04440411
448: IF (ICZERO) 10070, 0081, 20070 04450411
449: 10070 IVPASS = IVPASS + 1 04460411
450: WRITE (I02,80002) IVTNUM 04470411
451: GO TO 0081 04480411
452: 20070 IVFAIL = IVFAIL + 1 04490411
453: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 04500411
454: 0081 CONTINUE 04510411
455: C 04520411
456: C **** FCVS PROGRAM 411 - TEST 008 **** 04530411
457: C 04540411
458: C 04550411
459: C 04560411
460: IVTNUM = 8 04570411
461: IF (ICZERO) 30080, 0080, 30080 04580411
462: 0080 CONTINUE 04590411
463: IRECN = 06 04600411
464: IVCORR = 06 04610411
465: WRITE (I04) IPROG, IFILE, ITOTR, IRLGN, IRECN, IEOF, 04620411
466: 1 LAON11(1), LAON11(2), LAON21(1,2), LAON21(2,2), LAON31(1,1,2), 04630411
467: 2 LAON31(2,1,2), LAON11(7), LAON11(8) 04640411
468: IVCOMP = IRECN 04650411
469: 40080 IF (IVCOMP - 06) 20080, 10080, 20080 04660411
470: 30080 IVDELE = IVDELE + 1 04670411
471: WRITE (I02,80000) IVTNUM 04680411
472: IF (ICZERO) 10080, 0091, 20080 04690411
473: 10080 IVPASS = IVPASS + 1 04700411
474: WRITE (I02,80002) IVTNUM 04710411
475: GO TO 0091 04720411
476: 20080 IVFAIL = IVFAIL + 1 04730411
477: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 04740411
478: 0091 CONTINUE 04750411
479: C 04760411
480: C **** FCVS PROGRAM 411 - TEST 009 **** 04770411
481: C 04780411
482: C 04790411
483: C TEST 009 USES A WRITE STATEMENT WHERE THE OUTPUT LIST ITEM 04800411
484: C IS AN ARRAY OF INTEGER TYPE. 04810411
485: C 04820411
486: C 04830411
487: IVTNUM = 9 04840411
488: IF (ICZERO) 30090, 0090, 30090 04850411
489: 0090 CONTINUE 04860411
490: IRECN = 07 04870411
491: IVCORR = 07 04880411
492: WRITE (I04) IPROG, IFILE, ITOTR, IRLGN, IRECN, IEOF, 04890411
493: 1 IAON31 04900411
494: IVCOMP = IRECN 04910411
495: 40090 IF (IVCOMP - 07) 20090, 10090, 20090 04920411
496: 30090 IVDELE = IVDELE + 1 04930411
497: WRITE (I02,80000) IVTNUM 04940411
498: IF (ICZERO) 10090, 0101, 20090 04950411
499: 10090 IVPASS = IVPASS + 1 04960411
500: WRITE (I02,80002) IVTNUM 04970411
501: GO TO 0101 04980411
502: 20090 IVFAIL = IVFAIL + 1 04990411
503: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 05000411
504: 0101 CONTINUE 05010411
505: C 05020411
506: C **** FCVS PROGRAM 411 - TEST 010 **** 05030411
507: C 05040411
508: C 05050411
509: C TEST 010 USES A WRITE STATEMENT WHERE THE OUTPUT LIST ITEM 05060411
510: C IS AN ARRAY OF REAL TYPE. 05070411
511: C 05080411
512: C 05090411
513: IVTNUM = 10 05100411
514: IF (ICZERO) 30100, 0100, 30100 05110411
515: 0100 CONTINUE 05120411
516: IRECN = 08 05130411
517: IVCORR = 08 05140411
518: WRITE (I04) IPROG, IFILE, ITOTR, IRLGN, IRECN, IEOF, 05150411
519: 1 RAON31 05160411
520: IVCOMP = IRECN 05170411
521: 40100 IF (IVCOMP - 08) 20100, 10100, 20100 05180411
522: 30100 IVDELE = IVDELE + 1 05190411
523: WRITE (I02,80000) IVTNUM 05200411
524: IF (ICZERO) 10100, 0111, 20100 05210411
525: 10100 IVPASS = IVPASS + 1 05220411
526: WRITE (I02,80002) IVTNUM 05230411
527: GO TO 0111 05240411
528: 20100 IVFAIL = IVFAIL + 1 05250411
529: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 05260411
530: 0111 CONTINUE 05270411
531: C 05280411
532: C **** FCVS PROGRAM 411 - TEST 011 **** 05290411
533: C 05300411
534: C 05310411
535: C TEST 011 USES A WRITE STATEMENT WHERE THE OUTPUT LIST ITEM 05320411
536: C IS AN ARRAY OF LOGICAL TYPE. 05330411
537: C 05340411
538: C 05350411
539: IVTNUM = 11 05360411
540: IF (ICZERO) 30110, 0110, 30110 05370411
541: 0110 CONTINUE 05380411
542: IRECN = 09 05390411
543: IVCORR = 09 05400411
544: WRITE (I04) IPROG, IFILE, ITOTR, IRLGN, IRECN, IEOF, 05410411
545: 1 LAON31 05420411
546: IVCOMP = IRECN 05430411
547: 40110 IF (IVCOMP - 09) 20110, 10110, 20110 05440411
548: 30110 IVDELE = IVDELE + 1 05450411
549: WRITE (I02,80000) IVTNUM 05460411
550: IF (ICZERO) 10110, 0121, 20110 05470411
551: 10110 IVPASS = IVPASS + 1 05480411
552: WRITE (I02,80002) IVTNUM 05490411
553: GO TO 0121 05500411
554: 20110 IVFAIL = IVFAIL + 1 05510411
555: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 05520411
556: 0121 CONTINUE 05530411
557: C 05540411
558: C **** FCVS PROGRAM 411 - TEST 012 **** 05550411
559: C 05560411
560: C 05570411
561: C TEST 012 USES A WRITE STATEMENT WHERE THE OUTPUT LIST ITEM 05580411
562: C IS AN IMPLIED-DO WITH AN ITEM OF INTEGER TYPE. 05590411
563: C THE FIELD VALUES ARE WRITTEN IN MIXED ORDER VIS-A-VIS THE 05600411
564: C ELEMENT SEQUENCE OF ARRAY IAON31. THE SEQUENCE OF VALUES WRITTEN 05610411
565: C IN THE RECORD ARE 11, 512, 777, -32767, -11, -512, -777, 32767. 05620411
566: C 05630411
567: C 05640411
568: IVTNUM = 12 05650411
569: IF (ICZERO) 30120, 0120, 30120 05660411
570: 0120 CONTINUE 05670411
571: IRECN = 10 05680411
572: IVCORR = 10 05690411
573: WRITE (I04) IPROG, IFILE, ITOTR, IRLGN, IRECN, IEOF, 05700411
574: 1 (((IAON31 (J,K,I), I=1,2), K=1,2), J=1,2) 05710411
575: IVCOMP = IRECN 05720411
576: 40120 IF (IVCOMP - 10) 20120, 10120, 20120 05730411
577: 30120 IVDELE = IVDELE + 1 05740411
578: WRITE (I02,80000) IVTNUM 05750411
579: IF (ICZERO) 10120, 0131, 20120 05760411
580: 10120 IVPASS = IVPASS + 1 05770411
581: WRITE (I02,80002) IVTNUM 05780411
582: GO TO 0131 05790411
583: 20120 IVFAIL = IVFAIL + 1 05800411
584: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 05810411
585: 0131 CONTINUE 05820411
586: C 05830411
587: C **** FCVS PROGRAM 411 - TEST 013 **** 05840411
588: C 05850411
589: C 05860411
590: C TEST 013 USES A WRITE STATEMENT WHERE THE OUTPUT LIST ITEM 05870411
591: C IS AN IMPLIED-DO WITH AN ITEM OF REAL TYPE. THE FIELD VALUES 05880411
592: C (IN FIELD POSITION ORDER) WRITTEN IN THE RECORD ARE 11., -11., 05890411
593: C 7.77, -7.77, .512, -.512, -32767., 32767. 05900411
594: C 05910411
595: C 05920411
596: IVTNUM = 13 05930411
597: IF (ICZERO) 30130, 0130, 30130 05940411
598: 0130 CONTINUE 05950411
599: IRECN = 11 05960411
600: IVCORR = 11 05970411
601: WRITE (I04) IPROG, IFILE, ITOTR, IRLGN, IRECN, IEOF, 05980411
602: 1 (((RAON31 (J,K,I), J=1,2), K=1,2), I=1,2) 05990411
603: IVCOMP = IRECN 06000411
604: 40130 IF (IVCOMP - 11) 20130, 10130, 20130 06010411
605: 30130 IVDELE = IVDELE + 1 06020411
606: WRITE (I02,80000) IVTNUM 06030411
607: IF (ICZERO) 10130, 0141, 20130 06040411
608: 10130 IVPASS = IVPASS + 1 06050411
609: WRITE (I02,80002) IVTNUM 06060411
610: GO TO 0141 06070411
611: 20130 IVFAIL = IVFAIL + 1 06080411
612: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 06090411
613: 0141 CONTINUE 06100411
614: C 06110411
615: C **** FCVS PROGRAM 411 - TEST 014 **** 06120411
616: C 06130411
617: C 06140411
618: C TEST 014 USES A WRITE STATEMENT WHERE THE OUTPUT LIST ITEM 06150411
619: C IS AN IMPLIED-DO WITH AN ITEM OF LOGICAL TYPE. 06160411
620: C THE FIELD VALUES ARE WRITTEN IN MIXED ORDER (AN ORDER 06170411
621: C DIFFERENT THAN TEST 012 ABOVE) VIS-A-VIS THE 06180411
622: C ELEMENT SEQUENCE OF ARRAY LAON31. THE SEQUENCE OF VALUES WRITTEN 06190411
623: C IN THE RECORD ARE .TRUE., .TRUE., .FALSE., .FALSE., .TRUE., .TRUE.06200411
624: C .FALSE, .FALSE. 06210411
625: C 06220411
626: C 06230411
627: IVTNUM = 14 06240411
628: IF (ICZERO) 30140, 0140, 30140 06250411
629: 0140 CONTINUE 06260411
630: IRECN = 12 06270411
631: IVCORR = 12 06280411
632: WRITE (I04) IPROG, IFILE, ITOTR, IRLGN, IRECN, IEOF, 06290411
633: 1 (((LAON31 (J,K,I), K=1,2), J=1,2), I=1,2) 06300411
634: IVCOMP = IRECN 06310411
635: 40140 IF (IVCOMP - 12) 20140, 10140, 20140 06320411
636: 30140 IVDELE = IVDELE + 1 06330411
637: WRITE (I02,80000) IVTNUM 06340411
638: IF (ICZERO) 10140, 0151, 20140 06350411
639: 10140 IVPASS = IVPASS + 1 06360411
640: WRITE (I02,80002) IVTNUM 06370411
641: GO TO 0151 06380411
642: 20140 IVFAIL = IVFAIL + 1 06390411
643: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 06400411
644: 0151 CONTINUE 06410411
645: C 06420411
646: C **** FCVS PROGRAM 411 - TEST 015 **** 06430411
647: C 06440411
648: C 06450411
649: C TEST 015 USES A WRITE STATEMENT WITHOUT ANY OUTPUT LIST ITEMS. 06460411
650: C THE OUTPUT LIST ITEMS ARE OPTIONAL. 06470411
651: C ALSO THE LENGTH OF AN UNFORMATTED RECORD MAY BE ZERO. 06480411
652: C 06490411
653: C SEE SECTIONS 12.1.2, UNFORMATTED RECORDS 06500411
654: C 12.8, READ, WRITE AND PRINT STATEMENTS 06510411
655: C 06520411
656: C 06530411
657: IVTNUM = 15 06540411
658: IF (ICZERO) 30150, 0150, 30150 06550411
659: 0150 CONTINUE 06560411
660: IRECN = 13 06570411
661: IVCORR = 13 06580411
662: WRITE (I04) 06590411
663: IVCOMP = IRECN 06600411
664: 40150 IF (IVCOMP - 13) 20150, 10150, 20150 06610411
665: 30150 IVDELE = IVDELE + 1 06620411
666: WRITE (I02,80000) IVTNUM 06630411
667: IF (ICZERO) 10150, 0161, 20150 06640411
668: 10150 IVPASS = IVPASS + 1 06650411
669: WRITE (I02,80002) IVTNUM 06660411
670: GO TO 0161 06670411
671: 20150 IVFAIL = IVFAIL + 1 06680411
672: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 06690411
673: 0161 CONTINUE 06700411
674: C 06710411
675: C **** FCVS PROGRAM 411 - TEST 016 **** 06720411
676: C 06730411
677: C 06740411
678: C TEST 016 IS SIMILAR TO THE PREVIOUS TEST EXCEPT THE WRITE 06750411
679: C STATEMENT CONTAINS OUTPUT LIST ITEMS. ONE HUNDRED RECORDS ARE 06760411
680: C WRITTEN. 06770411
681: C 06780411
682: C 06790411
683: IVTNUM = 16 06800411
684: IF (ICZERO) 30160, 0160, 30160 06810411
685: 0160 CONTINUE 06820411
686: IRECN = 13 06830411
687: DO 4132 I = 1,100 06840411
688: IRECN = IRECN + 1 06850411
689: WRITE (I04) IPROG, IFILE, ITOTR, IRLGN, IRECN, IEOF, 06860411
690: 1 ICON21, ICON22, ICON31, ICON32, ICON33, ICON34, ICON55, ICON56 06870411
691: 4132 CONTINUE 06880411
692: IVCORR = 100 06890411
693: IVCOMP = IRECN - 13 06900411
694: 40160 IF (IVCOMP - 100) 20160, 10160, 20160 06910411
695: 30160 IVDELE = IVDELE + 1 06920411
696: WRITE (I02,80000) IVTNUM 06930411
697: IF (ICZERO) 10160, 0171, 20160 06940411
698: 10160 IVPASS = IVPASS + 1 06950411
699: WRITE (I02,80002) IVTNUM 06960411
700: GO TO 0171 06970411
701: 20160 IVFAIL = IVFAIL + 1 06980411
702: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 06990411
703: 0171 CONTINUE 07000411
704: C 07010411
705: C 07020411
706: C THE NEXT THREE TESTS TEST USE OF THE BACKSPACE AND ENDFILE 07030411
707: C STATEMENTS 07040411
708: C 07050411
709: C 07060411
710: C 07070411
711: C **** FCVS PROGRAM 411 - TEST 017 **** 07080411
712: C 07090411
713: C TEST 017 USES AN ENDFILE STATEMENT TO WRITE AN ENDFILE 07100411
714: C RECORD TO A FILE WITH UNFORMATTED RECORDS. AFTER EXECUTION 07110411
715: C OF THIS STATEMENT THE FILE SHOULD BE POSITION AFTER THE ENDFILE 07120411
716: C RECORD. 07130411
717: C 07140411
718: C 07150411
719: IVTNUM = 17 07160411
720: IF (ICZERO) 30170, 0170, 30170 07170411
721: 0170 CONTINUE 07180411
722: IVCORR = 1 07190411
723: IVCOMP = 0 07200411
724: 0172 ENDFILE I04 07210411
725: IVCOMP = 1 07220411
726: 40170 IF (IVCOMP - 1) 20170, 10170, 20170 07230411
727: C 07240411
728: 30170 IVDELE = IVDELE + 1 07250411
729: WRITE (I02,80000) IVTNUM 07260411
730: IF (ICZERO) 10170, 0181, 20170 07270411
731: 10170 IVPASS = IVPASS + 1 07280411
732: WRITE (I02,80002) IVTNUM 07290411
733: GO TO 0181 07300411
734: 20170 IVFAIL = IVFAIL + 1 07310411
735: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 07320411
736: 0181 CONTINUE 07330411
737: C 07340411
738: C **** FCVS PROGRAM 411 - TEST 018 **** 07350411
739: C 07360411
740: C 07370411
741: C TEST 018 USES THE BACKSPACE STATEMENT TO REPOSITION THE FILE 07380411
742: C BEFORE THE ENDFILE RECORD. 07390411
743: C 07400411
744: C SEE SECTIONS 12.10.4.1, BACKSPACE STATEMENT 07410411
745: C 12.10.4.2, ENDFILE STATEMENT 07420411
746: C 07430411
747: C 07440411
748: IVTNUM = 18 07450411
749: IF (ICZERO) 30180, 0180, 30180 07460411
750: 0180 CONTINUE 07470411
751: IVCORR = 1 07480411
752: IVCOMP = 0 07490411
753: BACKSPACE I04 07500411
754: IVCOMP = 1 07510411
755: 40180 IF (IVCOMP - 1) 20180, 10180, 20180 07520411
756: 30180 IVDELE = IVDELE + 1 07530411
757: WRITE (I02,80000) IVTNUM 07540411
758: IF (ICZERO) 10180, 0191, 20180 07550411
759: 10180 IVPASS = IVPASS + 1 07560411
760: WRITE (I02,80002) IVTNUM 07570411
761: GO TO 0191 07580411
762: 20180 IVFAIL = IVFAIL + 1 07590411
763: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 07600411
764: 0191 CONTINUE 07610411
765: C 07620411
766: C **** FCVS PROGRAM 411 - TEST 019 **** 07630411
767: C 07640411
768: C 07650411
769: C TEST 019 IS A CONTINUATION OF THE ENDFILE AND BACKSPACE TESTS 07660411
770: C (TWO PREVIOUS TESTS). THIS TEST CONTINUES WRITTING RECORDS TO THE07670411
771: C FILE OVER THE ENDFILE RECORD PREVIOUSLY WRITTEN IN TEST 017. 07680411
772: C TWENTY EIGHT RECORDS ARE WRITTEN TO THE FILE FOLLOWED BY AN 07690411
773: C ENDFILE. 07700411
774: C 07710411
775: C 07720411
776: IVTNUM = 19 07730411
777: IF (ICZERO) 30190, 0190, 30190 07740411
778: 0190 CONTINUE 07750411
779: IVCOMP = 0 07760411
780: IRECN = 113 07770411
781: DO 4112 I = 1,28 07780411
782: IRECN = IRECN + 1 07790411
783: WRITE (I04) IPROG, IFILE, ITOTR, IRLGN, IRECN, IEOF, 07800411
784: 1 ICON21, ICON22, ICON31, ICON32, ICON33, ICON34, ICON55, ICON56 07810411
785: IVCOMP = IVCOMP + 1 07820411
786: 4112 CONTINUE 07830411
787: IVCORR = 29 07840411
788: IEOF = 9999 07850411
789: IRECN = IRECN + 1 07860411
790: WRITE (I04) IPROG, IFILE, ITOTR, IRLGN, IRECN, IEOF 07870411
791: IVCOMP = IVCOMP + 1 07880411
792: ENDFILE I04 07890411
793: C 07900411
794: C THERE SHOULD BE A TOTAL OF 142 RECORDS PLUS AN ENDFILE RECORD 07910411
795: C IN THE FILE AFTER EXECUTION OF THIS TEST. 07920411
796: C 07930411
797: 40190 IF (IVCOMP - 29) 20190, 10190, 20190 07940411
798: 30190 IVDELE = IVDELE + 1 07950411
799: WRITE (I02,80000) IVTNUM 07960411
800: IF (ICZERO) 10190, 0201, 20190 07970411
801: 10190 IVPASS = IVPASS + 1 07980411
802: WRITE (I02,80002) IVTNUM 07990411
803: GO TO 0201 08000411
804: 20190 IVFAIL = IVFAIL + 1 08010411
805: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 08020411
806: 0201 CONTINUE 08030411
807: C 08040411
808: C 08050411
809: C THE NEXT SERIES OF TESTS READ AND CHECK THE RECORDS CREATED IN 08060411
810: C TESTS 03 THROUGH 019. EACH OF THE TESTS IN THIS SET IS CHECKING 08070411
811: C TWO THINGS. FIRST, THAT THE READ STATEMENT CONSTRUCT IS ACCEPTED 08080411
812: C BY THE COMPILER AND SECOND THAT THE RECORDS CREATED IN TESTS 003 08090411
813: C THROUGH 019 AND READ IN THESE TESTS CAN GIVE PREDICTIBLE VALUES. 08100411
814: C THE READ STATEMENT IS USED WITH THE I/O LIST ITEMS AS A VARIABLE, 08110411
815: C AN ARRAY ELEMENT AND AN ARRAY. 08120411
816: C 08130411
817: C 08140411
818: C 08150411
819: C **** FCVS PROGRAM 411 - TEST 020 **** 08160411
820: C 08170411
821: C 08180411
822: C TEST 020 USES A READ STATEMENT WHERE THE INPUT LIST ITEM IS A 08190411
823: C VARIABLE OF INTEGER TYPE. 08200411
824: C 08210411
825: C 08220411
826: IVTNUM = 20 08230411
827: IF (ICZERO) 30200, 0200, 30200 08240411
828: 0200 CONTINUE 08250411
829: REWIND I04 08260411
830: C REPOSITION THE FILE TO THE FIRST RECORD 08270411
831: IVON22 = 0 08280411
832: IVON56 = 0 08290411
833: IVCORR = 30 08300411
834: IVCOMP = 1 08310411
835: READ (I04) IPROG, IFILE, ITOTR, IRLGN, IRECN, IEOF, 08320411
836: 1 IVON21, IVON22, IVON31, IVON32, IVON33, IVON34, IVON55, IVON56 08330411
837: IF (IRECN .EQ. 01) IVCOMP = IVCOMP * 2 08340411
838: IF (IVON22 .EQ. -11) IVCOMP = IVCOMP * 3 08350411
839: IF (IVON56 .EQ. 32767) IVCOMP = IVCOMP * 5 08360411
840: 40200 IF (IVCOMP - 30) 20200, 10200, 20200 08370411
841: 30200 IVDELE = IVDELE + 1 08380411
842: WRITE (I02,80000) IVTNUM 08390411
843: IF (ICZERO) 10200, 0211, 20200 08400411
844: 10200 IVPASS = IVPASS + 1 08410411
845: WRITE (I02,80002) IVTNUM 08420411
846: GO TO 0211 08430411
847: 20200 IVFAIL = IVFAIL + 1 08440411
848: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 08450411
849: 0211 CONTINUE 08460411
850: C 08470411
851: C **** FCVS PROGRAM 411 - TEST 021 **** 08480411
852: C 08490411
853: C 08500411
854: C TEST 021 USES A READ STATEMENT WHERE THE INPUT LIST ITEM IS A 08510411
855: C VARIABLE OF REAL TYPE. 08520411
856: C 08530411
857: C 08540411
858: IVTNUM = 21 08550411
859: IF (ICZERO) 30210, 0210, 30210 08560411
860: 0210 CONTINUE 08570411
861: RVON22 = 0.0 08580411
862: RVON31 = 0.0 08590411
863: IVCORR = 30 08600411
864: IVCOMP = 1 08610411
865: READ (I04) IPROG, IFILE, ITOTR, IRLGN, IRECN, IEOF, 08620411
866: 1 RVON21, RVON22, RVON31, RVON32, RVON33, RVON34, RVON55, RVON56 08630411
867: IF (IRECN .EQ. 02) IVCOMP = IVCOMP * 2 08640411
868: IF (RVON22 .EQ. -11.) IVCOMP = IVCOMP * 3 08650411
869: IF (RVON31 .EQ. 7.77) IVCOMP = IVCOMP * 5 08660411
870: 40210 IF (IVCOMP - 30) 20210, 10210, 20210 08670411
871: 30210 IVDELE = IVDELE + 1 08680411
872: WRITE (I02,80000) IVTNUM 08690411
873: IF (ICZERO) 10210, 0221, 20210 08700411
874: 10210 IVPASS = IVPASS + 1 08710411
875: WRITE (I02,80002) IVTNUM 08720411
876: GO TO 0221 08730411
877: 20210 IVFAIL = IVFAIL + 1 08740411
878: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 08750411
879: 0221 CONTINUE 08760411
880: C 08770411
881: C **** FCVS PROGRAM 411 - TEST 022 **** 08780411
882: C 08790411
883: C 08800411
884: C TEST 022 USES A READ STATEMENT WHERE THE INPUT LIST ITEM IS A 08810411
885: C VARIABLE OF LOGICAL TYPE. 08820411
886: C 08830411
887: C 08840411
888: IVTNUM = 22 08850411
889: IF (ICZERO) 30220, 0220, 30220 08860411
890: 0220 CONTINUE 08870411
891: LVONT1 = .FALSE. 08880411
892: LVONF6 = .TRUE. 08890411
893: IVCORR = 30 08900411
894: IVCOMP = 1 08910411
895: READ (I04) IPROG, IFILE, ITOTR, IRLGN, IRECN, IEOF, 08920411
896: 1 LVONT1, LVONF2, LVONT3, LVONF4, LVONT5, LVONF6, LVONT7, LVONF808930411
897: IF (IRECN .EQ. 03) IVCOMP = IVCOMP * 2 08940411
898: IF (.NOT. LVONF6) IVCOMP = IVCOMP * 3 08950411
899: IF (LVONT1) IVCOMP = IVCOMP * 5 08960411
900: 40220 IF (IVCOMP - 30) 20220, 10220, 20220 08970411
901: 30220 IVDELE = IVDELE + 1 08980411
902: WRITE (I02,80000) IVTNUM 08990411
903: IF (ICZERO) 10220, 0231, 20220 09000411
904: 10220 IVPASS = IVPASS + 1 09010411
905: WRITE (I02,80002) IVTNUM 09020411
906: GO TO 0231 09030411
907: 20220 IVFAIL = IVFAIL + 1 09040411
908: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 09050411
909: 0231 CONTINUE 09060411
910: C 09070411
911: C **** FCVS PROGRAM 411 - TEST 023 **** 09080411
912: C 09090411
913: C 09100411
914: C TEST 023 USES A READ STATEMENT WHERE THE INPUT LIST ITEM IS A 09110411
915: C ARRAY ELEMENT OF INTEGER TYPE. ONE, TWO, AND THREE 09120411
916: C DIMENSION ARRAYS ARE USED. 09130411
917: C 09140411
918: C 09150411
919: IVTNUM = 23 09160411
920: IF (ICZERO) 30230, 0230, 30230 09170411
921: 0230 CONTINUE 09180411
922: IAON12(2) = 0 09190411
923: IAON12(8) = 0 09200411
924: IVCORR = 30 09210411
925: IVCOMP = 1 09220411
926: READ (I04) IPROG, IFILE, ITOTR, IRLGN, IRECN, IEOF, 09230411
927: 1 IAON12(1), IAON12(2), IAON22(1,2), IAON22(2,2), IAON32(1,1,2), 09240411
928: 2 IAON32(2,1,2), IAON12(7), IAON12(8) 09250411
929: IF (IRECN .EQ. 04) IVCOMP = IVCOMP * 2 09260411
930: IF (IAON12(2) .EQ. -11) IVCOMP = IVCOMP * 3 09270411
931: IF (IAON12(8) .EQ. 32767) IVCOMP = IVCOMP * 5 09280411
932: C 09290411
933: C THE ABOVE 3 IF STATEMENTS CHECK THE RECORD NUMBER, A NEGATIVE 09300411
934: C FIELD VALUE AND A POSITIVE FIELD VALUE. 09310411
935: C 09320411
936: 40230 IF (IVCOMP - 30) 20230, 10230, 20230 09330411
937: 30230 IVDELE = IVDELE + 1 09340411
938: WRITE (I02,80000) IVTNUM 09350411
939: IF (ICZERO) 10230, 0241, 20230 09360411
940: 10230 IVPASS = IVPASS + 1 09370411
941: WRITE (I02,80002) IVTNUM 09380411
942: GO TO 0241 09390411
943: 20230 IVFAIL = IVFAIL + 1 09400411
944: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 09410411
945: 0241 CONTINUE 09420411
946: C 09430411
947: C **** FCVS PROGRAM 411 - TEST 024 **** 09440411
948: C 09450411
949: C 09460411
950: C TEST 024 USES A READ STATEMENT WHERE THE INPUT LIST ITEM IS A 09470411
951: C ARRAY ELEMENT OF REAL TYPE. ONE, TWO, AND THREE 09480411
952: C DIMENSION ARRAYS ARE USED. 09490411
953: C 09500411
954: C 09510411
955: IVTNUM = 24 09520411
956: IF (ICZERO) 30240, 0240, 30240 09530411
957: 0240 CONTINUE 09540411
958: RAON22(2,2) = 0.0 09550411
959: RAON32(1,1,2) = 0.0 09560411
960: IVCORR = 30 09570411
961: IVCOMP = 1 09580411
962: READ (I04) IPROG, IFILE, ITOTR, IRLGN, IRECN, IEOF, 09590411
963: 1 RAON12(1), RAON12(2), RAON22(1,2), RAON22(2,2), RAON32(1,1,2), 09600411
964: 2 RAON32(2,1,2), RAON12(7), RAON12(8) 09610411
965: IF (IRECN .EQ. 05) IVCOMP = IVCOMP * 2 09620411
966: IF (RAON22(2,2) .EQ. -7.77) IVCOMP = IVCOMP * 3 09630411
967: IF (RAON32(1,1,2) .EQ. .512 ) IVCOMP = IVCOMP * 5 09640411
968: C 09650411
969: C THE ABOVE 3 IF STATEMENTS CHECK THE RECORD NUMBER, A NEGATIVE 09660411
970: C FIELD VALUE AND A POSITIVE FIELD VALUE. 09670411
971: C 09680411
972: 40240 IF (IVCOMP - 30) 20240, 10240, 20240 09690411
973: 30240 IVDELE = IVDELE + 1 09700411
974: WRITE (I02,80000) IVTNUM 09710411
975: IF (ICZERO) 10240, 0251, 20240 09720411
976: 10240 IVPASS = IVPASS + 1 09730411
977: WRITE (I02,80002) IVTNUM 09740411
978: GO TO 0251 09750411
979: 20240 IVFAIL = IVFAIL + 1 09760411
980: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 09770411
981: 0251 CONTINUE 09780411
982: C 09790411
983: C **** FCVS PROGRAM 411 - TEST 025 **** 09800411
984: C 09810411
985: C 09820411
986: C TEST 025 USES A READ STATEMENT WHERE THE INPUT LIST ITEM IS A 09830411
987: C ARRAY ELEMENT OF LOGICAL TYPE. ONE, TWO, AND THREE 09840411
988: C DIMENSION ARRAYS ARE USED. 09850411
989: C 09860411
990: C 09870411
991: C 09880411
992: IVTNUM = 25 09890411
993: IF (ICZERO) 30250, 0250, 30250 09900411
994: 0250 CONTINUE 09910411
995: LAON12(1) = .FALSE. 09920411
996: LAON32(2,1,2) = .TRUE. 09930411
997: IVCORR = 30 09940411
998: IVCOMP = 1 09950411
999: READ (I04) IPROG, IFILE, ITOTR, IRLGN, IRECN, IEOF, 09960411
1000: 1 LAON12(1), LAON12(2), LAON22(1,2), LAON22(2,2), LAON32(1,1,2), 09970411
1001: 2 LAON32(2,1,2), LAON12(7), LAON12(8) 09980411
1002: IF (IRECN .EQ. 06) IVCOMP = IVCOMP * 2 09990411
1003: IF (LAON12(1)) IVCOMP = IVCOMP * 3 10000411
1004: IF (.NOT. LAON32(2,1,2)) IVCOMP = IVCOMP * 5 10010411
1005: 40250 IF (IVCOMP - 30) 20250, 10250, 20250 10020411
1006: 30250 IVDELE = IVDELE + 1 10030411
1007: WRITE (I02,80000) IVTNUM 10040411
1008: IF (ICZERO) 10250, 0261, 20250 10050411
1009: 10250 IVPASS = IVPASS + 1 10060411
1010: WRITE (I02,80002) IVTNUM 10070411
1011: GO TO 0261 10080411
1012: 20250 IVFAIL = IVFAIL + 1 10090411
1013: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 10100411
1014: 0261 CONTINUE 10110411
1015: C 10120411
1016: C **** FCVS PROGRAM 411 - TEST 026 **** 10130411
1017: C 10140411
1018: C 10150411
1019: C TEST 026 USES A READ STATEMENT WHERE THE INPUT LIST ITEM IS A 10160411
1020: C ARRAY OF INTEGER TYPE. 10170411
1021: C 10180411
1022: C 10190411
1023: IVTNUM = 26 10200411
1024: IF (ICZERO) 30260, 0260, 30260 10210411
1025: 0260 CONTINUE 10220411
1026: IAON32(2,1,1) = 0 10230411
1027: IAON32(2,2,2) = 0 10240411
1028: IVCORR = 30 10250411
1029: IVCOMP = 1 10260411
1030: READ (I04) IPROG, IFILE, ITOTR, IRLGN, IRECN, IEOF, 10270411
1031: 1 IAON32 10280411
1032: IF (IRECN .EQ. 07) IVCOMP = IVCOMP * 2 10290411
1033: IF (IAON32(2,1,1) .EQ. -11) IVCOMP = IVCOMP * 3 10300411
1034: IF (IAON32(2,2,2) .EQ. 32767) IVCOMP = IVCOMP * 5 10310411
1035: C 10320411
1036: C THE ABOVE 3 IF STATEMENTS CHECK THE RECORD NUMBER, A NEGATIVE 10330411
1037: C FIELD VALUE AND A POSITIVE FIELD VALUE. 10340411
1038: C 10350411
1039: 40260 IF (IVCOMP - 30) 20260, 10260, 20260 10360411
1040: 30260 IVDELE = IVDELE + 1 10370411
1041: WRITE (I02,80000) IVTNUM 10380411
1042: IF (ICZERO) 10260, 0271, 20260 10390411
1043: 10260 IVPASS = IVPASS + 1 10400411
1044: WRITE (I02,80002) IVTNUM 10410411
1045: GO TO 0271 10420411
1046: 20260 IVFAIL = IVFAIL + 1 10430411
1047: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 10440411
1048: 0271 CONTINUE 10450411
1049: C 10460411
1050: C **** FCVS PROGRAM 411 - TEST 027 **** 10470411
1051: C 10480411
1052: C 10490411
1053: C TEST 027 USES A READ STATEMENT WHERE THE INPUT LIST ITEM IS A 10500411
1054: C ARRAY OF REAL TYPE. 10510411
1055: C 10520411
1056: C 10530411
1057: IVTNUM = 27 10540411
1058: IF (ICZERO) 30270, 0270, 30270 10550411
1059: 0270 CONTINUE 10560411
1060: RAON32(2,1,1) = 0.0 10570411
1061: RAON32(2,2,2) = 0.0 10580411
1062: IVCORR = 30 10590411
1063: IVCOMP = 1 10600411
1064: READ (I04) IPROG, IFILE, ITOTR, IRLGN, IRECN, IEOF, 10610411
1065: 1 RAON32 10620411
1066: IF (IRECN .EQ. 08) IVCOMP = IVCOMP * 2 10630411
1067: IF (RAON32(2,1,1) .EQ. -11.) IVCOMP = IVCOMP * 3 10640411
1068: IF (RAON32(2,2,2) .EQ. 32767.) IVCOMP = IVCOMP * 5 10650411
1069: C 10660411
1070: C THE ABOVE 3 IF STATEMENTS CHECK THE RECORD NUMBER, A NEGATIVE 10670411
1071: C FIELD VALUE AND A POSITIVE FIELD VALUE. 10680411
1072: C 10690411
1073: 40270 IF (IVCOMP - 30) 20270, 10270, 20270 10700411
1074: 30270 IVDELE = IVDELE + 1 10710411
1075: WRITE (I02,80000) IVTNUM 10720411
1076: IF (ICZERO) 10270, 0281, 20270 10730411
1077: 10270 IVPASS = IVPASS + 1 10740411
1078: WRITE (I02,80002) IVTNUM 10750411
1079: GO TO 0281 10760411
1080: 20270 IVFAIL = IVFAIL + 1 10770411
1081: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 10780411
1082: 0281 CONTINUE 10790411
1083: C 10800411
1084: C **** FCVS PROGRAM 411 - TEST 028 **** 10810411
1085: C 10820411
1086: C 10830411
1087: C TEST 028 USES A READ STATEMENT WHERE THE INPUT LIST ITEM IS A 10840411
1088: C ARRAY OF LOGICAL TYPE. 10850411
1089: C 10860411
1090: C 10870411
1091: IVTNUM = 28 10880411
1092: IF (ICZERO) 30280, 0280, 30280 10890411
1093: 0280 CONTINUE 10900411
1094: LAON32(1,1,1) = .FALSE. 10910411
1095: LAON32(2,2,2) = .TRUE. 10920411
1096: IVCORR = 30 10930411
1097: IVCOMP = 1 10940411
1098: READ (I04) IPROG, IFILE, ITOTR, IRLGN, IRECN, IEOF, 10950411
1099: 1 LAON32 10960411
1100: IF (IRECN .EQ. 09) IVCOMP = IVCOMP * 2 10970411
1101: IF (LAON32(1,1,1)) IVCOMP = IVCOMP * 3 10980411
1102: IF (.NOT. LAON32(2,2,2)) IVCOMP = IVCOMP * 5 10990411
1103: 40280 IF (IVCOMP - 30) 20280, 10280, 20280 11000411
1104: 30280 IVDELE = IVDELE + 1 11010411
1105: WRITE (I02,80000) IVTNUM 11020411
1106: IF (ICZERO) 10280, 0291, 20280 11030411
1107: 10280 IVPASS = IVPASS + 1 11040411
1108: WRITE (I02,80002) IVTNUM 11050411
1109: GO TO 0291 11060411
1110: 20280 IVFAIL = IVFAIL + 1 11070411
1111: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 11080411
1112: 0291 CONTINUE 11090411
1113: C 11100411
1114: C **** FCVS PROGRAM 411 - TEST 029 **** 11110411
1115: C 11120411
1116: C 11130411
1117: C TEST 029 USES A READ STATEMENT WHERE THE INPUT LIST ITEM IS A 11140411
1118: C IMPLIED-DO WITH AN ITEM OF INTEGER TYPE. THE STORAGE VALUES IN 11150411
1119: C THE ARRAY (BY THE IMPLIED-DO DURING THE READ) SHOULD RESULT IN A 11160411
1120: C DIFFERENT STORAGE SEQUENCE IN THE ARRAY THAN FOUND IN THE RECORD 11170411
1121: C OF THE FILE. THIS RECORD IS RECORD NUMBER 10 AND WAS CREATED IN 11180411
1122: C TEST 012 ABOVE. THE FIELD VALUE, FIELD POSITION, POSITION WITHIN 11190411
1123: C ARRAY IAON32 AND SUBSCRIPT VALUE AFTER THE READ IS 11200411
1124: C 11210411
1125: C VALUE 11 777 512 -32767 -11 -777 -512 32767 11220411
1126: C FIELD POS 1 3 2 4 5 7 6 8 11230411
1127: C IAON32 1 2 3 4 5 6 7 8 11240411
1128: C SUBSCRIPT 1,1,1 2,1,1 1,2,1 2,2,1 1,1,2 2,1,2 1,2,2 2,2,211250411
1129: C 11260411
1130: C 11270411
1131: IVTNUM = 29 11280411
1132: IF (ICZERO) 30290, 0290, 30290 11290411
1133: 0290 CONTINUE 11300411
1134: IAON32(2,1,1) = 0 11310411
1135: IAON32(2,2,1) = 0 11320411
1136: IVCORR = 30 11330411
1137: IVCOMP = 1 11340411
1138: READ (I04) IPROG, IFILE, ITOTR, IRLGN, IRECN, IEOF, 11350411
1139: 1 (((IAON32 (J,K,I), K=1,2), J=1,2), I=1,2) 11360411
1140: IF (IRECN .EQ. 10) IVCOMP = IVCOMP * 2 11370411
1141: IF (IAON32(2,1,1) .EQ. 777) IVCOMP = IVCOMP * 3 11380411
1142: IF (IAON32(2,2,1) .EQ. -32767) IVCOMP = IVCOMP * 5 11390411
1143: C 11400411
1144: C THE ABOVE 3 IF STATEMENTS CHECK THE RECORD NUMBER, A NEGATIVE 11410411
1145: C FIELD VALUE AND A POSITIVE FIELD VALUE. 11420411
1146: C 11430411
1147: 40290 IF (IVCOMP - 30) 20290, 10290, 20290 11440411
1148: 30290 IVDELE = IVDELE + 1 11450411
1149: WRITE (I02,80000) IVTNUM 11460411
1150: IF (ICZERO) 10290, 0301, 20290 11470411
1151: 10290 IVPASS = IVPASS + 1 11480411
1152: WRITE (I02,80002) IVTNUM 11490411
1153: GO TO 0301 11500411
1154: 20290 IVFAIL = IVFAIL + 1 11510411
1155: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 11520411
1156: 0301 CONTINUE 11530411
1157: C 11540411
1158: C **** FCVS PROGRAM 411 - TEST 030 **** 11550411
1159: C 11560411
1160: C 11570411
1161: C TEST 030 USES A READ STATEMENT WHERE THE INPUT LIST ITEM IS A 11580411
1162: C IMPLIED-DO WITH AN ITEM OF REAL TYPE. THE STORAGE VALUES IN 11590411
1163: C THE ARRAY (BY THE IMPLIED-DO DURING THE READ) SHOULD RESULT IN A 11600411
1164: C SEQUENCE THE SAME AS FOUND IN THE RECORD OF THE FILE. THIS REC- 11610411
1165: C ORD IS RECORD NUMBER 011 AND WAS CREATED IN TEST 013 ABOVE. 11620411
1166: C THE FIELD VALUE, FIELD POSITION, POSITION WITHIN ARRAY RAON32 AND11630411
1167: C SUBSCRIPT VALUE AFTER THE THE READ IS 11640411
1168: C 11650411
1169: C VALUE 11. -11. 7.77 -7.77 .512 -.512 -32767. 32767.11660411
1170: C FIELD POS 1 2 3 4 5 6 7 8 11670411
1171: C RAON32 1 2 3 4 5 6 7 8 11680411
1172: C SUBSCRIPT 1,1,1 2,1,1 1,2,1 2,2,1 1,1,2 2,1,2 1,2,2 2,2,211690411
1173: C 11700411
1174: C 11710411
1175: IVTNUM = 30 11720411
1176: IF (ICZERO) 30300, 0300, 30300 11730411
1177: 0300 CONTINUE 11740411
1178: RAON32(1,2,1) = 0.0 11750411
1179: RAON32(1,2,2) = 0.0 11760411
1180: IVCORR = 30 11770411
1181: IVCOMP = 1 11780411
1182: READ (I04) IPROG, IFILE, ITOTR, IRLGN, IRECN, IEOF, 11790411
1183: 1 (((RAON32 (J,K,I), J=1,2), K=1,2), I=1,2) 11800411
1184: IF (IRECN .EQ. 11) IVCOMP = IVCOMP * 2 11810411
1185: IF (RAON32(1,2,1) .EQ. 7.77) IVCOMP = IVCOMP * 3 11820411
1186: IF (RAON32(1,2,2) .EQ. -32767.) IVCOMP = IVCOMP * 5 11830411
1187: C 11840411
1188: C THE ABOVE 3 IF STATEMENTS CHECK THE RECORD NUMBER, A NEGATIVE 11850411
1189: C FIELD VALUE AND A POSITIVE FIELD VALUE. 11860411
1190: C 11870411
1191: 40300 IF (IVCOMP - 30) 20300, 10300, 20300 11880411
1192: 30300 IVDELE = IVDELE + 1 11890411
1193: WRITE (I02,80000) IVTNUM 11900411
1194: IF (ICZERO) 10300, 0311, 20300 11910411
1195: 10300 IVPASS = IVPASS + 1 11920411
1196: WRITE (I02,80002) IVTNUM 11930411
1197: GO TO 0311 11940411
1198: 20300 IVFAIL = IVFAIL + 1 11950411
1199: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 11960411
1200: 0311 CONTINUE 11970411
1201: C 11980411
1202: C **** FCVS PROGRAM 411 - TEST 031 **** 11990411
1203: C 12000411
1204: C 12010411
1205: C TEST 031 USES A READ STATEMENT WHERE THE INPUT LIST ITEM IS A 12020411
1206: C IMPLIED-DO WITH AN ITEM OF LOGICAL TYPE. THE STORAGE VALUES IN 12030411
1207: C THE ARRAY (BY THE IMPLIED-DO DURING THE READ) SHOULD RESULT IN A 12040411
1208: C DIFFERENT STORAGE SEQUENCE IN THE ARRAY THAN FOUND IN THE RECORD 12050411
1209: C OF THE FILE. THIS RECORD IS RECORD NUMBER 12 AND WAS CREATED IN 12060411
1210: C TEST 014 ABOVE. THE FIELD VALUE, FIELD POSITION, POSITION WITHIN 12070411
1211: C ARRAY LAON32 AND SUBSCRIPT VALUE AFTER THE READ IS 12080411
1212: C 12090411
1213: C VALUE T T F F T T F F 12100411
1214: C FIELD POS 1 5 3 7 2 6 4 8 12110411
1215: C LAON32 1 2 3 4 5 6 7 8 12120411
1216: C SUBSCRIPT 1,1,1 2,1,1 1,2,1 2,2,1 1,1,2 2,1,2 1,2,2 2,2,212130411
1217: C 12140411
1218: C 12150411
1219: IVTNUM = 31 12160411
1220: IF (ICZERO) 30310, 0310, 30310 12170411
1221: 0310 CONTINUE 12180411
1222: LAON32(1,2,1) = .TRUE. 12190411
1223: LAON32(2,1,1) = .FALSE. 12200411
1224: IVCORR = 30 12210411
1225: IVCOMP = 1 12220411
1226: READ (I04) IPROG, IFILE, ITOTR, IRLGN, IRECN, IEOF, 12230411
1227: 1 (((LAON32 (J,K,I), I=1,2), K=1,2), J=1,2) 12240411
1228: IF (IRECN .EQ. 12) IVCOMP = IVCOMP * 2 12250411
1229: IF ( .NOT. LAON32(1,2,1)) IVCOMP = IVCOMP * 3 12260411
1230: IF (LAON32(2,1,1)) IVCOMP = IVCOMP * 5 12270411
1231: 40310 IF (IVCOMP - 30) 20310, 10310, 20310 12280411
1232: 30310 IVDELE = IVDELE + 1 12290411
1233: WRITE (I02,80000) IVTNUM 12300411
1234: IF (ICZERO) 10310, 0321, 20310 12310411
1235: 10310 IVPASS = IVPASS + 1 12320411
1236: WRITE (I02,80002) IVTNUM 12330411
1237: GO TO 0321 12340411
1238: 20310 IVFAIL = IVFAIL + 1 12350411
1239: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 12360411
1240: 0321 CONTINUE 12370411
1241: C 12380411
1242: C **** FCVS PROGRAM 411 - TEST 032 **** 12390411
1243: C 12400411
1244: C 12410411
1245: C TEST 032 USES A READ STATEMENT WITHOUT ANY INPUT LIST ITEMS 12420411
1246: C (INPUT LIST ITEMS ARE OPTIONAL FOR THE READ STATEMENT). THIS 12430411
1247: C RECORD WAS WRITTEN IN TEST 15 AND SHOULD BE RECORD NUMBER 13. 12440411
1248: C THE PURPOSE OF THIS TEST IS TO SEE THAT THE STATEMENT CONSTRUCT 12450411
1249: C IS ACCEPTABLE TO THE COMPILER. 12460411
1250: C ALSO THE LENGTH OF AN UNFORMATTED RECORD MAY BE ZERO. 12470411
1251: C 12480411
1252: C SEE SECTIONS 12.1.2, UNFORMATTED RECORDS 12490411
1253: C 12.8, READ, WRITE AND PRINT STATEMENTS12500411
1254: C 12510411
1255: C 12520411
1256: IVTNUM = 32 12530411
1257: IF (ICZERO) 30320, 0320, 30320 12540411
1258: 0320 CONTINUE 12550411
1259: IRECN = 13 12560411
1260: IVCORR = 13 12570411
1261: READ (I04) 12580411
1262: IVCOMP = IRECN 12590411
1263: 40320 IF (IVCOMP - 13) 20320, 10320, 20320 12600411
1264: 30320 IVDELE = IVDELE + 1 12610411
1265: WRITE (I02,80000) IVTNUM 12620411
1266: IF (ICZERO) 10320, 0331, 20320 12630411
1267: 10320 IVPASS = IVPASS + 1 12640411
1268: WRITE (I02,80002) IVTNUM 12650411
1269: GO TO 0331 12660411
1270: 20320 IVFAIL = IVFAIL + 1 12670411
1271: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 12680411
1272: 0331 CONTINUE 12690411
1273: C 12700411
1274: C **** FCVS PROGRAM 411 - TEST 033 **** 12710411
1275: C 12720411
1276: C 12730411
1277: C TEST 033 USES A READ STATEMENT IN WHICH THE NUMBER OF VALUES 12740411
1278: C REQUIRED BY THE INPUT LIST IS LESS THAN THE NUMBER OF VALUES IN 12750411
1279: C THE RECORD. THIS TEST READS RECORD NUMBER 14 WHICH WAS CREATED 12760411
1280: C IN TEST 016. 12770411
1281: C 12780411
1282: C SEE SECTION 12.9.5.1, UNFORMATED DATA TRANSFER 12790411
1283: C 12800411
1284: C 12810411
1285: IVTNUM = 33 12820411
1286: IF (ICZERO) 30330, 0330, 30330 12830411
1287: 0330 CONTINUE 12840411
1288: IVON21 = 0 12850411
1289: IVON22 = 0 12860411
1290: IVON31 = 0 12870411
1291: IVCORR = 0 12880411
1292: IVCOMP = 1 12890411
1293: READ (I04) IPROG, IFILE, ITOTR, IRLGN, IRECN, IEOF, 12900411
1294: 1 IVON21, IVON22, IVON31 12910411
1295: IF (IRECN .EQ. 14) IVCOMP = IVCOMP * 2 12920411
1296: IF (IVON21 .EQ. 11) IVCOMP = IVCOMP * 3 12930411
1297: IF (IVON22 .EQ. -11) IVCOMP = IVCOMP * 5 12940411
1298: 40330 IF (IVCOMP - 30) 20330, 10330, 20330 12950411
1299: 30330 IVDELE = IVDELE + 1 12960411
1300: WRITE (I02,80000) IVTNUM 12970411
1301: IF (ICZERO) 10330, 0341, 20330 12980411
1302: 10330 IVPASS = IVPASS + 1 12990411
1303: WRITE (I02,80002) IVTNUM 13000411
1304: GO TO 0341 13010411
1305: 20330 IVFAIL = IVFAIL + 1 13020411
1306: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 13030411
1307: 0341 CONTINUE 13040411
1308: C 13050411
1309: C 13060411
1310: C THE FOLLOWING TWO TESTS USE THE READ STATEMENT WITH THE 13070411
1311: C END SPECIFIER. 13080411
1312: C 13090411
1313: C 13100411
1314: C 13110411
1315: C **** FCVS PROGRAM 411 - TEST 034 **** 13120411
1316: C 13130411
1317: C 13140411
1318: C TEST 034 USES THE READ STATEMENT WITHOUT ANY I/O LIST ITEMS. 13150411
1319: C THE FILE IS READ UNTIL AN END-OF-FILE CONDITION OCCURS. 13160411
1320: C 13170411
1321: IVTNUM = 34 13180411
1322: IF (ICZERO) 30340, 0340, 30340 13190411
1323: 0340 CONTINUE 13200411
1324: REWIND I04 13210411
1325: C 13220411
1326: IVCOMP = 1 13230411
1327: IVON01 = 0 13240411
1328: IVCORR = 6 13250411
1329: DO 0342 I=1,150 13260411
1330: READ (I04, END = 0343) 13270411
1331: IVON01 = IVON01 + 1 13280411
1332: IF (IVON01 .GT. 150) GO TO 40340 13290411
1333: 0342 CONTINUE 13300411
1334: GO TO 40340 13310411
1335: 0343 IVCOMP = IVCOMP * 2 13320411
1336: IF (IVON01 .EQ. 142) IVCOMP = IVCOMP * 3 13330411
1337: 40340 IF (IVCOMP - 6) 20340, 10340, 20340 13340411
1338: 30340 IVDELE = IVDELE + 1 13350411
1339: WRITE (I02,80000) IVTNUM 13360411
1340: IF (ICZERO) 10340, 0351, 20340 13370411
1341: 10340 IVPASS = IVPASS + 1 13380411
1342: WRITE (I02,80002) IVTNUM 13390411
1343: GO TO 0351 13400411
1344: 20340 IVFAIL = IVFAIL + 1 13410411
1345: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 13420411
1346: 0351 CONTINUE 13430411
1347: C 13440411
1348: C **** FCVS PROGRAM 411 - TEST 035 **** 13450411
1349: C 13460411
1350: C 13470411
1351: C TEST 035 USES THE READ STATEMENT WITH INPUT LIST ITEMS. 13480411
1352: C THE FILE IS READ UNTIL AN END-OF-FILE CONDITION OCCURS. 13490411
1353: C 13500411
1354: C 13510411
1355: IVTNUM = 35 13520411
1356: IF (ICZERO) 30350, 0350, 30350 13530411
1357: 0350 CONTINUE 13540411
1358: REWIND I04 13550411
1359: IVCOMP = 1 13560411
1360: IVCORR = 6 13570411
1361: IVON01 = 0 13580411
1362: IRECCK = 0 13590411
1363: DO 0352 I = 1,150 13600411
1364: IRECCK = IRECCK + 1 13610411
1365: IF (IRECCK .EQ. 13) GO TO 0353 13620411
1366: C TEST 015 WROTE A RECORD WITHOUT ANY I/O LIST ITEMS THEREFORE 13630411
1367: C THE RECORD IS READ WITHOUT ANY I/O LIST ITEMS. 13640411
1368: READ (I04, END = 0354) IPROG, IFILE, ITOTR, IRLGN, IRECN,IEOF 13650411
1369: GO TO 0355 13660411
1370: 0353 READ (I04) 13670411
1371: IVON01 = IVON01 + 1 13680411
1372: 0355 IF (IRECN .EQ. IRECCK) IVON01 = IVON01 + 1 13690411
1373: 0352 CONTINUE 13700411
1374: GO TO 40350 13710411
1375: 0354 IVCOMP = IVCOMP * 2 13720411
1376: IF (IVON01 .EQ. 142) IVCOMP = IVCOMP * 3 13730411
1377: 40350 IF (IVCOMP - 6) 20350, 10350, 20350 13740411
1378: 30350 IVDELE = IVDELE + 1 13750411
1379: WRITE (I02,80000) IVTNUM 13760411
1380: IF (ICZERO) 10350, 0361, 20350 13770411
1381: 10350 IVPASS = IVPASS + 1 13780411
1382: WRITE (I02,80002) IVTNUM 13790411
1383: GO TO 0361 13800411
1384: 20350 IVFAIL = IVFAIL + 1 13810411
1385: WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 13820411
1386: 0361 CONTINUE 13830411
1387: C 13840411
1388: C 13850411
1389: C THE FOLLOWING SOURCE CODE BRACKETED BY THE COMMENT LINES 13860411
1390: C ***** BEGIN-FILE-DUMP SECTION AND ***** END-FILE-DUMP SECTION 13870411
1391: C MAY OR MAY NOT APPEAR AS COMMENTS IN THE SOURCE PROGRAM. 13880411
1392: C THIS CODE IS OPTIONAL AND BY DEFAULT IT IS AUTOMATICALLY COMMENTED13890411
1393: C OUT BY THE EXECUTIVE ROUTINE. A DUMP OF THE FILE USED BY THIS 13900411
1394: C ROUTINE IS PROVIDED BY USING THE *OPT1 EXECUTIVE ROUTINE CONTROL 13910411
1395: C CARD. IF THE OPTIONAL CODE IS SELECTED THE ROUTINE WILL DUMP 13920411
1396: C THE CONTENTS OF THE FILE TO THE PRINT FILE FOLLOWING THE TEST 13930411
1397: C REPORT AND BEFORE THE TEST REPORT SUMMARY. 13940411
1398: CDB** BEGIN FILE DUMP CODE 13950411
1399: C REWIND I04 13960411
1400: C ITOTR = 142 13970411
1401: C ILUN = I04 13980411
1402: C IRLGN = 80 13990411
1403: C IRNUM = 1 14000411
1404: C7701 FORMAT (80A1) 14010411
1405: C7702 FORMAT (1X,80A1) 14020411
1406: C7703 FORMAT (10X,5HFILE ,I2,5H HAS ,I3,13H RECORDS - OK) 14030411
1407: C7704 FORMAT (10X,5HFILE ,I2,5H HAS ,I3,27H RECORDS - THERE SHOULD BE ,I14040411
1408: C 13,9H RECORDS.) 14050411
1409: C DO 7771 IRNUM = 1, ITOTR 14060411
1410: C READ (ILUN, END = 7772) (IDUMP(ICH), ICH = 1, IRLGN) 14070411
1411: C WRITE (I02,7702) (IDUMP(ICH), ICH = 1, IRLGN) 14080411
1412: C7771 CONTINUE 14090411
1413: C7772 CONTINUE 14100411
1414: CDE** END OF DUMP CODE 14110411
1415: C TEST 035 IS THE LAST TEST IN THIS PROGRAM. THE ROUTINE SHOULD14120411
1416: C HAVE MADE 35 EXPLICIT TESTS AND PROCESSED ONE FILE CONNECTED FOR 14130411
1417: C SEQUENTIAL ACCESS 14140411
1418: C 14150411
1419: C 14160411
1420: C 14170411
1421: C WRITE OUT TEST SUMMARY 14180411
1422: C 14190411
1423: WRITE (I02,90004) 14200411
1424: WRITE (I02,90014) 14210411
1425: WRITE (I02,90004) 14220411
1426: WRITE (I02,90000) 14230411
1427: WRITE (I02,90004) 14240411
1428: WRITE (I02,90020) IVFAIL 14250411
1429: WRITE (I02,90022) IVPASS 14260411
1430: WRITE (I02,90024) IVDELE 14270411
1431: STOP 14280411
1432: 90001 FORMAT (1H ,24X,5HFM411) 14290411
1433: 90000 FORMAT (1H ,20X,20HEND OF PROGRAM FM411) 14300411
1434: C 14310411
1435: C FORMATS FOR TEST DETAIL LINES 14320411
1436: C 14330411
1437: 80000 FORMAT (1H ,4X,I5,6X,7HDELETED) 14340411
1438: 80002 FORMAT (1H ,4X,I5,7X,4HPASS) 14350411
1439: 80010 FORMAT (1H ,4X,I5,7X,4HFAIL,10X,I6,9X,I6) 14360411
1440: 80012 FORMAT (1H ,4X,I5,7X,4HFAIL,4X,E12.5,3X,E12.5) 14370411
1441: 80018 FORMAT (1H ,4X,I5,7X,4HFAIL,2X,A14,1X,A14) 14380411
1442: C 14390411
1443: C FORMAT STATEMENTS FOR PAGE HEADERS 14400411
1444: C 14410411
1445: 90002 FORMAT (1H1) 14420411
1446: 90004 FORMAT (1H ) 14430411
1447: 90006 FORMAT (1H ,10X,34HFORTRAN COMPILER VALIDATION SYSTEM) 14440411
1448: 90008 FORMAT (1H ,21X,11HVERSION 1.0) 14450411
1449: 90010 FORMAT (1H ,8X,38HFOR OFFICIAL USE ONLY - COPYRIGHT 1978) 14460411
1450: 90012 FORMAT (1H ,5X,4HTEST,5X,9HPASS/FAIL,5X,8HCOMPUTED,8X,7HCORRECT) 14470411
1451: 90014 FORMAT (1H ,5X,46H----------------------------------------------) 14480411
1452: 90016 FORMAT (1H ,18X,17HSUBSET LEVEL TEST) 14490411
1453: C 14500411
1454: C FORMAT STATEMENTS FOR RUN SUMMARY 14510411
1455: C 14520411
1456: 90020 FORMAT (1H ,19X,I5,13H TESTS FAILED) 14530411
1457: 90022 FORMAT (1H ,19X,I5,13H TESTS PASSED) 14540411
1458: 90024 FORMAT (1H ,19X,I5,14H TESTS DELETED) 14550411
1459: END 14560411
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.