![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM914.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 FM914.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***********************************************************************00010914
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***** FM914 00020914
6: C***** INQU1 - (430) 00030914
7: C***** 00040914
8: C***********************************************************************00050914
9: C***** GENERAL PURPOSE ANS REF 00060914
10: C***** TEST INQUIRE BY UNIT ON SEQUENTIAL, FORMATTED FILES 12.10.3 00070914
11: C***** 00080914
12: C***** THE TESTS IN THIS UNIT ARE ONLY PERFORMED ON A 00090914
13: C***** UNIT THAT IS CONNECTED FOR SEQUENTIAL, FORMATTED ACCESS 00100914
14: C***** (ANS REF. 12.2.4.1 AND 12.9.5.2) 00110914
15: C***** THIS TEST PERFORMS AN EXPLICIT OPEN, AND PERFORMS 00120914
16: C***** A CLOSE WITH STATUS='DELETE' AT THE END OF THE SEGMENT. 00130914
17: C***********************************************************************00140914
18: CBB** ********************** BBCCOMNT **********************************00150914
19: C**** 00160914
20: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00170914
21: C**** VERSION 2.0 00180914
22: C**** 00190914
23: C**** 00200914
24: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00210914
25: C**** GENERAL SERVICES ADMINISTRATION 00220914
26: C**** FEDERAL SOFTWARE TESTING CENTER 00230914
27: C**** 5203 LEESBURG PIKE, SUITE 1100 00240914
28: C**** FALLS CHURCH, VA. 22041 00250914
29: C**** 00260914
30: C**** (703) 756-6153 00270914
31: C**** 00280914
32: CBE** ********************** BBCCOMNT **********************************00290914
33: LOGICAL AVB, BVB 00300914
34: CHARACTER*10 B10VK, C10VK, E11VK*11, F10VK, H10VK 00310914
35: CBB** ********************** BBCINITA **********************************00320914
36: C**** SPECIFICATION STATEMENTS 00330914
37: C**** 00340914
38: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00350914
39: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00360914
40: CBE** ********************** BBCINITA **********************************00370914
41: CBB** ********************** BBCINITB **********************************00380914
42: C**** INITIALIZE SECTION 00390914
43: DATA ZVERS, ZVERSD, ZDATE 00400914
44: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00410914
45: DATA ZCOMPL, ZNAME, ZTAPE 00420914
46: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00430914
47: DATA ZPROJ, ZTAPED, ZPROG 00440914
48: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00450914
49: DATA REMRKS /' '/ 00460914
50: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00470914
51: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00480914
52: C**** 00490914
53: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00500914
54: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00510914
55: CZ03 ZPROG = 'PROGRAM NAME' 00520914
56: ZDATE = '07-Nov-85 ' *RP
57: ZCOMPL = 'CCI 5.2 ' *RP
58: ZPROJ = 'TC-85- -410' *RP
59: ZNAME = ' ' *RP
60: ZTAPE = ' ' *RP
61: ZTAPED = '850703 ' *RP
62: C 00590914
63: IVPASS = 0 00600914
64: IVFAIL = 0 00610914
65: IVDELE = 0 00620914
66: IVINSP = 0 00630914
67: IVTOTL = 0 00640914
68: IVTOTN = 0 00650914
69: ICZERO = 0 00660914
70: C 00670914
71: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00680914
72: I01 = 05 00690914
73: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00700914
74: I02 = 06 00710914
75: C 00720914
76: I01 = 5 00730914
77: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00740914
78: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00750914
79: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00760914
80: C 00770914
81: I02 = 6 00780914
82: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00790914
83: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00800914
84: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00810914
85: C 00820914
86: CBE** ********************** BBCINITB **********************************00830914
87: C***** 00840914
88: C I08 CONTAINS THE UNIT NUMBER FOR A SEQUENTIAL FORMATTED FILE. 00850914
89: I08 = 14 00860914
90: OPEN(UNIT=I08,ACCESS='SEQUENTIAL',FORM='FORMATTED') 00870914
91: C SPECIFYING I08 = NN OVERRIDES THE DEFAULT I08 = 14. 00880914
92: C***** 00890914
93: C***** THE FOLLOWING STATEMENT MUST BE CHANGED IF 00900914
94: C***** THE UNIT GIVEN IS NOT CAPABLE OF BEING OPENED AS A 00910914
95: C***** SEQUENTIAL, FORMATTED FILE. 00920914
96: C***** 00930914
97: NUVI = I02 00940914
98: IMVI = I08 00950914
99: ZPROG = 'FM914' 00960914
100: IVTOTL = 1 00970914
101: CBB** ********************** BBCHED0A **********************************00980914
102: C**** 00990914
103: C**** WRITE REPORT TITLE 01000914
104: C**** 01010914
105: WRITE (I02, 90002) 01020914
106: WRITE (I02, 90006) 01030914
107: WRITE (I02, 90007) 01040914
108: WRITE (I02, 90008) ZVERS, ZVERSD 01050914
109: WRITE (I02, 90009) ZPROG, ZPROG 01060914
110: WRITE (I02, 90010) ZDATE, ZCOMPL 01070914
111: CBE** ********************** BBCHED0A **********************************01080914
112: C***** 01090914
113: WRITE(NUVI,43000) 01100914
114: 43000 FORMAT(1H , / 30H INQU1 - (430) INQUIRE BY UNIT// 01110914
115: 1 45H SEQUENTIAL FORMATTED FILE, CONNECTED BY OPEN// 01120914
116: 2 19H ANS REF. - 12.10.3) 01130914
117: CBB** ********************** BBCHED0B **********************************01140914
118: C**** WRITE DETAIL REPORT HEADERS 01150914
119: C**** 01160914
120: WRITE (I02,90004) 01170914
121: WRITE (I02,90004) 01180914
122: WRITE (I02,90013) 01190914
123: WRITE (I02,90014) 01200914
124: WRITE (I02,90015) IVTOTL 01210914
125: CBE** ********************** BBCHED0B **********************************01220914
126: C***** 01230914
127: C***** OPEN FILE 01240914
128: C***** 01250914
129: OPEN(UNIT=IMVI, ACCESS='SEQUENTIAL', FORM='FORMATTED', 01260914
130: 1 BLANK='NULL') 01270914
131: C***** 01280914
132: CT001* TEST 1 - FIRST INQUIRE (AFTER OPEN) 01290914
133: IVTNUM = 1 01300914
134: INQUIRE(UNIT=IMVI, EXIST=AVB, OPENED=BVB, NUMBER=JVI, 01310914
135: 1 ACCESS=B10VK, SEQUENTIAL=C10VK, FORM=E11VK, 01320914
136: 2 FORMATTED=F10VK, BLANK=H10VK, ERR=20011, IOSTAT=KVI) 01330914
137: IF (KVI .NE. 0) GO TO 20010 01340914
138: IF (.NOT. AVB) GO TO 20010 01350914
139: IF (.NOT. BVB) GO TO 20010 01360914
140: IF (JVI .NE. IMVI) GO TO 20010 01370914
141: IF (B10VK .NE. 'SEQUENTIAL') GO TO 20010 01380914
142: IF (C10VK .NE. 'YES') GO TO 20010 01390914
143: IF (E11VK .NE. 'FORMATTED') GO TO 20010 01400914
144: IF (F10VK .NE. 'YES' ) GO TO 20010 01410914
145: IF (H10VK .NE. 'NULL') GO TO 20010 01420914
146: WRITE (NUVI, 80002) IVTNUM 01430914
147: IVPASS = IVPASS + 1 01440914
148: GO TO 0011 01450914
149: 20011 CONTINUE 01460914
150: WRITE (NUVI, 20021) IVTNUM 01470914
151: 20021 FORMAT (1H ,2X,I3,4X,5H FAIL,12X, 01480914
152: 1 46HERROR IN EXECUTION OF INQUIRE STATEMENT (ERR=)/) 01490914
153: GO TO 20012 01500914
154: 20010 CONTINUE 01510914
155: WRITE (NUVI, 20020) IVTNUM 01520914
156: 20020 FORMAT(1H ,2X,I3,4X,5H FAIL,12X, 01530914
157: 1 29HERROR IN AN INQUIRE SPECIFIER/) 01540914
158: 20012 CONTINUE 01550914
159: IVFAIL = IVFAIL + 1 01560914
160: WRITE (NUVI, 20030) KVI,AVB,BVB,JVI,B10VK,C10VK,E11VK, 01570914
161: 1 F10VK,H10VK 01580914
162: 20030 FORMAT (1H ,16X,10HCOMPUTED: ,7HIOSTAT=,I1,8H, EXIST=,L1, 01590914
163: 1 9H ,OPENED=,L1,9H, NUMBER=,I4,1H,/ 01600914
164: 2 1H ,26X,7HACCESS=,A10,13H, SEQUENTIAL=,A3,7H, FORM=, 01610914
165: 3 A9,1H,/1H ,26X,10HFORMATTED=,A3,8H, BLANK=,A4) 01620914
166: WRITE (NUVI, 20040) IMVI 01630914
167: 20040 FORMAT (1H ,16X,10HCORRECT: ,19HIOSTAT=0, EXIST=T, , 01640914
168: 1 17HOPENED=T, NUMBER=,I4,1H,/ 01650914
169: 2 1H ,26X,40HACCESS=SEQUENTIAL, SEQUENTIAL=YES, FORM=, 01660914
170: 3 10HFORMATTED,/1H ,26X,25HFORMATTED=YES, BLANK=NULL) 01670914
171: 0011 CONTINUE 01680914
172: C***** 01690914
173: REWIND IMVI 01700914
174: CLOSE(UNIT=IMVI, STATUS='DELETE') 01710914
175: CBB** ********************** BBCSUM0 **********************************01720914
176: C**** WRITE OUT TEST SUMMARY 01730914
177: C**** 01740914
178: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 01750914
179: WRITE (I02, 90004) 01760914
180: WRITE (I02, 90014) 01770914
181: WRITE (I02, 90004) 01780914
182: WRITE (I02, 90020) IVPASS 01790914
183: WRITE (I02, 90022) IVFAIL 01800914
184: WRITE (I02, 90024) IVDELE 01810914
185: WRITE (I02, 90026) IVINSP 01820914
186: WRITE (I02, 90028) IVTOTN, IVTOTL 01830914
187: CBE** ********************** BBCSUM0 **********************************01840914
188: CBB** ********************** BBCFOOT0 **********************************01850914
189: C**** WRITE OUT REPORT FOOTINGS 01860914
190: C**** 01870914
191: WRITE (I02,90016) ZPROG, ZPROG 01880914
192: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 01890914
193: WRITE (I02,90019) 01900914
194: CBE** ********************** BBCFOOT0 **********************************01910914
195: CBB** ********************** BBCFMT0A **********************************01920914
196: C**** FORMATS FOR TEST DETAIL LINES 01930914
197: C**** 01940914
198: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 01950914
199: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 01960914
200: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 01970914
201: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 01980914
202: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 01990914
203: 1I6,/,1H ,15X,10HCORRECT= ,I6) 02000914
204: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02010914
205: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 02020914
206: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02030914
207: 1A21,/,1H ,16X,10HCORRECT= ,A21) 02040914
208: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 02050914
209: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 02060914
210: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 02070914
211: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 02080914
212: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 02090914
213: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 02100914
214: 80050 FORMAT (1H ,48X,A31) 02110914
215: CBE** ********************** BBCFMT0A **********************************02120914
216: CBB** ********************** BBCFMAT1 **********************************02130914
217: C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 02140914
218: C**** 02150914
219: 80031 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02160914
220: 1D17.10,/,1H ,16X,10HCORRECT= ,D17.10) 02170914
221: 80033 FORMAT (1H ,16X,10HCOMPUTED= ,D17.10,10X,A31) 02180914
222: 80035 FORMAT (1H ,16X,10HCORRECT= ,D17.10,10X,A31) 02190914
223: 80037 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 02200914
224: 80039 FORMAT (1H ,16X,10HCORRECT= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 02210914
225: 80041 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 02220914
226: 80043 FORMAT (1H ,16X,10HCORRECT= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 02230914
227: 80045 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 02240914
228: 11H(,F12.5,2H, ,F12.5,1H)/,1H ,16X,10HCORRECT= , 02250914
229: 21H(,F12.5,2H, ,F12.5,1H)) 02260914
230: CBE** ********************** BBCFMAT1 **********************************02270914
231: CBB** ********************** BBCFMT0B **********************************02280914
232: C**** FORMAT STATEMENTS FOR PAGE HEADERS 02290914
233: C**** 02300914
234: 90002 FORMAT (1H1) 02310914
235: 90004 FORMAT (1H ) 02320914
236: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 02330914
237: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 02340914
238: 90008 FORMAT (1H ,21X,A13,A17) 02350914
239: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 02360914
240: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 02370914
241: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 02380914
242: 1 7X,7HREMARKS,24X) 02390914
243: 90014 FORMAT (1H ,46H----------------------------------------------, 02400914
244: 1 33H---------------------------------) 02410914
245: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 02420914
246: C**** 02430914
247: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 02440914
248: C**** 02450914
249: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 02460914
250: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 02470914
251: 1 A13) 02480914
252: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 02490914
253: C**** 02500914
254: C**** FORMAT STATEMENTS FOR RUN SUMMARY 02510914
255: C**** 02520914
256: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 02530914
257: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 02540914
258: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 02550914
259: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 02560914
260: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 02570914
261: CBE** ********************** BBCFMT0B **********************************02580914
262: C***** 02590914
263: C***** END OF TEST SEGMENT 914 02600914
264: STOP 02610914
265: END 02620914
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.