![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM922.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 FM922.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***********************************************************************00010922
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 00020922
6: C***** FM922 00030922
7: C***** INQF5 - (442) 00040922
8: C***** 00050922
9: C***********************************************************************00060922
10: C***** GENERAL PURPOSE ANS REF 00070922
11: C***** TEST INQUIRE BY FILE ON A FILE THAT IS NOT 12.10.3 00080922
12: C***** CONNECTED TO A UNIT 00090922
13: C***** 00100922
14: C***** THE TESTS IN THIS UNIT ARE ONLY BE PERFORMED ON A 00110922
15: C***** FILE THAT IS NOT CONNECTED TO A UNIT. 00120922
16: C***** THIS TEST PERFORMS AN EXPLICIT OPEN, AND THEN 00130922
17: C***** PERFORMS A CLOSE WITH STATUS='KEEP' IN ORDER TO 00140922
18: C***** ENSURE THAT THE UNIT AND FILE ARE NOT CONNECTED. 00150922
19: C***** (ANS REF 12.10.2) 00160922
20: C***********************************************************************00170922
21: CBB** ********************** BBCCOMNT **********************************00180922
22: C**** 00190922
23: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00200922
24: C**** VERSION 2.0 00210922
25: C**** 00220922
26: C**** 00230922
27: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00240922
28: C**** GENERAL SERVICES ADMINISTRATION 00250922
29: C**** FEDERAL SOFTWARE TESTING CENTER 00260922
30: C**** 5203 LEESBURG PIKE, SUITE 1100 00270922
31: C**** FALLS CHURCH, VA. 22041 00280922
32: C**** 00290922
33: C**** (703) 756-6153 00300922
34: C**** 00310922
35: CBE** ********************** BBCCOMNT **********************************00320922
36: LOGICAL AVB, BVB 00330922
37: CHARACTER*10 C10VK, F10VK 00340922
38: C***** BELOW CHARACTER STATEMENT ESTABLISHES THE FILE NAME VARIABLES. 00350922
39: CX19 REPLACED BY FEXEC X-19 CONTROL CARD. X-19 IS FOR REPLACING 00360922
40: CHARACTER*15 CSEQ 00370922
41: C THE CHARACTER STATEMENT FOR FILE NAMES ASSOCIATED WITH X-150 00380922
42: C (PROGRAM VARIABLE CSEQ) IF NOT VALID FOR THE PROCESSOR. 00390922
43: CBB** ********************** BBCINITA **********************************00400922
44: C**** SPECIFICATION STATEMENTS 00410922
45: C**** 00420922
46: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00430922
47: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00440922
48: CBE** ********************** BBCINITA **********************************00450922
49: CBB** ********************** BBCINITB **********************************00460922
50: C**** INITIALIZE SECTION 00470922
51: DATA ZVERS, ZVERSD, ZDATE 00480922
52: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00490922
53: DATA ZCOMPL, ZNAME, ZTAPE 00500922
54: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00510922
55: DATA ZPROJ, ZTAPED, ZPROG 00520922
56: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00530922
57: DATA REMRKS /' '/ 00540922
58: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00550922
59: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00560922
60: C**** 00570922
61: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00580922
62: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00590922
63: CZ03 ZPROG = 'PROGRAM NAME' 00600922
64: ZDATE = '07-Nov-85 ' *RP
65: ZCOMPL = 'CCI 5.2 ' *RP
66: ZPROJ = 'TC-85- -410' *RP
67: ZNAME = ' ' *RP
68: ZTAPE = ' ' *RP
69: ZTAPED = '850703 ' *RP
70: C 00670922
71: IVPASS = 0 00680922
72: IVFAIL = 0 00690922
73: IVDELE = 0 00700922
74: IVINSP = 0 00710922
75: IVTOTL = 0 00720922
76: IVTOTN = 0 00730922
77: ICZERO = 0 00740922
78: C 00750922
79: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00760922
80: I01 = 05 00770922
81: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00780922
82: I02 = 06 00790922
83: C 00800922
84: I01 = 5 00810922
85: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00820922
86: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00830922
87: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00840922
88: C 00850922
89: I02 = 6 00860922
90: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00870922
91: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00880922
92: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00890922
93: C 00900922
94: CBE** ********************** BBCINITB **********************************00910922
95: C***** 00920922
96: C***** THE FOLLOWING STATEMENT MUST BE CHANGED IF 00930922
97: C***** THE UNIT GIVEN IS NOT CAPABLE OF BEING OPENED AS A 00940922
98: C***** SEQUENTIAL, FORMATTED FILE. 00950922
99: C***** 00960922
100: C I15 CONTAINS THE UNIT NUMBER FOR A SEQUENTIAL FORMATTED FILE. 00970922
101: I15 = 14 00980922
102: OPEN(UNIT=I15,ACCESS='SEQUENTIAL',FORM='FORMATTED') 00990922
103: C SPECIFYING I15 = NN OVERRIDES THE DEFAULT I15 = 14. 01000922
104: C***** 01010922
105: C***** THE FOLLOWING STATEMENT MUST BE CHANGED IF THE NAME 01020922
106: C***** GIVEN IS NOT A VALID FILE SPECIFIER FOR A SEQUENTIAL, 01030922
107: C***** FORMATTED FILE. 01040922
108: C***** 01050922
109: C CSEQ CONTAINS THE FILE NAME FOR UNIT I15. 01060922
110: CSEQ = ' SEQFILE' 01070922
111: C 01080922
112: CX191 REPLACED BY FEXEC X-191 CONTROL CARD. CX191 IS FOR SYSTEMS 01090922
113: C REQUIRING A DIFFERENT FILE SPECIFIER FOR FILES ASSOCIATED WITH 01100922
114: C X-150 THAN THE DEFAULT CSEQ = ' SEQFILE'. 01110922
115: C 01120922
116: C***** 01130922
117: NUVI = I02 01140922
118: IMVI = I15 01150922
119: ZPROG = 'FM922' 01160922
120: IVTOTL = 1 01170922
121: CBB** ********************** BBCHED0A **********************************01180922
122: C**** 01190922
123: C**** WRITE REPORT TITLE 01200922
124: C**** 01210922
125: WRITE (I02, 90002) 01220922
126: WRITE (I02, 90006) 01230922
127: WRITE (I02, 90007) 01240922
128: WRITE (I02, 90008) ZVERS, ZVERSD 01250922
129: WRITE (I02, 90009) ZPROG, ZPROG 01260922
130: WRITE (I02, 90010) ZDATE, ZCOMPL 01270922
131: CBE** ********************** BBCHED0A **********************************01280922
132: WRITE(NUVI,44200) 01290922
133: 44200 FORMAT(1H ,/ 31H INQF5 - (442) INQUIRE BY FILE/ 01300922
134: 1 30H FILE NOT CONNECTED TO A UNIT/ 01310922
135: 2 20H ANS REF. - 12.10.3) 01320922
136: CBB** ********************** BBCHED0B **********************************01330922
137: C**** WRITE DETAIL REPORT HEADERS 01340922
138: C**** 01350922
139: WRITE (I02,90004) 01360922
140: WRITE (I02,90004) 01370922
141: WRITE (I02,90013) 01380922
142: WRITE (I02,90014) 01390922
143: WRITE (I02,90015) IVTOTL 01400922
144: CBE** ********************** BBCHED0B **********************************01410922
145: C***** 01420922
146: C***** OPEN FILE, WRITE TO FILE, REWIND FILE 01430922
147: C***** 01440922
148: OPEN(FILE=CSEQ,UNIT=IMVI,ACCESS='SEQUENTIAL',FORM='FORMATTED', 01450*TI
149: 1 STATUS='NEW') 01450*TI
150: WRITE(IMVI, 44200) 01460922
151: ENDFILE IMVI 01470922
152: REWIND IMVI 01480922
153: C***** 01490922
154: C***** DISCONNECT FILE 01500922
155: C***** 01510922
156: CLOSE(UNIT=IMVI, STATUS='KEEP') 01520922
157: C***** 01530922
158: CT001* TEST 1 - INQUIRE ON DISCONNECTED FILE 01540922
159: IVTNUM = 1 01550922
160: INQUIRE(FILE=CSEQ, IOSTAT=IVI, EXIST=AVB, OPENED=BVB, 01560922
161: 1 SEQUENTIAL=C10VK, FORMATTED=F10VK, ERR=44206) 01570922
162: 01580922
163: IF (IVI .NE. 0) GO TO 44202 01590922
164: IF (.NOT. AVB) GO TO 44202 01600922
165: IF (BVB) GO TO 44202 01610922
166: IF (C10VK .EQ. 'NO') GO TO 44202 01620922
167: IF (F10VK .EQ. 'NO') GO TO 44202 01630922
168: 55040 WRITE(NUVI,80002)IVTNUM 01640922
169: IVPASS=IVPASS+1 01650922
170: GO TO 44204 01660922
171: 44206 CONTINUE 01670922
172: WRITE (NUVI, 44207) IVTNUM 01680922
173: 44207 FORMAT (1H ,2X,I3,4X,5H FAIL,12X, 01690922
174: 1 46HERROR IN EXECUTION OF INQUIRE STATEMENT (ERR=)/) 01700922
175: GO TO 44208 01710922
176: 44202 CONTINUE 01720922
177: WRITE(NUVI,55010)IVTNUM 01730922
178: 55010 FORMAT(1H ,5X,I3,4X,5H FAIL,12X, 01740922
179: 1 29HERROR IN AN INQUIRE SPECIFIER/) 01750922
180: 44208 IVFAIL=IVFAIL+1 01760922
181: WRITE(NUVI,55020)IVI,AVB,BVB,C10VK,F10VK 01770922
182: 55020 FORMAT(1H ,10X,11HCOMPUTED: , 01780922
183: 1 7HIOSTAT=,I1, 01790922
184: 2 8H, EXIST=,L1,9H, OPENED=,L1,13H, SEQUENTIAL=,A3, 01800922
185: 3 12H, FORMATTED=,A3) 01810922
186: WRITE(NUVI,55030) 01820922
187: 55030 FORMAT(1H ,10X,11HCORRECT: , 01830922
188: 1 10HIOSTAT=0, , 01840922
189: 2 45HEXIST=T, OPENED=F, SEQUENTIAL=YES, FORMATTED=, 01850922
190: 3 3HYES/55X,10HOR UNKNOWN,4X,10HOR UNKNOWN) 01860922
191: 44204 CONTINUE 01870922
192: OPEN(FILE=CSEQ, UNIT=IMVI) 01880922
193: CLOSE(UNIT=IMVI, STATUS='DELETE') 01890922
194: CBB** ********************** BBCSUM0 **********************************01900922
195: C**** WRITE OUT TEST SUMMARY 01910922
196: C**** 01920922
197: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 01930922
198: WRITE (I02, 90004) 01940922
199: WRITE (I02, 90014) 01950922
200: WRITE (I02, 90004) 01960922
201: WRITE (I02, 90020) IVPASS 01970922
202: WRITE (I02, 90022) IVFAIL 01980922
203: WRITE (I02, 90024) IVDELE 01990922
204: WRITE (I02, 90026) IVINSP 02000922
205: WRITE (I02, 90028) IVTOTN, IVTOTL 02010922
206: CBE** ********************** BBCSUM0 **********************************02020922
207: CBB** ********************** BBCFOOT0 **********************************02030922
208: C**** WRITE OUT REPORT FOOTINGS 02040922
209: C**** 02050922
210: WRITE (I02,90016) ZPROG, ZPROG 02060922
211: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 02070922
212: WRITE (I02,90019) 02080922
213: CBE** ********************** BBCFOOT0 **********************************02090922
214: CBB** ********************** BBCFMT0A **********************************02100922
215: C**** FORMATS FOR TEST DETAIL LINES 02110922
216: C**** 02120922
217: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 02130922
218: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 02140922
219: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 02150922
220: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 02160922
221: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 02170922
222: 1I6,/,1H ,15X,10HCORRECT= ,I6) 02180922
223: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02190922
224: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 02200922
225: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02210922
226: 1A21,/,1H ,16X,10HCORRECT= ,A21) 02220922
227: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 02230922
228: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 02240922
229: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 02250922
230: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 02260922
231: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 02270922
232: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 02280922
233: 80050 FORMAT (1H ,48X,A31) 02290922
234: CBE** ********************** BBCFMT0A **********************************02300922
235: CBB** ********************** BBCFMT0B **********************************02310922
236: C**** FORMAT STATEMENTS FOR PAGE HEADERS 02320922
237: C**** 02330922
238: 90002 FORMAT (1H1) 02340922
239: 90004 FORMAT (1H ) 02350922
240: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 02360922
241: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 02370922
242: 90008 FORMAT (1H ,21X,A13,A17) 02380922
243: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 02390922
244: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 02400922
245: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 02410922
246: 1 7X,7HREMARKS,24X) 02420922
247: 90014 FORMAT (1H ,46H----------------------------------------------, 02430922
248: 1 33H---------------------------------) 02440922
249: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 02450922
250: C**** 02460922
251: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 02470922
252: C**** 02480922
253: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 02490922
254: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 02500922
255: 1 A13) 02510922
256: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 02520922
257: C**** 02530922
258: C**** FORMAT STATEMENTS FOR RUN SUMMARY 02540922
259: C**** 02550922
260: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 02560922
261: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 02570922
262: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 02580922
263: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 02590922
264: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 02600922
265: CBE** ********************** BBCFMT0B **********************************02610922
266: STOP 02620922
267: END 02630922
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.