![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM916.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 FM916.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***********************************************************************00010916
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 00020916
6: C***** FM916 00030916
7: C***** INQU3 - (432) 00040916
8: C***** 00050916
9: C***********************************************************************00060916
10: C***** GENERAL PURPOSE ANS REF 00070916
11: C***** TEST INQUIRE BY UNIT ON DIRECT, FORMATTED FILE 12.10.3 00080916
12: C***** 00090916
13: C***** THE TESTS IN THE UNIT ARE ONLY PERFORMED ON A 00100916
14: C***** UNIT THAT IS CONNECTED FOR FORMATTED, DIRECT ACCESS 00110916
15: C***** (ANS REF. 12.2.4.2 AND 12.9.5.2) 00120916
16: C***** THIS TEST PERFORMS AN EXPLICIT OPEN, AND PERFORMS 00130916
17: C***** A CLOSE WITH STATUS='DELETE' AT THE END OF THE SEGMENT. 00140916
18: C***** 00150916
19: CBB** ********************** BBCCOMNT **********************************00160916
20: C**** 00170916
21: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00180916
22: C**** VERSION 2.0 00190916
23: C**** 00200916
24: C**** 00210916
25: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00220916
26: C**** GENERAL SERVICES ADMINISTRATION 00230916
27: C**** FEDERAL SOFTWARE TESTING CENTER 00240916
28: C**** 5203 LEESBURG PIKE, SUITE 1100 00250916
29: C**** FALLS CHURCH, VA. 22041 00260916
30: C**** 00270916
31: C**** (703) 756-6153 00280916
32: C**** 00290916
33: CBE** ********************** BBCCOMNT **********************************00300916
34: C***** 00310916
35: LOGICAL AVB, BVB 00320916
36: CHARACTER*10 B10VK, D10VK, E11VK*11, F10VK, H10VK 00330916
37: CBB** ********************** BBCINITA **********************************00340916
38: C**** SPECIFICATION STATEMENTS 00350916
39: C**** 00360916
40: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00370916
41: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00380916
42: CBE** ********************** BBCINITA **********************************00390916
43: CBB** ********************** BBCINITB **********************************00400916
44: C**** INITIALIZE SECTION 00410916
45: DATA ZVERS, ZVERSD, ZDATE 00420916
46: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00430916
47: DATA ZCOMPL, ZNAME, ZTAPE 00440916
48: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00450916
49: DATA ZPROJ, ZTAPED, ZPROG 00460916
50: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00470916
51: DATA REMRKS /' '/ 00480916
52: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00490916
53: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00500916
54: C**** 00510916
55: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00520916
56: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00530916
57: CZ03 ZPROG = 'PROGRAM NAME' 00540916
58: ZDATE = '07-Nov-85 ' *RP
59: ZCOMPL = 'CCI 5.2 ' *RP
60: ZPROJ = 'TC-85- -410' *RP
61: ZNAME = ' ' *RP
62: ZTAPE = ' ' *RP
63: ZTAPED = '850703 ' *RP
64: C 00610916
65: IVPASS = 0 00620916
66: IVFAIL = 0 00630916
67: IVDELE = 0 00640916
68: IVINSP = 0 00650916
69: IVTOTL = 0 00660916
70: IVTOTN = 0 00670916
71: ICZERO = 0 00680916
72: C 00690916
73: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00700916
74: I01 = 05 00710916
75: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00720916
76: I02 = 06 00730916
77: C 00740916
78: I01 = 5 00750916
79: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00760916
80: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00770916
81: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00780916
82: C 00790916
83: I02 = 6 00800916
84: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00810916
85: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00820916
86: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00830916
87: C 00840916
88: CBE** ********************** BBCINITB **********************************00850916
89: C***** 00860916
90: C***** THE FOLLOWING STATEMENT MUST BE CHANGED IF 00870916
91: C***** THE UNIT GIVEN IS NOT CAPABLE OF BEING OPENED AS A 00880916
92: C***** DIRECT, FORMATTED FILE. 00890916
93: C***** S C R A T C H D I R E C T A C C E S S U N I T 00900916
94: I14 = 14 00910916
95: OPEN(UNIT=I14,ACCESS='DIRECT',FORM='FORMATTED',RECL=40) 00920916
96: C X-140 I14 = NN WILL OVERRIDE I14 = 14 00930916
97: C***** 00940916
98: C***** THE FOLLOWING STATEMENT MUST BE CHANGED IF 40 IS 00950916
99: C***** NOT A VALID RECORD LENGTH. 00960916
100: MVI = 40 00970916
101: C***** 00980916
102: NUVI = I02 00990916
103: IOVI = I14 01000916
104: ZPROG = 'FM916' 01010916
105: IVTOTL = 1 01020916
106: CBB** ********************** BBCHED0A **********************************01030916
107: C**** 01040916
108: C**** WRITE REPORT TITLE 01050916
109: C**** 01060916
110: WRITE (I02, 90002) 01070916
111: WRITE (I02, 90006) 01080916
112: WRITE (I02, 90007) 01090916
113: WRITE (I02, 90008) ZVERS, ZVERSD 01100916
114: WRITE (I02, 90009) ZPROG, ZPROG 01110916
115: WRITE (I02, 90010) ZDATE, ZCOMPL 01120916
116: CBE** ********************** BBCHED0A **********************************01130916
117: C***** 01140916
118: WRITE(NUVI,43200) 01150916
119: 43200 FORMAT(1H , / 30H INQU3 - (432) INQUIRE BY UNIT// 01160916
120: 1 29H DIRECT ACCESS FORMATTED FILE// 01170916
121: 2 19H ANS REF. - 12.10.3) 01180916
122: CBB** ********************** BBCHED0B **********************************01190916
123: C**** WRITE DETAIL REPORT HEADERS 01200916
124: C**** 01210916
125: WRITE (I02,90004) 01220916
126: WRITE (I02,90004) 01230916
127: WRITE (I02,90013) 01240916
128: WRITE (I02,90014) 01250916
129: WRITE (I02,90015) IVTOTL 01260916
130: CBE** ********************** BBCHED0B **********************************01270916
131: C***** 01280916
132: C***** OPEN FILE 01290916
133: OPEN(UNIT=IOVI, ACCESS='DIRECT', RECL=MVI, FORM='FORMATTED', 01300916
134: 1 BLANK='NULL') 01310916
135: C***** 01320916
136: C***** TEST 1 - FIRST INQUIRE (AFTER OPEN) 01330916
137: IVTNUM = 1 01340916
138: INQUIRE(UNIT=IOVI, EXIST=AVB, OPENED=BVB, NUMBER=JVI, 01350916
139: 1 ACCESS=B10VK, DIRECT=D10VK, RECL=KVI, NEXTREC=LVI, 01360916
140: 2 FORM=E11VK, FORMATTED=F10VK, BLANK=H10VK, ERR=20014, 01370916
141: 3 IOSTAT=NVI) 01380916
142: C***** 01390916
143: IF (NVI .NE. 0) GO TO 20010 01400916
144: IF (.NOT. AVB) GO TO 20010 01410916
145: IF (.NOT. BVB) GO TO 20010 01420916
146: IF (JVI .NE. IOVI) GO TO 20010 01430916
147: IF (B10VK .NE. 'DIRECT') GO TO 20010 01440916
148: IF (D10VK .NE. 'YES') GO TO 20010 01450916
149: IF (KVI .NE. MVI) GO TO 20010 01460916
150: IF (LVI .NE. 1) GO TO 20010 01470916
151: IF (E11VK .NE. 'FORMATTED') GO TO 20010 01480916
152: IF (F10VK .NE. 'YES' ) GO TO 20010 01490916
153: IF (H10VK .NE. 'NULL') GO TO 20010 01500916
154: WRITE (NUVI, 80002) IVTNUM 01510916
155: IVPASS = IVPASS + 1 01520916
156: GO TO 0011 01530916
157: 20014 CONTINUE 01540916
158: WRITE (NUVI, 20015) IVTNUM 01550916
159: 20015 FORMAT (1H ,2X,I3,4X,5H FAIL,12X, 01560916
160: 1 46HERROR IN EXECUTION OF INQUIRE STATEMENT (ERR=)/) 01570916
161: GO TO 20016 01580916
162: 20010 CONTINUE 01590916
163: WRITE (NUVI, 20011) IVTNUM 01600916
164: 20011 FORMAT(1H ,2X,I3,4X,5H FAIL,12X, 01610916
165: 1 29HERROR IN AN INQUIRE SPECIFIER/) 01620916
166: 20016 IVFAIL = IVFAIL + 1 01630916
167: WRITE (NUVI, 20012) NVI,AVB,BVB,JVI,B10VK,D10VK, 01640916
168: 1 KVI,LVI,E11VK,F10VK,H10VK 01650916
169: 20012 FORMAT (1H ,16X,10HCOMPUTED: ,7HIOSTAT=,I1,8H, EXIST=,L1, 01660916
170: 1 9H ,OPENED=,L1,9H, NUMBER=,I4,1H,/ 01670916
171: 2 1H ,26X,7HACCESS=,A10,9H, DIRECT=,A3,7H, RECL=, 01680916
172: 3 I4,1H,/1H ,26X,8HNEXTREC=,I4,7H, FORM=, 01690916
173: 4 A9,1H,/1H ,26X,10HFORMATTED=,A3,8H, BLANK=,A4) 01700916
174: WRITE (NUVI, 20013) IOVI,MVI 01710916
175: 20013 FORMAT (1H ,16X,10HCORRECT: ,19HIOSTAT=0, EXIST=T, , 01720916
176: 1 17HOPENED=T, NUMBER=,I4,1H,/ 01730916
177: 2 1H ,26X,32HACCESS=DIRECT, DIRECT=YES, RECL=, 01740916
178: 3 I4,1H,/1H ,26X,26HNEXTREC=1, FORM=FORMATTED,/ 01750916
179: 4 1H ,26X,25HFORMATTED=YES, BLANK=NULL) 01760916
180: 0011 CONTINUE 01770916
181: C***** 01780916
182: CLOSE(UNIT=IOVI, STATUS='DELETE') 01790916
183: C***** 01800916
184: CBB** ********************** BBCSUM0 **********************************01810916
185: C**** WRITE OUT TEST SUMMARY 01820916
186: C**** 01830916
187: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 01840916
188: WRITE (I02, 90004) 01850916
189: WRITE (I02, 90014) 01860916
190: WRITE (I02, 90004) 01870916
191: WRITE (I02, 90020) IVPASS 01880916
192: WRITE (I02, 90022) IVFAIL 01890916
193: WRITE (I02, 90024) IVDELE 01900916
194: WRITE (I02, 90026) IVINSP 01910916
195: WRITE (I02, 90028) IVTOTN, IVTOTL 01920916
196: CBE** ********************** BBCSUM0 **********************************01930916
197: CBB** ********************** BBCFOOT0 **********************************01940916
198: C**** WRITE OUT REPORT FOOTINGS 01950916
199: C**** 01960916
200: WRITE (I02,90016) ZPROG, ZPROG 01970916
201: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 01980916
202: WRITE (I02,90019) 01990916
203: CBE** ********************** BBCFOOT0 **********************************02000916
204: CBB** ********************** BBCFMT0A **********************************02010916
205: C**** FORMATS FOR TEST DETAIL LINES 02020916
206: C**** 02030916
207: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 02040916
208: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 02050916
209: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 02060916
210: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 02070916
211: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 02080916
212: 1I6,/,1H ,15X,10HCORRECT= ,I6) 02090916
213: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02100916
214: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 02110916
215: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02120916
216: 1A21,/,1H ,16X,10HCORRECT= ,A21) 02130916
217: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 02140916
218: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 02150916
219: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 02160916
220: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 02170916
221: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 02180916
222: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 02190916
223: 80050 FORMAT (1H ,48X,A31) 02200916
224: CBE** ********************** BBCFMT0A **********************************02210916
225: CBB** ********************** BBCFMT0B **********************************02220916
226: C**** FORMAT STATEMENTS FOR PAGE HEADERS 02230916
227: C**** 02240916
228: 90002 FORMAT (1H1) 02250916
229: 90004 FORMAT (1H ) 02260916
230: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 02270916
231: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 02280916
232: 90008 FORMAT (1H ,21X,A13,A17) 02290916
233: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 02300916
234: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 02310916
235: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 02320916
236: 1 7X,7HREMARKS,24X) 02330916
237: 90014 FORMAT (1H ,46H----------------------------------------------, 02340916
238: 1 33H---------------------------------) 02350916
239: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 02360916
240: C**** 02370916
241: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 02380916
242: C**** 02390916
243: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 02400916
244: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 02410916
245: 1 A13) 02420916
246: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 02430916
247: C**** 02440916
248: C**** FORMAT STATEMENTS FOR RUN SUMMARY 02450916
249: C**** 02460916
250: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 02470916
251: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 02480916
252: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 02490916
253: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 02500916
254: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 02510916
255: CBE** ********************** BBCFMT0B **********************************02520916
256: C***** 02530916
257: C***** END OF TEST SEGMENT 432 02540916
258: STOP 02550916
259: END 02560916
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.