![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM919.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 FM919.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***********************************************************************00010919
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***** FORTRAN 77 00020919
6: C***** FM919 00030919
7: C***** INQF1 - (438) 00040919
8: C***** 00050919
9: C***********************************************************************00060919
10: C***** GENERAL PURPOSE ANS REF 00070919
11: C***** TEST INQUIRE BY FILE ON SEQUENTIAL, FORMATTED FILES 12.10.3 00080919
12: C***** 00090919
13: C***** THE TESTS IN THIS UNIT ARE ONLY PERFORMED ON A 00100919
14: C***** FILE THAT IS CONNECTED FOR SEQUENTIAL, FORMATTED ACCESS 00110919
15: C***** (ANS REF. 12.2.4.1 AND 12.9.5.2) 00120919
16: C***** THIS TEST PERFORMS AN EXPLICIT OPEN, AND PERFORMS 00130919
17: C***** A CLOSE WITH STATUS='DELETE' AT THE END OF THE SEGMENT. 00140919
18: C***********************************************************************00150919
19: CBB** ********************** BBCCOMNT **********************************00160919
20: C**** 00170919
21: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00180919
22: C**** VERSION 2.0 00190919
23: C**** 00200919
24: C**** 00210919
25: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00220919
26: C**** GENERAL SERVICES ADMINISTRATION 00230919
27: C**** FEDERAL SOFTWARE TESTING CENTER 00240919
28: C**** 5203 LEESBURG PIKE, SUITE 1100 00250919
29: C**** FALLS CHURCH, VA. 22041 00260919
30: C**** 00270919
31: C**** (703) 756-6153 00280919
32: C**** 00290919
33: CBE** ********************** BBCCOMNT **********************************00300919
34: C***** 00310919
35: LOGICAL AVB, BVB 00320919
36: CHARACTER*10 B10VK, C10VK, E11VK*11, F10VK, H10VK 00330919
37: C***** BELOW CHARACTER STATEMENT ESTABLISHES THE FILE NAME VARIABLES. 00340919
38: CX19 REPLACED BY FEXEC X-19 CONTROL CARD. X-19 IS FOR REPLACING 00350919
39: CHARACTER*15 CSEQ 00360919
40: C THE CHARACTER STATEMENT FOR FILE NAMES ASSOCIATED WITH X-090 00370919
41: C (PROGRAM VARIABLE CSEQ) IF NOT VALID FOR THE PROCESSOR. 00380919
42: CBB** ********************** BBCINITA **********************************00390919
43: C**** SPECIFICATION STATEMENTS 00400919
44: C**** 00410919
45: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00420919
46: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00430919
47: CBE** ********************** BBCINITA **********************************00440919
48: CBB** ********************** BBCINITB **********************************00450919
49: C**** INITIALIZE SECTION 00460919
50: DATA ZVERS, ZVERSD, ZDATE 00470919
51: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00480919
52: DATA ZCOMPL, ZNAME, ZTAPE 00490919
53: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00500919
54: DATA ZPROJ, ZTAPED, ZPROG 00510919
55: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00520919
56: DATA REMRKS /' '/ 00530919
57: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00540919
58: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00550919
59: C**** 00560919
60: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00570919
61: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00580919
62: CZ03 ZPROG = 'PROGRAM NAME' 00590919
63: ZDATE = '07-Nov-85 ' *RP
64: ZCOMPL = 'CCI 5.2 ' *RP
65: ZPROJ = 'TC-85- -410' *RP
66: ZNAME = ' ' *RP
67: ZTAPE = ' ' *RP
68: ZTAPED = '850703 ' *RP
69: C 00660919
70: IVPASS = 0 00670919
71: IVFAIL = 0 00680919
72: IVDELE = 0 00690919
73: IVINSP = 0 00700919
74: IVTOTL = 0 00710919
75: IVTOTN = 0 00720919
76: ICZERO = 0 00730919
77: C 00740919
78: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00750919
79: I01 = 05 00760919
80: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00770919
81: I02 = 06 00780919
82: C 00790919
83: I01 = 5 00800919
84: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00810919
85: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00820919
86: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00830919
87: C 00840919
88: I02 = 6 00850919
89: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00860919
90: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00870919
91: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00880919
92: C 00890919
93: CBE** ********************** BBCINITB **********************************00900919
94: C***** 00910919
95: C***** THE FOLLOWING STATEMENT MUST BE CHANGED IF 00920919
96: C***** THE UNIT GIVEN IS NOT CAPABLE OF BEING OPENED AS A 00930919
97: C***** SEQUENTIAL, FORMATTED FILE. 00940919
98: C***** 00950919
99: I09 = 14 00960919
100: OPEN(UNIT=I09,ACCESS='SEQUENTIAL',FORM='FORMATTED') 00970919
101: C X-090 I09 = NN WILL OVERRIDE I09 = 14 00980919
102: C***** 00990919
103: C***** THE FOLLOWING STATEMENT MUST BE CHANGED IF THE NAME 01000919
104: C***** GIVEN IS NOT A VALID FILE SPECIFIER FOR A SEQUENTIAL, 01010919
105: C***** FORMATTED FILE. 01020919
106: C***** 01030919
107: C***** 01040919
108: C***** THE FOLLOWING STATEMENT MUST BE CHANGED IF THE NAME 01050919
109: C***** GIVEN IS NOT A VALID FILE SPECIFIER FOR A SEQUENTIAL, 01060919
110: C***** FORMATTED FILE. 01070919
111: C***** 01080919
112: C CSEQ CONTAINS THE FILE NAME FOR UNIT I09. 01090919
113: CSEQ = ' SEQFILE' 01100919
114: C 01110919
115: CX191 REPLACED BY FEXEC X-191 CONTROL CARD. CX191 IS FOR SYSTEMS 01120919
116: C REQUIRING A DIFFERENT FILE SPECIFIER FOR FILES ASSOCIATED WITH 01130919
117: C X-090 THAN THE DEFAULT CSEQ = ' SEQFILE'. 01140919
118: C***** 01150919
119: NUVI = I02 01160919
120: IMVI = I09 01170919
121: ZPROG = 'FM919' 01180919
122: IVTOTL = 1 01190919
123: CBB** ********************** BBCHED0A **********************************01200919
124: C**** 01210919
125: C**** WRITE REPORT TITLE 01220919
126: C**** 01230919
127: WRITE (I02, 90002) 01240919
128: WRITE (I02, 90006) 01250919
129: WRITE (I02, 90007) 01260919
130: WRITE (I02, 90008) ZVERS, ZVERSD 01270919
131: WRITE (I02, 90009) ZPROG, ZPROG 01280919
132: WRITE (I02, 90010) ZDATE, ZCOMPL 01290919
133: CBE** ********************** BBCHED0A **********************************01300919
134: C***** 01310919
135: WRITE(NUVI,43800) 01320919
136: 43800 FORMAT(1H , / 30H INQF1 - (438) INQUIRE BY FILE// 01330919
137: 1 45H SEQUENTIAL FORMATTED FILE, CONNECTED BY OPEN// 01340919
138: 2 19H ANS REF. - 12.10.3) 01350919
139: CBB** ********************** BBCHED0B **********************************01360919
140: C**** WRITE DETAIL REPORT HEADERS 01370919
141: C**** 01380919
142: WRITE (I02,90004) 01390919
143: WRITE (I02,90004) 01400919
144: WRITE (I02,90013) 01410919
145: WRITE (I02,90014) 01420919
146: WRITE (I02,90015) IVTOTL 01430919
147: CBE** ********************** BBCHED0B **********************************01440919
148: C***** 01450919
149: C***** OPEN FILE 01460919
150: OPEN(FILE=CSEQ, UNIT=IMVI, ACCESS='SEQUENTIAL', 01470919
151: 1 FORM='FORMATTED', BLANK='NULL') 01480919
152: C***** 01490919
153: CT001* TEST 1 - FIRST INQUIRE (AFTER OPEN) 01500919
154: IVTNUM = 1 01510919
155: INQUIRE(FILE=CSEQ, EXIST=AVB, OPENED=BVB, NUMBER=JVI, 01520919
156: 1 ACCESS=B10VK, SEQUENTIAL=C10VK, FORM=E11VK, 01530919
157: 2 FORMATTED=F10VK, BLANK=H10VK, ERR=20014, IOSTAT=IVI) 01540919
158: 01550919
159: IF (IVI .NE. 0) GO TO 20010 01560919
160: IF (.NOT. AVB) GO TO 20010 01570919
161: IF (.NOT. BVB) GO TO 20010 01580919
162: IF (JVI .NE. IMVI) GO TO 20010 01590919
163: IF (B10VK .NE. 'SEQUENTIAL') GO TO 20010 01600919
164: IF (C10VK .NE. 'YES') GO TO 20010 01610919
165: IF (E11VK .NE. 'FORMATTED') GO TO 20010 01620919
166: IF (F10VK .NE. 'YES' ) GO TO 20010 01630919
167: IF (H10VK .NE. 'NULL') GO TO 20010 01640919
168: WRITE (NUVI, 80002) IVTNUM 01650919
169: IVPASS = IVPASS + 1 01660919
170: GO TO 0011 01670919
171: 20014 CONTINUE 01680919
172: WRITE (NUVI, 20015) IVTNUM 01690919
173: 20015 FORMAT (1H ,2X,I3,4X,5H FAIL,12X, 01700919
174: 1 46HERROR IN EXECUTION OF INQUIRE STATEMENT (ERR=)/) 01710919
175: GO TO 20016 01720919
176: 20010 CONTINUE 01730919
177: WRITE (NUVI, 20011) IVTNUM 01740919
178: 20011 FORMAT(1H ,2X,I3,4X,5H FAIL,12X, 01750919
179: 1 29HERROR IN AN INQUIRE SPECIFIER/) 01760919
180: 20016 IVFAIL = IVFAIL + 1 01770919
181: WRITE (NUVI, 20012) IVI,AVB,BVB,JVI,B10VK,C10VK,E11VK, 01780919
182: 1 F10VK,H10VK 01790919
183: 20012 FORMAT (1H ,16X,10HCOMPUTED: ,7HIOSTAT=,I1,8H, EXIST=,L1, 01800919
184: 1 9H ,OPENED=,L1,9H, NUMBER=,I4,1H,/ 01810919
185: 2 1H ,26X,7HACCESS=,A10,13H, SEQUENTIAL=,A3,7H, FORM=, 01820919
186: 3 A9,1H,/1H ,26X,10HFORMATTED=,A3,8H, BLANK=,A4) 01830919
187: WRITE (NUVI, 20013) IMVI 01840919
188: 20013 FORMAT (1H ,16X,10HCORRECT: ,19HIOSTAT=0, EXIST=T, , 01850919
189: 1 17HOPENED=T, NUMBER=,I4,1H,/ 01860919
190: 2 1H ,26X,40HACCESS=SEQUENTIAL, SEQUENTIAL=YES, FORM=, 01870919
191: 3 10HFORMATTED,/1H ,26X,25HFORMATTED=YES, BLANK=NULL) 01880919
192: 0011 CONTINUE 01890919
193: C***** 01900919
194: 43803 CLOSE(UNIT=IMVI, STATUS='DELETE') 01910919
195: C***** 01920919
196: CBB** ********************** BBCSUM0 **********************************01930919
197: C**** WRITE OUT TEST SUMMARY 01940919
198: C**** 01950919
199: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 01960919
200: WRITE (I02, 90004) 01970919
201: WRITE (I02, 90014) 01980919
202: WRITE (I02, 90004) 01990919
203: WRITE (I02, 90020) IVPASS 02000919
204: WRITE (I02, 90022) IVFAIL 02010919
205: WRITE (I02, 90024) IVDELE 02020919
206: WRITE (I02, 90026) IVINSP 02030919
207: WRITE (I02, 90028) IVTOTN, IVTOTL 02040919
208: CBE** ********************** BBCSUM0 **********************************02050919
209: CBB** ********************** BBCFOOT0 **********************************02060919
210: C**** WRITE OUT REPORT FOOTINGS 02070919
211: C**** 02080919
212: WRITE (I02,90016) ZPROG, ZPROG 02090919
213: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 02100919
214: WRITE (I02,90019) 02110919
215: CBE** ********************** BBCFOOT0 **********************************02120919
216: CBB** ********************** BBCFMT0A **********************************02130919
217: C**** FORMATS FOR TEST DETAIL LINES 02140919
218: C**** 02150919
219: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 02160919
220: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 02170919
221: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 02180919
222: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 02190919
223: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 02200919
224: 1I6,/,1H ,15X,10HCORRECT= ,I6) 02210919
225: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02220919
226: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 02230919
227: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02240919
228: 1A21,/,1H ,16X,10HCORRECT= ,A21) 02250919
229: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 02260919
230: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 02270919
231: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 02280919
232: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 02290919
233: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 02300919
234: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 02310919
235: 80050 FORMAT (1H ,48X,A31) 02320919
236: CBE** ********************** BBCFMT0A **********************************02330919
237: CBB** ********************** BBCFMT0B **********************************02340919
238: C**** FORMAT STATEMENTS FOR PAGE HEADERS 02350919
239: C**** 02360919
240: 90002 FORMAT (1H1) 02370919
241: 90004 FORMAT (1H ) 02380919
242: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 02390919
243: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 02400919
244: 90008 FORMAT (1H ,21X,A13,A17) 02410919
245: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 02420919
246: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 02430919
247: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 02440919
248: 1 7X,7HREMARKS,24X) 02450919
249: 90014 FORMAT (1H ,46H----------------------------------------------, 02460919
250: 1 33H---------------------------------) 02470919
251: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 02480919
252: C**** 02490919
253: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 02500919
254: C**** 02510919
255: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 02520919
256: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 02530919
257: 1 A13) 02540919
258: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 02550919
259: C**** 02560919
260: C**** FORMAT STATEMENTS FOR RUN SUMMARY 02570919
261: C**** 02580919
262: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 02590919
263: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 02600919
264: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 02610919
265: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 02620919
266: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 02630919
267: CBE** ********************** BBCFMT0B **********************************02640919
268: C***** 02650919
269: C***** END OF TEST SEGMENT 438 02660919
270: STOP 02670919
271: END 02680919
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.