![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM405.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 FM405.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***********************************************************************00010405
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 00020405
6: C***** FM405 00030405
7: C***** INTER1 - (390) 00040405
8: C***** 00050405
9: C***********************************************************************00060405
10: C***** TESTING OF INTERNAL FILES - SUBSET REF00070405
11: C***** USING READ 12.2.5 00080405
12: C***** 00090405
13: CBB** ********************** BBCCOMNT **********************************00100405
14: C**** 00110405
15: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00120405
16: C**** VERSION 2.0 00130405
17: C**** 00140405
18: C**** 00150405
19: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00160405
20: C**** GENERAL SERVICES ADMINISTRATION 00170405
21: C**** FEDERAL SOFTWARE TESTING CENTER 00180405
22: C**** 5203 LEESBURG PIKE, SUITE 1100 00190405
23: C**** FALLS CHURCH, VA. 22041 00200405
24: C**** 00210405
25: C**** (703) 756-6153 00220405
26: C**** 00230405
27: CBE** ********************** BBCCOMNT **********************************00240405
28: C***** 00250405
29: C***** S P E C I F I C A T I O N S SEGMENT 390 00260405
30: C***** 00270405
31: LOGICAL AVB, BVB, CVB 00280405
32: CHARACTER A1VK*1, A4VK*4, B1VK*1, B4VK*4, A38VK*38, B381K(4)*38 00290405
33: CHARACTER A5VK*5, A8VK*8, B5VK*5, B8VK*8 00300405
34: CBB** ********************** BBCINITA **********************************00310405
35: C**** SPECIFICATION STATEMENTS 00320405
36: C**** 00330405
37: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00340405
38: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00350405
39: CBE** ********************** BBCINITA **********************************00360405
40: CBB** ********************** BBCINITB **********************************00370405
41: C**** INITIALIZE SECTION 00380405
42: DATA ZVERS, ZVERSD, ZDATE 00390405
43: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00400405
44: DATA ZCOMPL, ZNAME, ZTAPE 00410405
45: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00420405
46: DATA ZPROJ, ZTAPED, ZPROG 00430405
47: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00440405
48: DATA REMRKS /' '/ 00450405
49: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00460405
50: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00470405
51: C**** 00480405
52: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00490405
53: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00500405
54: CZ03 ZPROG = 'PROGRAM NAME' 00510405
55: ZDATE = '07-Nov-85 ' *RP
56: ZCOMPL = 'CCI 5.2 ' *RP
57: ZPROJ = 'TC-85- -410' *RP
58: ZNAME = ' ' *RP
59: ZTAPE = ' ' *RP
60: ZTAPED = '850703 ' *RP
61: C 00580405
62: IVPASS = 0 00590405
63: IVFAIL = 0 00600405
64: IVDELE = 0 00610405
65: IVINSP = 0 00620405
66: IVTOTL = 0 00630405
67: IVTOTN = 0 00640405
68: ICZERO = 0 00650405
69: C 00660405
70: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00670405
71: I01 = 05 00680405
72: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00690405
73: I02 = 06 00700405
74: C 00710405
75: I01 = 5 00720405
76: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00730405
77: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00740405
78: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00750405
79: C 00760405
80: I02 = 6 00770405
81: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00780405
82: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00790405
83: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00800405
84: C 00810405
85: CBE** ********************** BBCINITB **********************************00820405
86: C***** 00830405
87: EVS = 0.001 00840405
88: C***** 00850405
89: NUVI = I02 00860405
90: IVTOTL=15 00870405
91: ZPROG='FM405' 00880405
92: CBB** ********************** BBCHED0A **********************************00890405
93: C**** 00900405
94: C**** WRITE REPORT TITLE 00910405
95: C**** 00920405
96: WRITE (I02, 90002) 00930405
97: WRITE (I02, 90006) 00940405
98: WRITE (I02, 90007) 00950405
99: WRITE (I02, 90008) ZVERS, ZVERSD 00960405
100: WRITE (I02, 90009) ZPROG, ZPROG 00970405
101: WRITE (I02, 90010) ZDATE, ZCOMPL 00980405
102: CBE** ********************** BBCHED0A **********************************00990405
103: C***** 01000405
104: A38VK = '2.1 TEST 3 23.45E2 .TRUE. F ' 01010405
105: B381K(1) = ' 23 23.345 T ENDS ' 01020405
106: B381K(2) = ' 23.456 F 98 YOURS PROGRAMS ' 01030405
107: B381K(3) = ' 13.1234 13.1234E0 1312.34 ' 01040405
108: B381K(4) = ' 5.2345 56 5.2345 T TRUE 5.2345' 01050405
109: C***** 01060405
110: C***** HEADER FOR SEGMENT 390 01070405
111: C***** 01080405
112: WRITE(NUVI,39000) 01090405
113: 39000 FORMAT(/2X,44H INTER1 - (390) INTERNAL FILES -- USING READ 01100405
114: 1 //21H SUBSET REF. - 12.2.5) 01110405
115: CBB** ********************** BBCHED0B **********************************01120405
116: C**** WRITE DETAIL REPORT HEADERS 01130405
117: C**** 01140405
118: WRITE (I02,90004) 01150405
119: WRITE (I02,90004) 01160405
120: WRITE (I02,90013) 01170405
121: WRITE (I02,90014) 01180405
122: WRITE (I02,90015) IVTOTL 01190405
123: CBE** ********************** BBCHED0B **********************************01200405
124: C****** 01210405
125: C************************************************************* 01220405
126: CT001* TEST 1 CHARACTER VARIABLE, INTEGER 01230405
127: IVTNUM=1 01240405
128: READ(A38VK,39001) IVI 01250405
129: 39001 FORMAT(8X,I2) 01260405
130: KVI = 3 01270405
131: IVCOMP=0 01280405
132: IF (IVI .EQ. KVI) IVCOMP=1 01290405
133: IF (IVCOMP-1) 20010,10010,20010 01300405
134: 10010 IVPASS=IVPASS + 1 01310405
135: WRITE (NUVI,80002) IVTNUM 01320405
136: GO TO 0011 01330405
137: 20010 IVFAIL=IVFAIL+1 01340405
138: WRITE (NUVI,80008) IVTNUM 01350405
139: WRITE (NUVI,80024) IVI 01360405
140: WRITE (NUVI,80026) KVI 01370405
141: 0011 CONTINUE 01380405
142: C***** 01390405
143: CT002* TEST 2 REAL, FW.D 01400405
144: IVTNUM=2 01410405
145: READ(A38VK,39004) AVS 01420405
146: 39004 FORMAT(F3.1) 01430405
147: BVS = 2.1 01440405
148: IVCOMP=0 01450405
149: IF (AVS .LT. BVS + EVS .AND. AVS .GT. BVS - EVS) IVCOMP=1 01460405
150: IF (IVCOMP-1) 20020,10020,20020 01470405
151: 10020 IVPASS=IVPASS + 1 01480405
152: WRITE(NUVI,80002)IVTNUM 01490405
153: GO TO 0021 01500405
154: 20020 IVFAIL=IVFAIL+1 01510405
155: WRITE(NUVI,80008) IVTNUM 01520405
156: WRITE (NUVI,80028) AVS 01530405
157: WRITE (NUVI,80030) BVS 01540405
158: 0021 CONTINUE 01550405
159: CT003* TEST 3 REAL, EW.D 01560405
160: IVTNUM=3 01570405
161: READ(A38VK,39006) AVS 01580405
162: 39006 FORMAT(11X,E7.2) 01590405
163: BVS = 23.45E2 01600405
164: IVCOMP=0 01610405
165: IF (AVS .LT. BVS + EVS .AND. AVS .GT. BVS - EVS) IVCOMP=1 01620405
166: IF (IVCOMP-1) 20030,10030,20030 01630405
167: 10030 IVPASS=IVPASS + 1 01640405
168: WRITE(NUVI,80002)IVTNUM 01650405
169: GO TO 0031 01660405
170: 20030 IVFAIL=IVFAIL + 1 01670405
171: WRITE(NUVI,80008)IVTNUM 01680405
172: WRITE (NUVI,80028) AVS 01690405
173: WRITE (NUVI,80030) BVS 01700405
174: 0031 CONTINUE 01710405
175: CT004* TEST 4 SAME REAL, EW.DEN 01720405
176: IVTNUM=4 01730405
177: IVCOMP=0 01740405
178: READ(A38VK,39008) CVS 01750405
179: 39008 FORMAT(10X,E8.2E2) 01760405
180: IF (CVS .LT. BVS + EVS .AND. CVS .GT. BVS - EVS) IVCOMP=1 01770405
181: IF (IVCOMP-1) 20040,10040,20040 01780405
182: 10040 IVPASS=IVPASS+1 01790405
183: WRITE(NUVI,80002) IVTNUM 01800405
184: GO TO 0041 01810405
185: 20040 IVFAIL=IVFAIL + 1 01820405
186: WRITE(NUVI,80008)IVTNUM 01830405
187: WRITE (NUVI,80028) CVS 01840405
188: WRITE (NUVI,80030) BVS 01850405
189: 0041 CONTINUE 01860405
190: CT005* TEST 5 LOGICAL, WITH PERIODS 01870405
191: IVTNUM=5 01880405
192: READ(A38VK,39010) AVB 01890405
193: 39010 FORMAT(19X,L6) 01900405
194: IVCOMP=0 01910405
195: IF (AVB) IVCOMP=1 01920405
196: IF (IVCOMP-1) 20050,10050,20050 01930405
197: 10050 IVPASS=IVPASS+1 01940405
198: WRITE (NUVI,80002) IVTNUM 01950405
199: GO TO 0051 01960405
200: 20050 IVFAIL=IVFAIL + 1 01970405
201: WRITE (NUVI,80008) IVTNUM 01980405
202: 70050 FORMAT (1H ,16X,10HCOMPUTED: ,L1, 01990405
203: 1 /17X,10HCORRECT: ,1HT) 02000405
204: WRITE (NUVI,70050) AVB 02010405
205: 0051 CONTINUE 02020405
206: CT006* TEST 6 LOGICAL, WITHOUT PERIODS 02030405
207: IVTNUM=6 02040405
208: READ(A38VK,39012) CVB 02050405
209: 39012 FORMAT(25X,L3) 02060405
210: IVCOMP=0 02070405
211: IF (.NOT. CVB) IVCOMP=1 02080405
212: IF (IVCOMP-1) 20060,10060,20060 02090405
213: 10060 IVPASS=IVPASS+1 02100405
214: WRITE (NUVI,80002) IVTNUM 02110405
215: GO TO 0061 02120405
216: 20060 IVFAIL=IVFAIL+1 02130405
217: WRITE (NUVI,80008) IVTNUM 02140405
218: 70060 FORMAT (1H ,16X,10HCOMPUTED: ,L1) 02150405
219: WRITE (NUVI,70060) CVB 02160405
220: 70061 FORMAT (1H ,16X,10HCORRECT: ,1HF) 02170405
221: WRITE (NUVI,70061) 02180405
222: 0061 CONTINUE 02190405
223: CT007* TEST 7 CHARACTER, A 02200405
224: IVTNUM=7 02210405
225: READ(A38VK,39014) A1VK 02220405
226: 39014 FORMAT(9X,A1) 02230405
227: B1VK = '3' 02240405
228: IVCOMP=0 02250405
229: IF (A1VK .EQ. B1VK) IVCOMP=1 02260405
230: IF (IVCOMP-1) 20070,10070,20070 02270405
231: 10070 IVPASS=IVPASS+1 02280405
232: WRITE (NUVI,80002) IVTNUM 02290405
233: GO TO 0071 02300405
234: 20070 IVFAIL=IVFAIL+1 02310405
235: WRITE (NUVI,80008) IVTNUM 02320405
236: WRITE (NUVI,80020) A1VK 02330405
237: WRITE (NUVI,80022) B1VK 02340405
238: 0071 CONTINUE 02350405
239: CT008* TEST 8 CHARACTER, AW 02360405
240: IVTNUM=8 02370405
241: READ(A38VK,39016) A4VK 02380405
242: 39016 FORMAT(4X,A4) 02390405
243: B4VK = 'TEST' 02400405
244: IVCOMP=0 02410405
245: IF (A4VK .EQ. B4VK) IVCOMP=1 02420405
246: IF (IVCOMP-1) 20080,10080,20080 02430405
247: 10080 IVPASS=IVPASS+1 02440405
248: WRITE (NUVI,80002) IVTNUM 02450405
249: GO TO 0081 02460405
250: 20080 IVFAIL=IVFAIL + 1 02470405
251: WRITE (NUVI,80008) IVTNUM 02480405
252: WRITE (NUVI,80020) A4VK 02490405
253: WRITE (NUVI,80022) B4VK 02500405
254: 0081 CONTINUE 02510405
255: CT009* TEST 9 CHARACTER, EXTRA BLANKS 02520405
256: IVTNUM = 9 02530405
257: READ(A38VK,39018) A4VK 02540405
258: 39018 FORMAT(11X,A7) 02550405
259: B4VK = '45E2' 02560405
260: IVCOMP=0 02570405
261: IF (A4VK .EQ. B4VK) IVCOMP=1 02580405
262: IF (IVCOMP-1) 20090,10090,20090 02590405
263: 10090 IVPASS=IVPASS+1 02600405
264: WRITE (NUVI,80002) IVTNUM 02610405
265: GO TO 0091 02620405
266: 20090 IVFAIL=IVFAIL+1 02630405
267: WRITE (NUVI,80008) IVTNUM 02640405
268: WRITE (NUVI,80020) A4VK 02650405
269: WRITE (NUVI,80022) B4VK 02660405
270: 0091 CONTINUE 02670405
271: CT010* TEST 10 CHARACTER, NO PADDING 02680405
272: IVTNUM = 10 02690405
273: READ(A38VK,39020) A4VK 02700405
274: 39020 FORMAT(A3) 02710405
275: IVCOMP=0 02720405
276: B4VK = '2.1 ' 02730405
277: IF (A4VK .EQ. B4VK) IVCOMP=1 02740405
278: IF (IVCOMP-1) 20100,10100,20100 02750405
279: 10100 IVPASS=IVPASS+1 02760405
280: WRITE (NUVI,80002) IVTNUM 02770405
281: GO TO 0101 02780405
282: 20100 IVFAIL=IVFAIL + 1 02790405
283: WRITE (NUVI,80008) IVTNUM 02800405
284: WRITE (NUVI,80020) A4VK 02810405
285: WRITE (NUVI,80022) B4VK 02820405
286: 0101 CONTINUE 02830405
287: CT011* TEST 11 CHECK TO SEE IF SECOND VARIABLE 02840405
288: C***** START READING JUST AFTER FIRST VARIABLE 02850405
289: IVTNUM = 11 02860405
290: READ(A38VK,39022) A4VK, A1VK 02870405
291: 39022 FORMAT(1X,A,A) 02880405
292: B4VK = '.1 T' 02890405
293: B1VK = 'E' 02900405
294: IVCOMP=0 02910405
295: IF (A4VK .EQ. B4VK .AND. A1VK .EQ. B1VK) IVCOMP=1 02920405
296: IF (IVCOMP-1) 20110,10110,20110 02930405
297: 10110 IVPASS=IVPASS+1 02940405
298: WRITE (NUVI,80002) IVTNUM 02950405
299: GO TO 0111 02960405
300: 20110 IVFAIL=IVFAIL + 1 02970405
301: WRITE (NUVI,80008) IVTNUM 02980405
302: WRITE (NUVI,80020) A4VK,A1VK 02990405
303: WRITE (NUVI,80022) B4VK,B1VK 03000405
304: 0111 CONTINUE 03010405
305: CT012* TEST 12 MIXED TYPES, ARRAY ELEMENT 03020405
306: IVTNUM = 12 03030405
307: READ(B381K(1),39024) IVI, AVS, AVB, A4VK 03040405
308: 39024 FORMAT(I5,1X,F8.3,1X,L5,1X,A4) 03050405
309: KVI = 23 03060405
310: BVS = 23.345 03070405
311: B4VK = 'ENDS' 03080405
312: IF (IVI .EQ. KVI .AND. 03090405
313: 1 AVS .LT. BVS + EVS .AND. AVS .GT. BVS - EVS .AND. 03100405
314: 2 AVB .AND. 03110405
315: 3 A4VK .EQ. B4VK) GOTO 39026 03120405
316: IVFAIL=IVFAIL + 1 03130405
317: 70120 FORMAT (1H ,2X,I3,4X,7H FAIL ,16HMIXED DATA TYPES,16X, 03140405
318: 1 28HCOMPLEX IF - SEE SOURCE CODE) 03150405
319: WRITE(NUVI,70120)IVTNUM 03160405
320: 70121 FORMAT (1H ,16X,10HCOMPUTED: ,I5,2X,F10.5,2X,L1,2X,A4) 03170405
321: WRITE (NUVI,70121) IVI,AVS,AVB,A4VK 03180405
322: 70122 FORMAT (1H ,16X,10HCORRECT: , 03190405
323: 1 5H 23,2X,10H 23.34500,2X,1HT,2X,4HENDS) 03200405
324: WRITE (NUVI,70122) 03210405
325: GOTO 39027 03220405
326: 39026 IVPASS=IVPASS+1 03230405
327: WRITE(NUVI,80002) IVTNUM 03240405
328: 39027 CONTINUE 03250405
329: CT013* TEST 13 MIXED TYPES, ARRAY ELEMENT 03260405
330: C***** WITH RUN TIME EXPRESSION AS SUBSCRIPT03270405
331: IVTNUM = 13 03280405
332: KVI = 1 03290405
333: READ(B381K(KVI*2),39028) AVS, AVB, IVI, A5VK, A8VK 03300405
334: 39028 FORMAT(F7.3,1X,L5,1X,I5,1X,A5,1X,A8) 03310405
335: BVS = 23.456 03320405
336: KVI = 98 03330405
337: B5VK = 'YOURS' 03340405
338: B8VK = 'PROGRAMS' 03350405
339: IF (AVS .LT. BVS + EVS .AND. AVS .GT. BVS - EVS .AND. 03360405
340: 1 .NOT. AVB .AND. 03370405
341: 2 IVI .EQ. KVI .AND. 03380405
342: 3 A5VK .EQ. B5VK .AND. 03390405
343: 4 A8VK .EQ. B8VK) GOTO 39030 03400405
344: IVFAIL=IVFAIL+1 03410405
345: 70130 FORMAT (1H ,2X,I3,4X,7H FAIL ,16HMIXED DATA TYPES,16X, 03420405
346: 1 28HCOMPLEX IF - SEE SOURCE CODE) 03430405
347: WRITE (NUVI,70130) IVTNUM 03440405
348: 70131 FORMAT (1H ,16X,10HCOMPUTED: , 03450405
349: 1 F7.3,2X,L1,2X,I5,2X,A5,2X,A8) 03460405
350: WRITE (NUVI,70131) AVS,AVB,IVI,A5VK,A8VK 03470405
351: 70132 FORMAT (1H ,16X,10HCORRECT: , 03480405
352: 1 7H 23.456,2X,1HF,2X,5H 98,2X,5HYOURS,2X,8HPROGRAMS) 03490405
353: WRITE (NUVI,70132) 03500405
354: GOTO 39031 03510405
355: 39030 IVPASS=IVPASS + 1 03520405
356: WRITE(NUVI,80002) IVTNUM 03530405
357: 39031 CONTINUE 03540405
358: CT014* TEST 14 MIXED TYPES, ALSO BN AND BZ 03550405
359: C***** 03560405
360: IVTNUM = 14 03570405
361: READ(B381K(4),39032) AVS, IVI, BVS, AVB, A4VK, CVS 03580405
362: 39032 FORMAT(F9.4,1X,I4,1X,BN,F9.4,1X,L1,1X,A4,1X,BZ,F6.4) 03590405
363: DVS = 5.2345 03600405
364: KVI = 56 03610405
365: BVB = .TRUE. 03620405
366: B4VK = 'TRUE' 03630405
367: IF (AVS .LT. DVS + EVS .AND. AVS .GT. DVS - EVS .AND. 03640405
368: 1 IVI .EQ. KVI .AND. 03650405
369: 2 BVS .LT. DVS + EVS .AND. BVS .GT. DVS - EVS .AND. 03660405
370: 3 AVB .AND. 03670405
371: 4 A4VK .EQ. B4VK .AND. 03680405
372: 5 CVS .LT. DVS + EVS .AND. CVS .GT. DVS - EVS) GOTO 39034 03690405
373: IVFAIL=IVFAIL + 1 03700405
374: 70140 FORMAT (1H ,2X,I3,4X,7H FAIL ,16HMIXED DATA TYPES,16X, 03710405
375: 1 28HCOMPLEX IF - SEE SOURCE CODE) 03720405
376: WRITE(NUVI,70140) IVTNUM 03730405
377: 70141 FORMAT (1H ,16X,10HCOMPUTED: , 03740405
378: 1 F9.4,2X,I4,2X,F9.4,2X,L1,2X,A4,2X,F9.4) 03750405
379: WRITE (NUVI,70141) AVS,IVI,BVS,AVB,A4VK,CVS 03760405
380: 70142 FORMAT (1H ,16X,10HCORRECT: , 03770405
381: 2 9H 5.2345,2X,4H 56,2X,9H 5.2345,2X,1HT,2X,4HTRUE, 03780405
382: 3 2X,9H 5.2345) 03790405
383: WRITE (NUVI,70142) 03800405
384: GOTO 39035 03810405
385: 39034 IVPASS=IVPASS+1 03820405
386: WRITE(NUVI,80002) IVTNUM 03830405
387: 39035 CONTINUE 03840405
388: CT015* TEST 15 REAL VARIABLES WITH SCALING FACTOR 03850405
389: IVTNUM = 15 03860405
390: READ(B381K(3),39036) AVS, BVS, CVS 03870405
391: 39036 FORMAT(F9.5, 1X, E9.3, 1X, 2PF7.4) 03880405
392: DVS = 13.1234 03890405
393: IF (AVS .LT. DVS + EVS .AND. AVS .GT. DVS - EVS .AND. 03900405
394: 1 BVS .LT. DVS + EVS .AND. BVS .GT. DVS - EVS .AND. 03910405
395: 2 CVS .LT. DVS + EVS .AND. CVS .GT. DVS - EVS) GOTO 39038 03920405
396: IVFAIL=IVFAIL + 1 03930405
397: 70150 FORMAT (1H ,2X,I3,4X,7H FAIL ,16HREAL DATA TYPES,16X, 03940405
398: 1 28HCOMPLEX IF - SEE SOURCE CODE) 03950405
399: WRITE(NUVI,70150) IVTNUM 03960405
400: 70151 FORMAT (1H ,16X,10HCOMPUTED: ,F9.4,2X,F9.3,2X,F7.4) 03970405
401: WRITE (NUVI,70151) AVS,BVS,CVS 03980405
402: 70152 FORMAT (1H ,16X,10HCORRECT: , 03990405
403: 1 9H 13.1234,2X,9H 13.123,2X,7H13.1234) 04000405
404: WRITE (NUVI,70152) 04010405
405: GOTO 39039 04020405
406: 39038 IVPASS=IVPASS+1 04030405
407: WRITE(NUVI,80002) IVTNUM 04040405
408: 39039 CONTINUE 04050405
409: C***** 04060405
410: C***** END OF TEST SEGMENT 390 04070405
411: CBB** ********************** BBCSUM0 **********************************04080405
412: C**** WRITE OUT TEST SUMMARY 04090405
413: C**** 04100405
414: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 04110405
415: WRITE (I02, 90004) 04120405
416: WRITE (I02, 90014) 04130405
417: WRITE (I02, 90004) 04140405
418: WRITE (I02, 90020) IVPASS 04150405
419: WRITE (I02, 90022) IVFAIL 04160405
420: WRITE (I02, 90024) IVDELE 04170405
421: WRITE (I02, 90026) IVINSP 04180405
422: WRITE (I02, 90028) IVTOTN, IVTOTL 04190405
423: CBE** ********************** BBCSUM0 **********************************04200405
424: CBB** ********************** BBCFOOT0 **********************************04210405
425: C**** WRITE OUT REPORT FOOTINGS 04220405
426: C**** 04230405
427: WRITE (I02,90016) ZPROG, ZPROG 04240405
428: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 04250405
429: WRITE (I02,90019) 04260405
430: CBE** ********************** BBCFOOT0 **********************************04270405
431: CBB** ********************** BBCFMT0A **********************************04280405
432: C**** FORMATS FOR TEST DETAIL LINES 04290405
433: C**** 04300405
434: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 04310405
435: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 04320405
436: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 04330405
437: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 04340405
438: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 04350405
439: 1I6,/,1H ,15X,10HCORRECT= ,I6) 04360405
440: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 04370405
441: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 04380405
442: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 04390405
443: 1A21,/,1H ,16X,10HCORRECT= ,A21) 04400405
444: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 04410405
445: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 04420405
446: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 04430405
447: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 04440405
448: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 04450405
449: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 04460405
450: 80050 FORMAT (1H ,48X,A31) 04470405
451: CBE** ********************** BBCFMT0A **********************************04480405
452: CBB** ********************** BBCFMT0B **********************************04490405
453: C**** FORMAT STATEMENTS FOR PAGE HEADERS 04500405
454: C**** 04510405
455: 90002 FORMAT (1H1) 04520405
456: 90004 FORMAT (1H ) 04530405
457: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 04540405
458: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 04550405
459: 90008 FORMAT (1H ,21X,A13,A17) 04560405
460: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 04570405
461: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 04580405
462: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 04590405
463: 1 7X,7HREMARKS,24X) 04600405
464: 90014 FORMAT (1H ,46H----------------------------------------------, 04610405
465: 1 33H---------------------------------) 04620405
466: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 04630405
467: C**** 04640405
468: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 04650405
469: C**** 04660405
470: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 04670405
471: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 04680405
472: 1 A13) 04690405
473: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 04700405
474: C**** 04710405
475: C**** FORMAT STATEMENTS FOR RUN SUMMARY 04720405
476: C**** 04730405
477: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 04740405
478: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 04750405
479: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 04760405
480: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 04770405
481: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 04780405
482: CBE** ********************** BBCFMT0B **********************************04790405
483: STOP 04800405
484: END 04810405
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.