![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM923.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 FM923.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***********************************************************************00010923
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 00020923
6: C***** FM923 00030923
7: C***** LSTDI1 - (370) 00040923
8: C***** 00050923
9: C***********************************************************************00060923
10: C***** GENERAL PURPOSE ANS REF 00070923
11: C***** TEST LIST DIRECTED INPUT ON 13.6 00080923
12: C***** INTEGER REAL, LOGICAL, AND CHARACTER DATA TYPES. 12.4 00090923
13: C***** 00100923
14: CBB** ********************** BBCCOMNT **********************************00110923
15: C**** 00120923
16: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130923
17: C**** VERSION 2.0 00140923
18: C**** 00150923
19: C**** 00160923
20: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170923
21: C**** GENERAL SERVICES ADMINISTRATION 00180923
22: C**** FEDERAL SOFTWARE TESTING CENTER 00190923
23: C**** 5203 LEESBURG PIKE, SUITE 1100 00200923
24: C**** FALLS CHURCH, VA. 22041 00210923
25: C**** 00220923
26: C**** (703) 756-6153 00230923
27: C**** 00240923
28: CBE** ********************** BBCCOMNT **********************************00250923
29: C INPUT DATA TO THIS SEGMENT CONSISTS OF 34 CARD IMAGES IN COL. 1-80 00260923
30: COL. 1----------------------------------------------------------61 00270923
31: CARD 1 25 00280923
32: CARD 2 10.75 00290923
33: CARD 3 12.875E01 00300923
34: CARD 4 T 00310923
35: CARD 5 'ABCDEF' 00320923
36: CARD 6 10 15 22 40 00330923
37: CARD 7 100.5 0.25E-1 -1.625E2 00340923
38: CARD 8 T F F T F 00350923
39: CARD 9 'AB' 'ABCD' 'ABCDEF' 00360923
40: CARD 10 '123456' T 17.5 -11 2.5E0 00370923
41: CARD 11 -5,'2468',T,15.0 00380923
42: CARD 12 F 'CHAR' -1 0.25 00390923
43: CARD 13 5 10 15 00400923
44: CARD 14 -1.25E1 F T -6 '-6' 00410923
45: CARD 15 F 'ZYXW' 'DCBA' 15.5 00420923
46: CARD 16 'ONE ',,3,F 00430923
47: CARD 17 'TWO ', 2, , 2.0 00440923
48: CARD 18 ,4, 1*, 8, ,, 14 00450923
49: CARD 19 5, -0.25E1, 4*, 'TEST', F 00460923
50: CARD 20 1 2 3 4 5 00470923
51: CARD 21 6 7 8/ 9 10 00480923
52: CARD 22 12045,12 45 00490923
53: CARD 23 12045 00500923
54: COL. 62---------------80 00510923
55: CARD 23 12 00520923
56: COL. 1----------------------------------------------------------61 00530923
57: CARD 24 45 00540923
58: CARD 25 'ABCDEF' 00550923
59: COL. 62---------------80 00560923
60: CARD 25 'UVW 00570923
61: COL. 1----------------------------------------------------------61 00580923
62: CARD 26 XYZ' 00590923
63: CARD 27 'CAN''T, AND/OR WON''T' 00600923
64: CARD 28 '1234567890' '12345678' '1234567890123' 00610923
65: CARD 29 TRUCK .FOUR .FALSE. .TWIN. F12. F7.2 .TRUE. .T=3+4 00620923
66: CARD 30 T T T T T 00630923
67: CARD 31 F F/F F F 00640923
68: CARD 32 / 10 20 30 00650923
69: CARD 33 1 2 3 4 00660923
70: CARD 34 5 6 7 8 00670923
71: C***** 00680923
72: C***** S P E C I F I C A T I O N S SEGMENT 370 00690923
73: INTEGER J1I(3) 00700923
74: LOGICAL AVB, BVB, CVB, DVB, EVB, FVB, GVB, HVB 00710923
75: CHARACTER A2VK*2, A4VK*4, B4VK*4, A6VK*6, B6VK*6 00720923
76: CHARACTER A8VK*8, A9VK*9, A15VK*15, A21VK*21 00730923
77: CHARACTER CVNX06*6, CVNY06*6, CVNX21*21 00740923
78: C***** 00750923
79: CBB** ********************** BBCINITA **********************************00760923
80: C**** SPECIFICATION STATEMENTS 00770923
81: C**** 00780923
82: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00790923
83: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00800923
84: CBE** ********************** BBCINITA **********************************00810923
85: CBB** ********************** BBCINITB **********************************00820923
86: C**** INITIALIZE SECTION 00830923
87: DATA ZVERS, ZVERSD, ZDATE 00840923
88: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00850923
89: DATA ZCOMPL, ZNAME, ZTAPE 00860923
90: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00870923
91: DATA ZPROJ, ZTAPED, ZPROG 00880923
92: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00890923
93: DATA REMRKS /' '/ 00900923
94: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00910923
95: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00920923
96: C**** 00930923
97: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00940923
98: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00950923
99: CZ03 ZPROG = 'PROGRAM NAME' 00960923
100: ZDATE = '07-Nov-85 ' *RP
101: ZCOMPL = 'CCI 5.2 ' *RP
102: ZPROJ = 'TC-85- -410' *RP
103: ZNAME = ' ' *RP
104: ZTAPE = ' ' *RP
105: ZTAPED = '850703 ' *RP
106: C 01030923
107: IVPASS = 0 01040923
108: IVFAIL = 0 01050923
109: IVDELE = 0 01060923
110: IVINSP = 0 01070923
111: IVTOTL = 0 01080923
112: IVTOTN = 0 01090923
113: ICZERO = 0 01100923
114: C 01110923
115: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 01120923
116: I01 = 05 01130923
117: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 01140923
118: I02 = 06 01150923
119: C 01160923
120: I01 = 5 01170923
121: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 01180923
122: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 01190923
123: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 01200923
124: C 01210923
125: I02 = 6 01220923
126: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 01230923
127: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 01240923
128: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 01250923
129: C 01260923
130: CBE** ********************** BBCINITB **********************************01270923
131: IRVI = I01 01280923
132: NUVI = I02 01290923
133: ZPROG = 'FM923' 01300923
134: IVTOTL = 28 01310923
135: CBB** ********************** BBCHED0A **********************************01320923
136: C**** 01330923
137: C**** WRITE REPORT TITLE 01340923
138: C**** 01350923
139: WRITE (I02, 90002) 01360923
140: WRITE (I02, 90006) 01370923
141: WRITE (I02, 90007) 01380923
142: WRITE (I02, 90008) ZVERS, ZVERSD 01390923
143: WRITE (I02, 90009) ZPROG, ZPROG 01400923
144: WRITE (I02, 90010) ZDATE, ZCOMPL 01410923
145: CBE** ********************** BBCHED0A **********************************01420923
146: C***** 01430923
147: C***** REAL NUMBER APPROXIMATION CRITERIA 01440923
148: DVS = 0.0001 01450923
149: IVCORR=0 01460923
150: RVCORR=0 01470923
151: C***** 01480923
152: C***** HEADING FOR SEGMENT 370 01490923
153: WRITE(NUVI,37000) 01500923
154: 37000 FORMAT(/2X, 16H LSTDI1 - (370) , 01510923
155: 1 42H LIST DIRECTED INPUT FOR SUBSET DATA TYPES// 01520923
156: 2 3X,22H ANS REF. - 13.6 12.4) 01530923
157: CBB** ********************** BBCHED0B **********************************01540923
158: C**** WRITE DETAIL REPORT HEADERS 01550923
159: C**** 01560923
160: WRITE (I02,90004) 01570923
161: WRITE (I02,90004) 01580923
162: WRITE (I02,90013) 01590923
163: WRITE (I02,90014) 01600923
164: WRITE (I02,90015) IVTOTL 01610923
165: CBE** ********************** BBCHED0B **********************************01620923
166: C***** 01630923
167: CT001* TEST 1 - CARD 1 INTEGER 01640923
168: IVTNUM = 1 01650923
169: READ(IRVI, *) IVI 01660923
170: C***** TO DELETE TEST THE READ STATEMENTS MUST BE PERFORMED 01670923
171: C***** FIRST. THEN INCLUDE THE FOLLOWING 2 STATEMENTS 01680923
172: C***** IVDELE=IVDELE+1 01690923
173: C***** WRITE (NUVI,80000) IVTNUM 01700923
174: C***** AND COMMENT OUT REMAINING LINES UNTIL NEXT TEST 01710923
175: IVCORR=25 01720923
176: IF (IVI - 25) 20010,10010,20010 01730923
177: 10010 IVPASS=IVPASS+1 01740923
178: WRITE (NUVI,80002) IVTNUM 01750923
179: GO TO 0011 01760923
180: 20010 IVFAIL=IVFAIL+1 01770923
181: WRITE (NUVI,80008) IVTNUM 01780923
182: WRITE (NUVI,80024) IVI 01790923
183: WRITE (NUVI,80026) IVCORR 01800923
184: 0011 CONTINUE 01810923
185: CT002* TEST 2 - CARD 2 REAL 01820923
186: IVTNUM = 2 01830923
187: READ(IRVI, *) AVS 01840923
188: C***** TO DELETE TEST SEE NOTES FOR TEST 1 01850923
189: RVCORR=10.75 01860923
190: AAVS = AVS - 10.75 01870923
191: IF (AAVS + .00005) 20020,10020,40020 01880923
192: 40020 IF (AAVS - .00005) 10020,10020,20020 01890923
193: 10020 IVPASS=IVPASS+1 01900923
194: WRITE (NUVI,80002) IVTNUM 01910923
195: GO TO 0021 01920923
196: 20020 IVFAIL=IVFAIL+1 01930923
197: WRITE (NUVI,80008) IVTNUM 01940923
198: WRITE (NUVI,80028) AVS 01950923
199: WRITE (NUVI,80030) RVCORR 01960923
200: 0021 CONTINUE 01970923
201: CT003* TEST 3 - CARD 3 REAL, EXPONENT 01980923
202: IVTNUM = 3 01990923
203: READ(IRVI, *) AVS 02000923
204: C***** TO DELETE TEST SEE NOTES FOR TEST 1 02010923
205: RVCORR=128.75 02020923
206: AAVS = AVS - 128.75 02030923
207: IF (AAVS + .00005) 20030,10030,40030 02040923
208: 40030 IF (AAVS - .00005) 10030,10030,20030 02050923
209: 10030 IVPASS=IVPASS+1 02060923
210: WRITE (NUVI,80002) IVTNUM 02070923
211: GO TO 0031 02080923
212: 20030 IVFAIL=IVFAIL+1 02090923
213: WRITE (NUVI,80008) IVTNUM 02100923
214: WRITE (NUVI,80028) AVS 02110923
215: WRITE (NUVI,80030) RVCORR 02120923
216: 0031 CONTINUE 02130923
217: CT004* TEST 4 - CARD 4 LOGICAL 02140923
218: IVTNUM = 4 02150923
219: READ(IRVI, *) AVB 02160923
220: C***** TO DELETE TEST SEE NOTES TEST 1 02170923
221: IVCOMP=0 02180923
222: IF (AVB) IVCOMP = 1 02190923
223: IF (IVCOMP - 1) 20040,10040,20040 02200923
224: 10040 IVPASS=IVPASS+1 02210923
225: WRITE (NUVI,80002) IVTNUM 02220923
226: GO TO 0041 02230923
227: 20040 IVFAIL=IVFAIL+1 02240923
228: WRITE (NUVI,80008) IVTNUM 02250923
229: 70040 FORMAT (1H ,16X,10HCOMPUTED: ,1X,L1) 02260923
230: WRITE (NUVI,70040) AVB 02270923
231: 70041 FORMAT (1H ,16X,10HCORRECT: ,2H T) 02280923
232: WRITE (NUVI,70041) 02290923
233: 0041 CONTINUE 02300923
234: CT005* TEST 5 - CARD 5 CHARACTER 02310923
235: IVTNUM = 5 02320923
236: READ(IRVI, *) A6VK 02330923
237: C***** TO DELETE TEST SEE NOTES FOR TEST 1 02340923
238: CVNX06='ABCDEF' 02350923
239: IVCOMP=0 02360923
240: IF (A6VK .EQ. 'ABCDEF') IVCOMP = 1 02370923
241: IF (IVCOMP - 1) 20050,10050,20050 02380923
242: 10050 IVPASS=IVPASS+1 02390923
243: WRITE (NUVI,80002) IVTNUM 02400923
244: GO TO 0051 02410923
245: 20050 IVFAIL=IVFAIL+1 02420923
246: WRITE (NUVI,80008) IVTNUM 02430923
247: WRITE (NUVI,80020) A6VK 02440923
248: WRITE (NUVI,80022) CVNX06 02450923
249: 0051 CONTINUE 02460923
250: CT006* TEST 6 - CARD 6 SEVERAL INTEGER 02470923
251: IVTNUM = 6 02480923
252: READ(IRVI, *) IVI, JVI, KVI, LVI 02490923
253: C***** TO DELETE TEST SEE NOTES FOR TEST 1 02500923
254: IF (IVI - 10) 20060,40060,20060 02510923
255: 40060 IF (JVI - 15) 20060,40061,20060 02520923
256: 40061 IF (KVI - 22) 20060,40062,20060 02530923
257: 40062 IF (LVI - 40) 20060,10060,20060 02540923
258: 10060 IVPASS=IVPASS+1 02550923
259: WRITE (NUVI,80002) IVTNUM 02560923
260: GO TO 0061 02570923
261: 20060 IVFAIL=IVFAIL+1 02580923
262: WRITE (NUVI,80008) IVTNUM 02590923
263: 70060 FORMAT (1H ,16X,10HCOMPUTED: ,I5,3(2X,I5)) 02600923
264: WRITE (NUVI,70060) IVI,JVI,KVI,LVI 02610923
265: 70061 FORMAT (1H ,16X,10HCORRECT: , 02620923
266: 1 5H 10,2X,5H 15,2X,5H 22,2X,5H 40) 02630923
267: WRITE (NUVI,70061) 02640923
268: 0061 CONTINUE 02650923
269: CT007* TEST 7 - CARD 7 SEVERAL REAL 02660923
270: IVTNUM = 7 02670923
271: READ(IRVI, *) AVS, BVS, CVS 02680923
272: C******* TO DELETE TEST SEE NOTES FOR TEST 1 02690923
273: AAVS = AVS - 100.5 02700923
274: BBVS = BVS - 0.025 02710923
275: CCVS = CVS - (-162.5) 02720923
276: IF (AAVS + .00005) 20070,40071,40070 02730923
277: 40070 IF (AAVS - .00005) 40071,40071,20070 02740923
278: 40071 IF (BBVS + .00005) 20070,40073,40072 02750923
279: 40072 IF (BBVS - .00005) 40073,40073,20070 02760923
280: 40073 IF (CCVS + .00005) 20070,10070,40074 02770923
281: 40074 IF (CCVS - .00005) 10070,10070,20070 02780923
282: 10070 IVPASS=IVPASS+1 02790923
283: WRITE (NUVI,80002) IVTNUM 02800923
284: GO TO 0071 02810923
285: 20070 IVFAIL=IVFAIL+1 02820923
286: WRITE (NUVI,80008) IVTNUM 02830923
287: 70071 FORMAT (1H ,16X,10HCOMPUTED: ,F6.2,2X,F6.4,2X,F7.2) 02840923
288: WRITE (NUVI,70071) AVS,BVS,CVS 02850923
289: 70072 FORMAT (1H ,16X,10HCORRECT: ,6H100.50,2X,6H0.0250, 02860923
290: 1 2X,7H-162.50) 02870923
291: WRITE(NUVI,70072) 02880923
292: 0071 CONTINUE 02890923
293: CT008* TEST 8 - CARD 8 SEVERAL LOGICAL 02900923
294: IVTNUM = 8 02910923
295: READ(IRVI, *) AVB, BVB, CVB, DVB, EVB 02920923
296: C**** TO DELETE TEST SEE NOTES FOR TEST 1 02930923
297: IF (AVB .AND. .NOT. BVB .AND. .NOT. CVB .AND. DVB .AND. 02940923
298: 1 .NOT. EVB) GO TO 37008 02950923
299: IVFAIL=IVFAIL+1 02960923
300: WRITE (NUVI,80008) IVTNUM 02970923
301: 70081 FORMAT (1H ,16X,10HCOMPUTED: ,L1,4(2X,L1)) 02980923
302: WRITE (NUVI,70081) AVB,BVB,CVB,DVB,EVB 02990923
303: 70082 FORMAT (1H ,16X,10HCORRECT: ,1HT,2X,1HF,2X,1HF,2X,1HT,2X, 03000923
304: 1 1HF) 03010923
305: WRITE (NUVI,70082) 03020923
306: GO TO 37010 03030923
307: 37008 CONTINUE 03040923
308: IVPASS=IVPASS+1 03050923
309: WRITE (NUVI,80002) IVTNUM 03060923
310: 37010 CONTINUE 03070923
311: CT009* TEST 9 - CARD 9 SEVERAL CHARACTER STRINGS 03080923
312: IVTNUM = 9 03090923
313: READ(IRVI, *) A2VK, A4VK, A6VK 03100923
314: C***** TO DELETE CODE SEE NOTES FOR TEST 1 03110923
315: IF (A2VK .EQ. 'AB' .AND. A4VK .EQ. 'ABCD' .AND. 03120923
316: 1 A6VK .EQ. 'ABCDEF') GO TO 37011 03130923
317: IVFAIL=IVFAIL+1 03140923
318: WRITE (NUVI,80008) IVTNUM 03150923
319: 70090 FORMAT (1H ,16X,10HCOMPUTED: ,A2,2X,A4,2X,A6) 03160923
320: WRITE (NUVI,70090) A2VK,A4VK,A6VK 03170923
321: 70091 FORMAT (1H ,16X,10HCORRECT: ,2HAB,2X,4HABCD,2X,6HABCDEF) 03180923
322: WRITE (NUVI,70091) 03190923
323: GO TO 37013 03200923
324: 37011 CONTINUE 03210923
325: IVPASS=IVPASS+1 03220923
326: WRITE (NUVI,80002) IVTNUM 03230923
327: 37013 CONTINUE 03240923
328: CT010* TEST 10 - CARD 10 MIXED TYPES 03250923
329: IVTNUM = 10 03260923
330: READ(IRVI, *) A6VK, AVB, AVS, IVI, BVS 03270923
331: C**** TO DELETE TEST SEE NOTES FOR TEST 1 03280923
332: IF (A6VK .EQ. '123456' .AND. AVB .AND. AVS .GE. (17.5 - DVS) 03290923
333: 1 .AND. AVS .LE. (17.5 + DVS) .AND. IVI .EQ. -11 .AND. 03300923
334: 2 BVS .GE. (2.5 - DVS) .AND. BVS .LE. (2.5 + DVS)) 03310923
335: 3 GO TO 37014 03320923
336: IVFAIL=IVFAIL+1 03330923
337: 70100 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X, 03340923
338: 1 28HCOMPLEX IF - SEE SOURCE CODE) 03350923
339: WRITE (NUVI,70100) IVTNUM 03360923
340: 70101 FORMAT (1H ,16X,10HCOMPUTED: , 03370923
341: 2 A6,2X,L1,2X,F5.2,2X,I5,2X,E12.5) 03380923
342: WRITE (NUVI,70101) A6VK,AVB,AVS,IVI,BVS 03390923
343: 70102 FORMAT (1H ,16X,10HCORRECT: , 03400923
344: 1 23H123456 T 17.50 -11,2X,26H 0.25000E+01 OR .25000+001) 03410923
345: WRITE (NUVI,70102) 03420923
346: GO TO 37016 03430923
347: 37014 CONTINUE 03440923
348: IVPASS=IVPASS+1 03450923
349: WRITE (NUVI,80002) IVTNUM 03460923
350: 37016 CONTINUE 03470923
351: CT011* TEST 11 - CARD 11 MIXED TYPES SEPARATED BY COMMAS 03480923
352: IVTNUM = 11 03490923
353: READ(IRVI, *) IVI, A4VK, AVB, AVS 03500923
354: C***** TO DELETE TEST SEE NOTES FOR TEST 1 03510923
355: IF (IVI .EQ. -5 .AND. A4VK .EQ. '2468' .AND. AVB .AND. 03520923
356: 1 AVS .GE. (15.0 - DVS) .AND. AVS .LE. (15.0 + DVS)) 03530923
357: 2 GO TO 37017 03540923
358: IVFAIL=IVFAIL+1 03550923
359: 70110 FORMAT (1H ,2X,I3,4X,7H FAIL ,16HMIXED DATA TYPES,16X, 03560923
360: 1 28HCOMPLEX IF - SEE SOURCE CODE) 03570923
361: WRITE (NUVI,70110) IVTNUM 03580923
362: 70111 FORMAT (1H ,16X,10HCOMPUTED: , 03590923
363: 1 I5,2X,A4,2X,L1,2X,F5.2) 03600923
364: WRITE (NUVI,70111) IVI,A4VK,AVB,AVS 03610923
365: 70112 FORMAT (1H ,16X,10HCORRECT: , 03620923
366: 1 5H -5,2X,4H2468,2X,1HT,2X,5H15.00) 03630923
367: WRITE (NUVI,70112) 03640923
368: GO TO 37019 03650923
369: 37017 CONTINUE 03660923
370: IVPASS=IVPASS+1 03670923
371: WRITE (NUVI,80002) IVTNUM 03680923
372: 37019 CONTINUE 03690923
373: CT012* TEST 12 - CARD 12 MIXED TYPES, VARYING NUMBER OF 03700923
374: C***** BLANKS SEPARATING VALUES 03710923
375: IVTNUM = 12 03720923
376: READ(IRVI, *) AVB, A4VK, IVI, AVS 03730923
377: C***** TO DELETE TEST SEE NOTES FOR TEST 1 03740923
378: IF (.NOT. AVB .AND. A4VK .EQ. 'CHAR' .AND. IVI .EQ. -1 .AND.03750923
379: 1 AVS .GE. (0.25 - DVS) .AND. AVS .LE. (0.25 + DVS)) 03760923
380: 2 GO TO 37020 03770923
381: IVFAIL=IVFAIL+1 03780923
382: 70120 FORMAT (1H ,2X,I3,4X,7H FAIL ,16HMIXED DATA TYPES,16X, 03790923
383: 1 28HCOMPLEX IF - SEE SOURCE CODE) 03800923
384: WRITE (NUVI,70120) IVTNUM 03810923
385: 70121 FORMAT (1H ,16X,10HCOMPUTED: , 03820923
386: 1 L1,2X,A4,2X,I5,2X,F4.2) 03830923
387: WRITE (NUVI,70121) AVB,A4VK,IVI,AVS 03840923
388: 70122 FORMAT (1H ,16X,10HCORRECT: , 03850923
389: 2 3HF ,4HCHAR,2X,5H -5,2X,4H0.25) 03860923
390: WRITE (NUVI,70122) 03870923
391: GO TO 37022 03880923
392: 37020 CONTINUE 03890923
393: IVPASS=IVPASS+1 03900923
394: WRITE (NUVI,80002) IVTNUM 03910923
395: 37022 CONTINUE 03920923
396: CT013* TEST 13 - CARD 13 READ VALUES INTO ARRAY BY USING 03930923
397: C***** AN IMPLICIT DO-LOOP 03940923
398: IVTNUM = 13 03950923
399: READ(IRVI, *) (J1I(IIVI), IIVI=1,3) 03960923
400: C**** TO DELETE TEST SEE NOTES FOR TEST 1 03970923
401: IF (J1I(1) - 5) 20130,40130,20130 03980923
402: 40130 IF (J1I(2) - 10) 20130,40131,20130 03990923
403: 40131 IF (J1I(3) - 15) 20130,10130,20130 04000923
404: 10130 IVPASS=IVPASS+1 04010923
405: WRITE (NUVI,80002) IVTNUM 04020923
406: GO TO 0131 04030923
407: 20130 IVFAIL=IVFAIL+1 04040923
408: WRITE (NUVI,80008) IVTNUM 04050923
409: 70130 FORMAT (1H ,16X,10HCOMPUTED: ,I5,2X,I5,2X,I5) 04060923
410: WRITE (NUVI,70130) J1I(1),J1I(2),J1I(3) 04070923
411: 70131 FORMAT (1H ,16X,10HCORRECT: , 04080923
412: 1 5H 5,2X,5H 10,2X,5H 15) 04090923
413: WRITE (NUVI,70131) 04100923
414: 0131 CONTINUE 04110923
415: CT014* TEST 14 - CARDS 14-15 LIST EXTENDING OVER 2 RECORDS 04120923
416: IVTNUM = 14 04130923
417: READ(IRVI, *) AVS, AVB, BVB, IVI, A2VK, CVB, A4VK, B4VK, BVS 04140923
418: C***** TO DELETE CODE SEE NOTES FOR TEST 1 04150923
419: IF (AVS .GE. (-1.25E1 - DVS) .AND. AVS .LE. (-1.25E1 + DVS) 04160923
420: 1 .AND. .NOT. AVB .AND. BVB .AND. 04170923
421: 2 IVI .EQ. -6 .AND. A2VK .EQ. '-6' .AND. .NOT. CVB .AND. 04180923
422: 3 A4VK .EQ. 'ZYXW' .AND. B4VK .EQ. 'DCBA' .AND. 04190923
423: 4 BVS .GE. (15.5 - DVS) .AND. BVS .LE. (15.5 + DVS)) 04200923
424: 5 GO TO 37024 04210923
425: IVFAIL=IVFAIL+1 04220923
426: 70140 FORMAT (1H ,2X,I3,4X,7H FAIL ,16HMIXED DATA TYPES,16X, 04230923
427: 1 28HCOMPLEX IF - SEE SOURCE CODE) 04240923
428: WRITE (NUVI,70140) IVTNUM 04250923
429: 70141 FORMAT (1H ,16X,10HCOMPUTED: ,E12.5,2X,L1,2X,L1,2X,I5, 04260923
430: 1 /27X,A2,2X,L1,2X,A4,2X,A4,2X,F5.2) 04270923
431: WRITE (NUVI,70141) AVS,AVB,BVB,IVI,A2VK,CVB,A4VK,B4VK,BVS 04280923
432: 70142 FORMAT (1H ,16X,10HCORRECT: , 04290923
433: 1 12H -.12500E+01,2X,1HF,2X,1HT,2X,5H -6, 04300923
434: 2 /27X,2H-6,2X,1HF,2X,4HZYXW,2X,4HDCBA,2X,5H15.50) 04310923
435: WRITE (NUVI,70142) 04320923
436: GO TO 37026 04330923
437: 37024 CONTINUE 04340923
438: IVPASS=IVPASS+1 04350923
439: WRITE (NUVI,80002) IVTNUM 04360923
440: 37026 CONTINUE 04370923
441: CT015* TEST 15 - CARD 16 NULL VALUE REPRESENTED AS ,, 04380923
442: IVTNUM = 15 04390923
443: AVS = 2.0 04400923
444: READ(IRVI, *) A4VK, AVS, IVI, AVB 04410923
445: C***** TO DELETE TEST SEE NOTES FOR TEST 1 04420923
446: IF (A4VK .EQ. 'ONE ' .AND. AVS .GE. (2.0 - DVS) .AND. 04430923
447: 1 AVS .LE. (2.0 + DVS) .AND. IVI .EQ. 3 .AND. .NOT. AVB) 04440923
448: 2 GO TO 37027 04450923
449: IVFAIL=IVFAIL+1 04460923
450: WRITE (NUVI,70150) IVTNUM 04470923
451: 70150 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X, 04480923
452: 1 28HCOMPLEX IF - SEE SOURCE CODE) 04490923
453: 70151 FORMAT (1H ,16X,10HCOMPUTED: ,A4,2X,F4.1,2X,I5,2X,L1) 04500923
454: WRITE (NUVI,70151) A4VK,AVS,IVI,AVB 04510923
455: 70152 FORMAT (1H ,16X,10HCORRECT: , 04520923
456: 1 20HONE 2.0 3 F) 04530923
457: WRITE (NUVI,70152) 04540923
458: GO TO 37029 04550923
459: 37027 CONTINUE 04560923
460: IVPASS=IVPASS+1 04570923
461: WRITE (NUVI,80002) IVTNUM 04580923
462: 37029 CONTINUE 04590923
463: CT016* TEST 16 - CARD 17 NULL VALUE REPRESENTED AS ' ' 04600923
464: IVTNUM = 16 04610923
465: AVB = .TRUE. 04620923
466: READ(IRVI, *) A4VK, IVI, AVB, AVS 04630923
467: C***** TO DELETE TEST SEE NOTES FOR TEST 1 04640923
468: IF (A4VK .EQ. 'TWO ' .AND. IVI .EQ. 2 .AND. AVB .AND. 04650923
469: 1 AVS .GE. (2.0 - DVS) .AND. AVS .LE. (2.0 + DVS)) 04660923
470: 2 GO TO 37030 04670923
471: IVFAIL=IVFAIL+1 04680923
472: WRITE (NUVI,80008) IVTNUM 04690923
473: 70160 FORMAT (1H ,16X,10HCOMPUTED: ,A4,2X,I5,2X,L1,2X,F4.1) 04700923
474: WRITE (NUVI,70160) A4VK,IVI,AVB,AVS 04710923
475: 70161 FORMAT (1H ,16X,10HCORRECT: , 04720923
476: 1 20HTWO 2 T 2.0) 04730923
477: WRITE (NUVI,70161) 04740923
478: GO TO 37032 04750923
479: 37030 CONTINUE 04760923
480: IVPASS=IVPASS+1 04770923
481: WRITE (NUVI,80002) IVTNUM 04780923
482: 37032 CONTINUE 04790923
483: CT017* TEST 17 - CARD 18 VARIOUS NULL REPRESENTATIONS 04800923
484: IVTNUM = 17 04810923
485: IVI = 2 04820923
486: JVI = 6 04830923
487: KVI = 10 04840923
488: KKVI = 12 04850923
489: READ(IRVI, *) IVI, IIVI, JVI, JJVI, KVI, KKVI, LVI 04860923
490: C**** TO DELETE TEST SEE NOTES FOR TEST 1 04870923
491: IF (IVI .EQ. 2 .AND. IIVI .EQ. 4 .AND. JVI .EQ. 6 .AND. 04880923
492: 1 JJVI .EQ. 8 .AND. KVI .EQ. 10 .AND. KKVI .EQ. 12 .AND. 04890923
493: 2 LVI .EQ. 14) GO TO 37033 04900923
494: IVFAIL=IVFAIL+1 04910923
495: WRITE (NUVI,70170) IVTNUM 04920923
496: 70170 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X, 04930923
497: 1 28HCOMPLEX IF - SEE SOURCE CODE) 04940923
498: 70171 FORMAT (1H ,16X,10HCOMPUTED: , 04950923
499: 1 I5,6(2X,I5)) 04960923
500: WRITE (NUVI,70171) IVI,IIVI,JVI,JJVI,KVI,KKVI,LVI 04970923
501: 70172 FORMAT (1H ,16X,10HCORRECT: , 04980923
502: 1 47H 2 4 6 8 10 12 14) 04990923
503: WRITE (NUVI,70172) 05000923
504: GO TO 37035 05010923
505: 37033 CONTINUE 05020923
506: IVPASS=IVPASS+1 05030923
507: WRITE (NUVI,80002) IVTNUM 05040923
508: 37035 CONTINUE 05050923
509: CT018* TEST 18 - CARD 19 NULL VALUE USING REPETITION FACTOR 05060923
510: IVTNUM = 18 05070923
511: IVI = 1 05080923
512: AVB = .TRUE. 05090923
513: AVS = 1.0 05100923
514: A4VK = 'TRUE' 05110923
515: READ (IRVI, *) JVI, BVS, IVI, AVB, AVS, A4VK, B4VK, BVB 05120923
516: C***** TO DELETE TEST SEE NOTES FOR TEST 1 05130923
517: IF (JVI .EQ. 5 .AND. BVS .GE. (-2.5 - DVS) .AND. 05140923
518: 1 BVS .LE. (-2.5 + DVS) .AND. IVI .EQ. 1 .AND. AVB .AND. 05150923
519: 2 AVS .GE. (1.0 - DVS) .AND. AVS .LE. (1.0 + DVS) .AND. 05160923
520: 3 A4VK .EQ. 'TRUE' .AND. B4VK .EQ. 'TEST' .AND. .NOT. BVB) 05170923
521: 4 GO TO 37036 05180923
522: IVFAIL=IVFAIL+1 05190923
523: WRITE (NUVI,70180) IVTNUM 05200923
524: 70180 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X, 05210923
525: 1 28HCOMPLEX IF - SEE SOURCE CODE) 05220923
526: 70181 FORMAT (1H ,16X,10HCOMPUTED: , 05230923
527: 1 I5,2X,F4.1,2X,I5,2X,L1,2X,F4.1,2X,A4,2X, 05240923
528: 2 A4,2X,L1) 05250923
529: WRITE (NUVI,70181) JVI,BVS,IVI,AVB,AVS,A4VK,B4VK,BVB 05260923
530: 70182 FORMAT (1H ,16X,10HCORRECT: , 05270923
531: 1 5H 5,2X,4H-2.5,2X,5H 1,2X,1HT,2X,4H 1.0,2X,4HTRUE,2X, 05280923
532: 2 4HTEST,2X,1HF) 05290923
533: WRITE (NUVI,70182) 05300923
534: GO TO 37038 05310923
535: 37036 CONTINUE 05320923
536: IVPASS=IVPASS+1 05330923
537: WRITE (NUVI,80002) IVTNUM 05340923
538: 37038 CONTINUE 05350923
539: CT019* TEST 19 - CARDS 20-21 TERMINATOR SLASH (/) 05360923
540: IVTNUM = 19 05370923
541: READ(IRVI, *) IVI, JVI, KVI, LVI, MVI 05380923
542: READ(IRVI, *) IVI, JVI, KVI, LVI, MVI 05390923
543: C**** TO DELETE TEST SEE NOTES FOR TEST 1 05400923
544: IF (IVI - 6) 20190,40190,20190 05410923
545: 40190 IF (JVI - 7) 20190,40191,20190 05420923
546: 40191 IF (KVI - 8) 20190,40192,20190 05430923
547: 40192 IF (LVI - 4) 20190,40193,20190 05440923
548: 40193 IF (MVI - 5) 20190,10190,20190 05450923
549: 10190 IVPASS=IVPASS+1 05460923
550: WRITE (NUVI,80002) IVTNUM 05470923
551: GO TO 0191 05480923
552: 20190 IVFAIL=IVFAIL+1 05490923
553: WRITE (NUVI,80008) IVTNUM 05500923
554: 70190 FORMAT (1H ,16X,10HCOMPUTED: ,I5,4(2X,I5)) 05510923
555: WRITE (NUVI,70190) IVI,JVI,KVI,LVI,MVI 05520923
556: 70191 FORMAT (1H ,16X,10HCORRECT: , 05530923
557: 1 5H 6,2X,5H 7,2X,5H 8,2X,5H 4,2X,5H 5) 05540923
558: WRITE (NUVI,70191) 05550923
559: 0191 CONTINUE 05560923
560: CT020* TEST 20 - CARD 22 VERIFY THAT BLANKS ARE NOT 05570923
561: C***** INTERPRETED AS ZEROS 05580923
562: IVTNUM = 20 05590923
563: READ(IRVI, *) IVI, JVI, KVI 05600923
564: C**** TO DELETE TEST SEE NOTES FOR TEST 1 05610923
565: IF (IVI - 12045) 20200,40200,20200 05620923
566: 40200 IF (JVI - 12) 20200,40201,20200 05630923
567: 40201 IF (KVI - 45) 20200,10200,20200 05640923
568: 10200 IVPASS=IVPASS+1 05650923
569: WRITE (NUVI,80002) IVTNUM 05660923
570: GO TO 0201 05670923
571: 20200 IVFAIL=IVFAIL+1 05680923
572: WRITE (NUVI,80008) IVTNUM 05690923
573: 70200 FORMAT (1H ,16X,10HCOMPUTED: ,I5,2X,I5,2X,I5) 05700923
574: WRITE (NUVI,70200) IVI,JVI,KVI 05710923
575: 70201 FORMAT (1H ,16X,10HCORRECT: , 05720923
576: 1 5H12045,2X,5H 12,2X,5H 45) 05730923
577: WRITE (NUVI,70201) 05740923
578: 0201 CONTINUE 05750923
579: CT021* TEST 21 - CARDS 23-24 VERIFY THAT END-OF-RECORD IS 05760923
580: C***** TREATED AS A BLANK WHEN IT 05770923
581: C***** SEPARATES TWO INTEGERS 05780923
582: IVTNUM = 21 05790923
583: READ(IRVI, *) IVI, JVI, KVI 05800923
584: C**** TO DELETE TEST SEE NOTES FOR TEST 1 05810923
585: IF (IVI - 12045) 20210,40210,20210 05820923
586: 40210 IF (JVI - 12) 20210,40211,20210 05830923
587: 40211 IF (KVI - 45) 20210,10210,20210 05840923
588: 10210 IVPASS=IVPASS+1 05850923
589: WRITE (NUVI,80002) IVTNUM 05860923
590: GO TO 0211 05870923
591: 20210 IVFAIL=IVFAIL+1 05880923
592: WRITE (NUVI,80008) IVTNUM 05890923
593: 70210 FORMAT (1H ,16X,10HCOMPUTED: ,I5,2X,I5,2X,I5) 05900923
594: WRITE (NUVI,70210) IVI,JVI,KVI 05910923
595: 70211 FORMAT (1H ,16X,10HCORRECT: , 05920923
596: 1 5H12045,2X,5H 12,2X,5H 45) 05930923
597: WRITE (NUVI,70211) 05940923
598: 0211 CONTINUE 05950923
599: CT022* TEST 22 - CARDS 25-26 VERIFY THAT END-OF-RECORD IS 05960923
600: C***** NOT TREATED AS A BLANK IN A 05970923
601: C***** CHARACTER STRING 05980923
602: IVTNUM = 22 05990923
603: C READ(IRVI, *) A6VK, B6VK 060009TC
604: C CVNX06='ABCDEF' 060109TC
605: C CVNY06='UVWXYZ' 060209TC
606: C IF (A6VK .EQ. 'ABCDEF' .AND. B6VK .EQ. 'UVWXYZ') GO TO 37041 060309TC
607: C IVFAIL=IVFAIL+1 060409TC
608: C WRITE (NUVI,80008) IVTNUM 060509TC
609: C WRITE (NUVI,80020) A6VK,B6VK 060609TC
610: C WRITE (NUVI,80022) CVNX06,CVNY06 060709TC
611: C GO TO 37043 060809TC
612: C7041 CONTINUE 060909TC
613: C IVPASS=IVPASS+1 061009TC
614: C WRITE (NUVI,80002) IVTNUM 061109TC
615: C7043 CONTINUE 061209TC
616: 70220 FORMAT (1X,A1) 06120*TI
617: C BYPASS RECORDS 25 AND 26 06120*TI
618: READ (IRVI,70220) A6VK 06120*TI
619: READ (IRVI,70220) B6VK 06120*TI
620: 70221 FORMAT (1H ,2X,I3,4X,15HDELETED BY FSTC) 06120*TI
621: WRITE (NUVI,70221) IVTNUM 06120*TI
622: IVDELE = IVDELE + 1 06120*TI
623: CT023* TEST 23 - CARD 27 QUOTES, BLANKS, COMMAS AND SLASHES 06130923
624: C***** EMBEDDED IN CHARACTER STRINGS 06140923
625: IVTNUM = 23 06150923
626: READ(IRVI, *) A21VK 06160923
627: C**** TO DELETE TEST SEE NOTES FOR TEST 1 06170923
628: CVNX21='CAN''T, AND/OR WON''T' 06180923
629: IF (A21VK .EQ. 'CAN''T, AND/OR WON''T') GO TO 37044 06190923
630: IVFAIL=IVFAIL+1 06200923
631: WRITE (NUVI,80008) IVTNUM 06210923
632: WRITE (NUVI,80020) A21VK 06220923
633: WRITE (NUVI,80022) CVNX21 06230923
634: GO TO 0231 06240923
635: 37044 CONTINUE 06250923
636: IVPASS=IVPASS+1 06260923
637: WRITE (NUVI,80002) IVTNUM 06270923
638: 0231 CONTINUE 06280923
639: CT024* TEST 24 - CARD 28 CHARACTER STRINGS THAT ARE READ IN 06290923
640: C***** VARIABLES OF DIFFERENT LENGTHS 06300923
641: IVTNUM = 24 06310923
642: READ(IRVI, *) A15VK, A8VK, A9VK 06320923
643: C**** TO DELETE TEST SEE NOTES FOR TEST 1 06330923
644: IF (A15VK .EQ. '1234567890 ' .AND. 06340923
645: 1 A8VK .EQ. '12345678' .AND. 06350923
646: 2 A9VK .EQ. '123456789') GO TO 37047 06360923
647: IVFAIL=IVFAIL+1 06370923
648: WRITE (NUVI,80008) IVTNUM 06380923
649: 70240 FORMAT (1H ,16X,10HCOMPUTED: ,A15,2X,A8,2X,A9) 06390923
650: WRITE (NUVI,70240) A15VK,A8VK,A9VK 06400923
651: 70241 FORMAT (1H ,16X,10HCORRECT: , 06410923
652: 1 15H1234567890 ,2X,8H12345678,2X,9H123456789) 06420923
653: WRITE (NUVI,70241) 06430923
654: GO TO 37049 06440923
655: 37047 CONTINUE 06450923
656: IVPASS=IVPASS+1 06460923
657: WRITE (NUVI,80002) IVTNUM 06470923
658: 37049 CONTINUE 06480923
659: CT025* TEST 25 - CARD 29 LOGICAL VALUES IN DIFFERENT 06490923
660: C***** REPRESENTATIONS 06500923
661: IVTNUM = 25 06510923
662: READ(IRVI, *) AVB, BVB, CVB, DVB, EVB, FVB, GVB, HVB 06520923
663: C***** TO DELETE CODE SEE NOTES FOR TEST 1 06530923
664: IF (AVB .AND. .NOT. BVB .AND. .NOT. CVB .AND. DVB .AND. 06540923
665: 1 .NOT. EVB .AND. .NOT. EVB .AND. GVB .AND. HVB) 06550923
666: 2 GO TO 37050 06560923
667: IVFAIL=IVFAIL+1 06570923
668: WRITE (NUVI,70250) IVTNUM 06580923
669: 70250 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X, 06590923
670: 1 28HCOMPLEX IF - SEE SOURCE CODE) 06600923
671: 70251 FORMAT (1H ,16X,10HCOMPUTED: ,L1,7(2X,L1)) 06610923
672: WRITE (NUVI,70251) AVB,BVB,CVB,DVB,EVB,FVB,GVB,HVB 06620923
673: 70252 FORMAT (1H ,16X,10HCORRECT: ,22HT F F T F F T T) 06630923
674: WRITE (NUVI,70252) 06640923
675: GO TO 37052 06650923
676: 37050 CONTINUE 06660923
677: IVPASS=IVPASS+1 06670923
678: WRITE (NUVI,80002) IVTNUM 06680923
679: 37052 CONTINUE 06690923
680: CT026* TEST 26 - CARDS 30-31 SLASH TERMINATOR 06700923
681: IVTNUM = 26 06710923
682: READ(IRVI, *) AVB, BVB, CVB, DVB, EVB 06720923
683: READ(IRVI, *) AVB, BVB, CVB, DVB, EVB 06730923
684: C***** TO DELETE CODE SEE NOTES FOR TEST 1 06740923
685: IF (.NOT. AVB .AND. .NOT. BVB .AND. CVB .AND. 06750923
686: 1 DVB .AND. EVB) GO TO 37053 06760923
687: IVFAIL=IVFAIL+1 06770923
688: WRITE (NUVI,80008) IVTNUM 06780923
689: 70260 FORMAT (1H ,16X,10HCOMPUTED: , L1,4(2X,L1)) 06790923
690: WRITE (NUVI,70260) AVB,BVB,CVB,DVB,EVB 06800923
691: 70261 FORMAT (1H ,16X,10HCORRECT: ,13HF F T T T) 06810923
692: WRITE (NUVI,70261) 06820923
693: GO TO 37055 06830923
694: 37053 CONTINUE 06840923
695: IVPASS=IVPASS+1 06850923
696: WRITE (NUVI,80002) IVTNUM 06860923
697: 37055 CONTINUE 06870923
698: CT027* TEST 27 - CARD 32 SLASH TERMINATING IMPLIED-DO LOOP 06880923
699: IVTNUM = 27 06890923
700: J1I(1) = 1 06900923
701: READ(IRVI,*) (J1I(IVI), IVI=1,3) 06910923
702: C**** TO DELETE CODE SEE NOTES FOR TEST 1 06920923
703: IVCORR=1 06930923
704: IF (J1I(1) - 1) 20270,10270,20270 06940923
705: 10270 IVPASS=IVPASS+1 06950923
706: WRITE (NUVI,80002) IVTNUM 06960923
707: GO TO 0271 06970923
708: 20270 IVFAIL=IVFAIL+1 06980923
709: WRITE (NUVI,80008) IVTNUM 06990923
710: WRITE(NUVI, 80024) J1I(1) 07000923
711: WRITE (NUVI,80026) IVCORR 07010923
712: 0271 CONTINUE 07020923
713: CT028* TEST 28 - CARDS 33-34 SECOND READ SHOULD CAUSE VALUES 07030923
714: C***** TO BE READ FROM SECOND CARD 07040923
715: IVTNUM = 28 07050923
716: READ(IRVI,*) IVI, JVI 07060923
717: READ(IRVI,*) IVI, JVI 07070923
718: C**** TO DELETE TEST SEE NOTES FOR TEST 1 07080923
719: IF (IVI - 5) 20280,40280,20280 07090923
720: 40280 IF (JVI - 6) 20280,10280,20280 07100923
721: 10280 IVPASS=IVPASS+1 07110923
722: WRITE (NUVI,80002) IVTNUM 07120923
723: GO TO 0281 07130923
724: 20280 IVFAIL=IVFAIL+1 07140923
725: WRITE (NUVI,80008) IVTNUM 07150923
726: 70280 FORMAT (1H ,16X,10HCOMPUTED: ,I5,2X,I5) 07160923
727: WRITE (NUVI,70280) IVI,JVI 07170923
728: 70281 FORMAT (1H ,16X,10HCORRECT: ,5H 5,2X,5H 6) 07180923
729: WRITE (NUVI,70281) 07190923
730: 0281 CONTINUE 07200923
731: C***** 07210923
732: CBB** ********************** BBCSUM0 **********************************07220923
733: C**** WRITE OUT TEST SUMMARY 07230923
734: C**** 07240923
735: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 07250923
736: WRITE (I02, 90004) 07260923
737: WRITE (I02, 90014) 07270923
738: WRITE (I02, 90004) 07280923
739: WRITE (I02, 90020) IVPASS 07290923
740: WRITE (I02, 90022) IVFAIL 07300923
741: WRITE (I02, 90024) IVDELE 07310923
742: WRITE (I02, 90026) IVINSP 07320923
743: WRITE (I02, 90028) IVTOTN, IVTOTL 07330923
744: CBE** ********************** BBCSUM0 **********************************07340923
745: CBB** ********************** BBCFOOT0 **********************************07350923
746: C**** WRITE OUT REPORT FOOTINGS 07360923
747: C**** 07370923
748: WRITE (I02,90016) ZPROG, ZPROG 07380923
749: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 07390923
750: WRITE (I02,90019) 07400923
751: CBE** ********************** BBCFOOT0 **********************************07410923
752: CBB** ********************** BBCFMT0A **********************************07420923
753: C**** FORMATS FOR TEST DETAIL LINES 07430923
754: C**** 07440923
755: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 07450923
756: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 07460923
757: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 07470923
758: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 07480923
759: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 07490923
760: 1I6,/,1H ,15X,10HCORRECT= ,I6) 07500923
761: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 07510923
762: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 07520923
763: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 07530923
764: 1A21,/,1H ,16X,10HCORRECT= ,A21) 07540923
765: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 07550923
766: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 07560923
767: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 07570923
768: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 07580923
769: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 07590923
770: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 07600923
771: 80050 FORMAT (1H ,48X,A31) 07610923
772: CBE** ********************** BBCFMT0A **********************************07620923
773: CBB** ********************** BBCFMT0B **********************************07630923
774: C**** FORMAT STATEMENTS FOR PAGE HEADERS 07640923
775: C**** 07650923
776: 90002 FORMAT (1H1) 07660923
777: 90004 FORMAT (1H ) 07670923
778: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 07680923
779: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 07690923
780: 90008 FORMAT (1H ,21X,A13,A17) 07700923
781: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 07710923
782: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 07720923
783: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 07730923
784: 1 7X,7HREMARKS,24X) 07740923
785: 90014 FORMAT (1H ,46H----------------------------------------------, 07750923
786: 1 33H---------------------------------) 07760923
787: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 07770923
788: C**** 07780923
789: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 07790923
790: C**** 07800923
791: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 07810923
792: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 07820923
793: 1 A13) 07830923
794: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 07840923
795: C**** 07850923
796: C**** FORMAT STATEMENTS FOR RUN SUMMARY 07860923
797: C**** 07870923
798: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 07880923
799: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 07890923
800: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 07900923
801: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 07910923
802: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 07920923
803: CBE** ********************** BBCFMT0B **********************************07930923
804: C***** END OF TEST SEGMENT 370 07940923
805: STOP 07950923
806: END 07960923
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.