![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM918.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 FM918.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***********************************************************************00010918
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 00020918
6: C***** FM918 00030918
7: C***** INQU5 - (434) 00040918
8: C***** 00050918
9: C***********************************************************************00060918
10: C***** GENERAL PURPOSE ANS REF 00070918
11: C***** TEST INQUIRE BY UNIT ON A UNIT THAT IS NOT 12.10.3 00080918
12: C***** CONNECTED TO A FILE. 00090918
13: C***** 00100918
14: C***** THE TESTS IN THIS UNIT ARE ONLY BE PERFORMED ON A 00110918
15: C***** UNIT THAT IS NOT CONNECTED TO A FILE. 00120918
16: C***** THIS TEST PERFORMS AN EXPLICIT OPEN, AND THEN 00130918
17: C***** PERFORMS A CLOSE WITH STATUS='DELETE' IN ORDER TO 00140918
18: C***** ENSURE THAT THE UNIT IS NOT CONNECTED. (ANS REF 12.10.2) 00150918
19: C***********************************************************************00160918
20: CBB** ********************** BBCCOMNT **********************************00170918
21: C**** 00180918
22: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00190918
23: C**** VERSION 2.0 00200918
24: C**** 00210918
25: C**** 00220918
26: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00230918
27: C**** GENERAL SERVICES ADMINISTRATION 00240918
28: C**** FEDERAL SOFTWARE TESTING CENTER 00250918
29: C**** 5203 LEESBURG PIKE, SUITE 1100 00260918
30: C**** FALLS CHURCH, VA. 22041 00270918
31: C**** 00280918
32: C**** (703) 756-6153 00290918
33: C**** 00300918
34: CBE** ********************** BBCCOMNT **********************************00310918
35: C***** 00320918
36: LOGICAL AVB, BVB 00330918
37: CHARACTER*10 C10VK, D10VK, F10VK, G10VK 00340918
38: C***** BELOW CHARACTER STATEMENT ESTABLISHES THE FILE NAME VARIABLES. 00350918
39: CBB** ********************** BBCINITA **********************************00360918
40: C**** SPECIFICATION STATEMENTS 00370918
41: C**** 00380918
42: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00390918
43: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00400918
44: CBE** ********************** BBCINITA **********************************00410918
45: CBB** ********************** BBCINITB **********************************00420918
46: C**** INITIALIZE SECTION 00430918
47: DATA ZVERS, ZVERSD, ZDATE 00440918
48: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00450918
49: DATA ZCOMPL, ZNAME, ZTAPE 00460918
50: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00470918
51: DATA ZPROJ, ZTAPED, ZPROG 00480918
52: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00490918
53: DATA REMRKS /' '/ 00500918
54: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00510918
55: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00520918
56: C**** 00530918
57: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00540918
58: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00550918
59: CZ03 ZPROG = 'PROGRAM NAME' 00560918
60: ZDATE = '07-Nov-85 ' *RP
61: ZCOMPL = 'CCI 5.2 ' *RP
62: ZPROJ = 'TC-85- -410' *RP
63: ZNAME = ' ' *RP
64: ZTAPE = ' ' *RP
65: ZTAPED = '850703 ' *RP
66: C 00630918
67: IVPASS = 0 00640918
68: IVFAIL = 0 00650918
69: IVDELE = 0 00660918
70: IVINSP = 0 00670918
71: IVTOTL = 0 00680918
72: IVTOTN = 0 00690918
73: ICZERO = 0 00700918
74: C 00710918
75: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00720918
76: I01 = 05 00730918
77: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00740918
78: I02 = 06 00750918
79: C 00760918
80: I01 = 5 00770918
81: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00780918
82: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00790918
83: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00800918
84: C 00810918
85: I02 = 6 00820918
86: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00830918
87: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00840918
88: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00850918
89: C 00860918
90: CBE** ********************** BBCINITB **********************************00870918
91: C***** 00880918
92: C***** THE FOLLOWING STATEMENT MUST BE CHANGED IF 00890918
93: C***** THE UNIT GIVEN IS NOT CAPABLE OF BEING OPENED AS A 00900918
94: C***** SEQUENTIAL, FORMATTED FILE. 00910918
95: C***** 00920918
96: C I15 CONTAINS THE UNIT NUMBER FOR A SEQUENTIAL FORMATTED FILE. 00930918
97: I15 = 14 00940918
98: OPEN(UNIT=I15,ACCESS='SEQUENTIAL',FORM='FORMATTED') 00950918
99: C SPECIFYING I15 = NN OVERRIDES THE DEFAULT I15 = 14. 00960918
100: C***** 00970918
101: C***** THE FOLLOWING STATEMENT MUST BE CHANGED IF THE NAME 00980918
102: C***** GIVEN IS NOT A VALID FILE SPECIFIER FOR A SEQUENTIAL, 00990918
103: C***** FORMATTED FILE. 01000918
104: C***** 01010918
105: NUVI = I02 01020918
106: IMVI = I15 01030918
107: ZPROG = 'FM918' 01040918
108: IVTOTL = 1 01050918
109: CBB** ********************** BBCHED0A **********************************01060918
110: C**** 01070918
111: C**** WRITE REPORT TITLE 01080918
112: C**** 01090918
113: WRITE (I02, 90002) 01100918
114: WRITE (I02, 90006) 01110918
115: WRITE (I02, 90007) 01120918
116: WRITE (I02, 90008) ZVERS, ZVERSD 01130918
117: WRITE (I02, 90009) ZPROG, ZPROG 01140918
118: WRITE (I02, 90010) ZDATE, ZCOMPL 01150918
119: CBE** ********************** BBCHED0A **********************************01160918
120: C***** 01170918
121: WRITE(NUVI,43400) 01180918
122: 43400 FORMAT(1H , / 30H INQU5 - (434) INQUIRE BY UNIT// 01190918
123: 1 29H UNIT NOT CONNECTED TO A FILE// 01200918
124: 2 19H ANS REF. - 12.10.3) 01210918
125: CBB** ********************** BBCHED0B **********************************01220918
126: C**** WRITE DETAIL REPORT HEADERS 01230918
127: C**** 01240918
128: WRITE (I02,90004) 01250918
129: WRITE (I02,90004) 01260918
130: WRITE (I02,90013) 01270918
131: WRITE (I02,90014) 01280918
132: WRITE (I02,90015) IVTOTL 01290918
133: CBE** ********************** BBCHED0B **********************************01300918
134: C***** 01310918
135: C***** OPEN FILE 01320918
136: OPEN(UNIT=IMVI, ACCESS='SEQUENTIAL', FORM='FORMATTED') 01330918
137: C***** DIS-CONNECT FILE 01340918
138: CLOSE(UNIT=IMVI, STATUS='DELETE') 01350918
139: C***** 01360918
140: CT001* TEST 1 - INQUIRE ON UNIT NOT CONNECTED TO A FILE 01370918
141: IVTNUM = 1 01380918
142: INQUIRE(UNIT=IMVI, IOSTAT=IVI, EXIST=AVB, OPENED=BVB, 01390918
143: 1 SEQUENTIAL=C10VK, DIRECT=D10VK, FORMATTED=F10VK, 01400918
144: 2 UNFORMATTED=G10VK, ERR=20014) 01410918
145: C***** 01420918
146: IF (.NOT. AVB) GO TO 20010 01430918
147: IF (BVB) GO TO 20010 01440918
148: IF (IVI .NE. 0) GO TO 20010 01450918
149: WRITE (NUVI, 80002) IVTNUM 01460918
150: IVPASS = IVPASS + 1 01470918
151: GO TO 0011 01480918
152: 20014 CONTINUE 01490918
153: WRITE (NUVI, 20015) IVTNUM 01500918
154: 20015 FORMAT (1H ,2X,I3,4X,5H FAIL,12X, 01510918
155: 1 46HERROR IN EXECUTION OF INQUIRE STATEMENT (ERR=)/) 01520918
156: GO TO 20016 01530918
157: 20010 CONTINUE 01540918
158: WRITE (NUVI, 20011) IVTNUM 01550918
159: 20011 FORMAT(1H ,2X,I3,4X,5H FAIL,12X, 01560918
160: 1 29HERROR IN AN INQUIRE SPECIFIER/) 01570918
161: 20016 IVFAIL = IVFAIL + 1 01580918
162: WRITE (NUVI, 20012) IVI,AVB,BVB 01590918
163: 20012 FORMAT (1H ,16X,10HCOMPUTED: ,7HIOSTAT=,I1,8H, EXIST=,L1, 01600918
164: 1 9H ,OPENED=,L1) 01610918
165: WRITE (NUVI, 20013) 01620918
166: 20013 FORMAT (1H ,16X,10HCORRECT: ,19HIOSTAT=0, EXIST=T, , 01630918
167: 1 8HOPENED=F/) 01640*TI
168: WRITE (NUVI, 20018) 01640*TI
169: 20018 FORMAT (1H ,16X,34HINFORMATIVE - UNDER REVIEW BY FSTC) 01640*TI
170: 0011 CONTINUE 01650918
171: C***** 01660918
172: CBB** ********************** BBCSUM0 **********************************01670918
173: C**** WRITE OUT TEST SUMMARY 01680918
174: C**** 01690918
175: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 01700918
176: WRITE (I02, 90004) 01710918
177: WRITE (I02, 90014) 01720918
178: WRITE (I02, 90004) 01730918
179: WRITE (I02, 90020) IVPASS 01740918
180: WRITE (I02, 90022) IVFAIL 01750918
181: WRITE (I02, 90024) IVDELE 01760918
182: WRITE (I02, 90026) IVINSP 01770918
183: WRITE (I02, 90028) IVTOTN, IVTOTL 01780918
184: CBE** ********************** BBCSUM0 **********************************01790918
185: CBB** ********************** BBCFOOT0 **********************************01800918
186: C**** WRITE OUT REPORT FOOTINGS 01810918
187: C**** 01820918
188: WRITE (I02,90016) ZPROG, ZPROG 01830918
189: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 01840918
190: WRITE (I02,90019) 01850918
191: CBE** ********************** BBCFOOT0 **********************************01860918
192: CBB** ********************** BBCFMT0A **********************************01870918
193: C**** FORMATS FOR TEST DETAIL LINES 01880918
194: C**** 01890918
195: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 01900918
196: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 01910918
197: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 01920918
198: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 01930918
199: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 01940918
200: 1I6,/,1H ,15X,10HCORRECT= ,I6) 01950918
201: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 01960918
202: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 01970918
203: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 01980918
204: 1A21,/,1H ,16X,10HCORRECT= ,A21) 01990918
205: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 02000918
206: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 02010918
207: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 02020918
208: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 02030918
209: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 02040918
210: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 02050918
211: 80050 FORMAT (1H ,48X,A31) 02060918
212: CBE** ********************** BBCFMT0A **********************************02070918
213: CBB** ********************** BBCFMT0B **********************************02080918
214: C**** FORMAT STATEMENTS FOR PAGE HEADERS 02090918
215: C**** 02100918
216: 90002 FORMAT (1H1) 02110918
217: 90004 FORMAT (1H ) 02120918
218: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 02130918
219: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 02140918
220: 90008 FORMAT (1H ,21X,A13,A17) 02150918
221: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 02160918
222: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 02170918
223: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 02180918
224: 1 7X,7HREMARKS,24X) 02190918
225: 90014 FORMAT (1H ,46H----------------------------------------------, 02200918
226: 1 33H---------------------------------) 02210918
227: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 02220918
228: C**** 02230918
229: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 02240918
230: C**** 02250918
231: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 02260918
232: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 02270918
233: 1 A13) 02280918
234: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 02290918
235: C**** 02300918
236: C**** FORMAT STATEMENTS FOR RUN SUMMARY 02310918
237: C**** 02320918
238: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 02330918
239: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 02340918
240: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 02350918
241: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 02360918
242: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 02370918
243: CBE** ********************** BBCFMT0B **********************************02380918
244: C***** 02390918
245: C***** END OF TEST SEGMENT 434 02400918
246: STOP 02410918
247: END 02420918
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.