![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM110.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 FM110.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***********************************************************************00010110
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 00020110
6: C***** FM110 IOFMT - (350) 00030110
7: C***** 00040110
8: C***********************************************************************00050110
9: C***** GENERAL PURPOSE SUBSET REFS00060110
10: C***** TO TEST ADDITIONAL FEATURES OF READ AND WRITE 12.8 00070110
11: C***** STATEMENTS, FORMATTED RECORDS AND FORMAT STATEMENTS 12.1.1 00080110
12: C***** FOR INTEGER AND REAL DATA TYPES 00090110
13: C***** RESTRICTIONS OBSERVED 00100110
14: C***** * ALL FORMAT STATEMENTS ARE LABELED 13.1.1 00110110
15: C***** * H AND X DESCRIPTORS ARE NEVER REPEATED 13.2.1 00120110
16: C***** * FOR W.D DESCRIPTORS, D IS ALWAYS SPECIFIED AND 00130110
17: C***** W IS EQUAL TO OR GREATER THAN D 00140110
18: C***** * FIELD WIDTH IS NEVER ZERO 00150110
19: C***** * IF AN I/O LIST SPECIFIES AT LEAST ONE ITEM 13.3 00160110
20: C***** AT LEAST ONE REPEATABLE EDIT DESCRIPTOR MUST EXIST 00170110
21: C***** IN THE FORMAT SPECIFICATION 00180110
22: C***** * ITEMS IN I/O LIST CORRESPOND TO EDIT DESCRIPTORS 00190110
23: C***** * NEGATIVE OUTPUT VALUES ARE SIGNED 13.5.9 00200110
24: C***** * AN H EDIT DESCRIPTOR IS NEVER USED ON INPUT 13.5.2 00210110
25: C***** * IN THE INPUT FIELD, FOR THE IW EDIT DESCRIPTOR 13.5.9.1 00220110
26: C***** THE CHARACTER STRING MUST BE AN OPTIONALLY SIGNED 00230110
27: C***** INTEGER CONSTANT 00240110
28: CBB** ********************** BBCCOMNT **********************************00250110
29: C**** 00260110
30: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00270110
31: C**** VERSION 2.0 00280110
32: C**** 00290110
33: C**** 00300110
34: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00310110
35: C**** GENERAL SERVICES ADMINISTRATION 00320110
36: C**** FEDERAL SOFTWARE TESTING CENTER 00330110
37: C**** 5203 LEESBURG PIKE, SUITE 1100 00340110
38: C**** FALLS CHURCH, VA. 22041 00350110
39: C**** 00360110
40: C**** (703) 756-6153 00370110
41: C**** 00380110
42: CBE** ********************** BBCCOMNT **********************************00390110
43: C INPUT DATA TO THIS SEGMENT CONSISTS OF 40 CARD IMAGES IN COL. 1 - 80 00400110
44: C COLS. 22 25 31 34-35 40-43 55 67 69 74-76 00410110
45: CARD 1 . . . 0. E+00 + + . E00 00420110
46: C COLS. 16 31 33 42-45 50 59-60 00430110
47: CARD 2 + + . D+00 . D0 00440110
48: C COLS. 1-----------14 18-----26 28-------38 00450110
49: CARD 3 1.23456987654. +1.234E-0 -98.7654E+0 00460110
50: C COLS 1---5 00470110
51: CARDS 4,5,6,7,8 12345 00480110
52: C COLS. 1-3 00490110
53: CARDS 9,10,11,12 1.1 00500110
54: C COLS. 1------------------------------------------------------58 00510110
55: CARD 13 +0.339567E+02 00520110
56: CARD 14 + .339567+2 00530110
57: CARD 15 + 3.395670E1 00540110
58: CARD 16 0.96295134244D+04 00550110
59: CARD 17 .96295134244D04 00560110
60: CARD 18 0.96295134244+4 00570110
61: CARD 19 +.96295134244D4 00580110
62: CARD 20 31.23+0.14E+04+0.2D+02 00590110
63: CARD 21 31.23 .14D+4 +.2+2 00600110
64: CARD 22 -0.13579E+054444 00610110
65: CARD 23 4444 00620110
66: CARD 24 4444 00630110
67: CARD 25 4444 00640110
68: CARD 26 4444 00650110
69: CARD 27 -333 5.555+0.4545E-04 00660110
70: CARD 28 -6.666 .9989E+12 00670110
71: CARD 29 7.77-0.747E-02 +0.549E022 00680110
72: CARD 30 +0.662E-00 0.468-1011 00690110
73: CARD 31 0.59542D+04-44.6666-0.1234560000D-03 00700110
74: CARD 32 54.9327-0.1395624534D+00 00710110
75: CARD 33 65432.1 00720110
76: CARD 34 +0.848E+03 .848E3 + .1290D7+0.129D+07 0.412D21 00730110
77: CARD 35 22222222222222222222222222222222222222222222222222 00740110
78: CARD 36 -.987E0-0.987E+00 -.987D0 00750110
79: CARD 37 5 5 00760110
80: CARD 38 987654 8647.86 987.654 00770110
81: CARD 39 1.2345E0 1.2345 1234.5 00780110
82: CARD 40 12345. 00790110
83: CARD COLS. NOT MENTIONED ARE BLANK 00800110
84: C***** 00810110
85: C***** S P E C I F I C A T I O N S SEGMENT 350 00820110
86: C***** 00830110
87: REAL A1S(5),A2S(2,2),A3S(3,3,3),AC1S(25),AC2S(5,6) 00840110
88: DIMENSION IAC1I(5),IAC2I(2,7),EP1S(33) 00850110
89: INTEGER MCA3I(2,3,3) 00860110
90: REAL MVS 00870110
91: C CHARACTER*80 IDATA 00880110
92: C***** IDATA USED BY TEST 3 TO BYPASS CARDS 4-21 TO DELETE TEST 00890110
93: C***** 00900110
94: CBB** ********************** BBCINITA **********************************00910110
95: C**** SPECIFICATION STATEMENTS 00920110
96: C**** 00930110
97: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00940110
98: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00950110
99: CBE** ********************** BBCINITA **********************************00960110
100: CBB** ********************** BBCINITB **********************************00970110
101: C**** INITIALIZE SECTION 00980110
102: DATA ZVERS, ZVERSD, ZDATE 00990110
103: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 01000110
104: DATA ZCOMPL, ZNAME, ZTAPE 01010110
105: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 01020110
106: DATA ZPROJ, ZTAPED, ZPROG 01030110
107: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 01040110
108: DATA REMRKS /' '/ 01050110
109: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 01060110
110: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 01070110
111: C**** 01080110
112: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 01090110
113: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 01100110
114: CZ03 ZPROG = 'PROGRAM NAME' 01110110
115: ZDATE = '07-Nov-85 ' *RP
116: ZCOMPL = 'CCI 5.2 ' *RP
117: ZPROJ = 'TC-85- -410' *RP
118: ZNAME = ' ' *RP
119: ZTAPE = ' ' *RP
120: ZTAPED = '850703 ' *RP
121: C 01180110
122: IVPASS = 0 01190110
123: IVFAIL = 0 01200110
124: IVDELE = 0 01210110
125: IVINSP = 0 01220110
126: IVTOTL = 0 01230110
127: IVTOTN = 0 01240110
128: ICZERO = 0 01250110
129: C 01260110
130: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 01270110
131: I01 = 05 01280110
132: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 01290110
133: I02 = 06 01300110
134: C 01310110
135: I01 = 5 01320110
136: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 01330110
137: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 01340110
138: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 01350110
139: C 01360110
140: I02 = 6 01370110
141: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 01380110
142: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 01390110
143: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 01400110
144: C 01410110
145: CBE** ********************** BBCINITB **********************************01420110
146: IRVI = I01 01430110
147: NUVI = I02 01440110
148: IVTOTL = 11 01450110
149: ZPROG='FM110' 01460110
150: CBB** ********************** BBCHED0A **********************************01470110
151: C**** 01480110
152: C**** WRITE REPORT TITLE 01490110
153: C**** 01500110
154: WRITE (I02, 90002) 01510110
155: WRITE (I02, 90006) 01520110
156: WRITE (I02, 90007) 01530110
157: WRITE (I02, 90008) ZVERS, ZVERSD 01540110
158: WRITE (I02, 90009) ZPROG, ZPROG 01550110
159: WRITE (I02, 90010) ZDATE, ZCOMPL 01560110
160: CBE** ********************** BBCHED0A **********************************01570110
161: C***** ALL VARIABLES AND ARRAY ELEMENTS USED IN THIS SEGMENT 01580110
162: C***** ARE FIRST SET TO A NON-ZERO VALUE 01590110
163: C***** 01600110
164: C***** HEADER FOR SEGMENT 350 WRITTEN 01610110
165: 35000 FORMAT (//2X,38HIOFMT - (350) ADDITIONAL FORMATTED I/O //16X, 01620110
166: 1 14HDATA TRANSFERS,//2X, 24HSUBSET REFS - 12.8 13.) 01630110
167: WRITE (NUVI,35000) 01640110
168: C***** 01650110
169: CBB** ********************** BBCHED0B **********************************01660110
170: C**** WRITE DETAIL REPORT HEADERS 01670110
171: C**** 01680110
172: WRITE (I02,90004) 01690110
173: WRITE (I02,90004) 01700110
174: WRITE (I02,90013) 01710110
175: WRITE (I02,90014) 01720110
176: WRITE (I02,90015) IVTOTL 01730110
177: CBE** ********************** BBCHED0B **********************************01740110
178: JACVI = 11111 01750110
179: IAC1I(1) = -2345 01760110
180: IAC2I(1,1) = 9999 01770110
181: MCA3I(1,1,1) = 2 01780110
182: ACVS = 1.2 01790110
183: BCVS = -.34E-3 01800110
184: A1S(1) = 34.56 01810110
185: A1S(2) = 456.789E+02 01820110
186: A2S(1,1) = -7899.3 01830110
187: A2S(2,1) = +9876.543E-01 01840110
188: A3S(1,1,1) = .543 01850110
189: A3S(2,1,1) = 4.33E+1 01860110
190: MVS = +2.22E+01 01870110
191: A1S(3) = -.33456E-01 01880110
192: A2S(1,2) = 9987.76E+2 01890110
193: A3S(3,1,1) = 44.E-2 01900110
194: C**** 01910110
195: C 01920110
196: CT001* TEST 1 01930110
197: IVTNUM = 1 01940110
198: C****** 01950110
199: C***** TEST THAT BLANK INPUT FIELDS ARE TREATED AS ZERO 13.5.9 01960110
200: C***** I, E, and F EDIT DESCRIPTORS ARE TESTED 01970110
201: C***** CARDS 1 AND 2 01980110
202: C***** 01990110
203: 35001 FORMAT (4(I5), 4(F3.1), 4(F11.4)/ 4(E15.8)) 02000110
204: READ (IRVI,35001) JACVI, IAC1I(1), IAC2I(1,1), MCA3I(1,1,1), ACVS,02010110
205: 1 A1S(1), A2S(1,1), A3S(1,1,1), BCVS, A1S(2), A2S(2,1), 02020110
206: 2 A3S(2,1,1), MVS, A1S(3), A2S(1,2), A3S(3,1,1) 02030110
207: C**** TO DELETE TEST INSERT THE FOLLOWING CODE: 02040110
208: C**** IVDELE=IVDELE+1 02050110
209: C**** WRITE (NUVI,80000) IVTNUM 02060110
210: C**** COMMENT OUT FOLLOWING CODE UNTIL NEXT TEST 02070110
211: IVINSP=IVINSP+1 02080110
212: WRITE (NUVI,80004) IVTNUM 02090110
213: 70010 FORMAT (/49X,27HTHIS TEST CONTAINS 4 GROUPS, 02100110
214: 1 /49X,26HALL ANSWERS SHOULD BE ZERO) 02110110
215: C************************** 02120110
216: WRITE (NUVI,70010) 02130110
217: 35002 FORMAT (1H ,16X,10HCOMPUTED: ,22X, 02140110
218: 1 25H4 COMPUTED LINES EXPECTED,4(/23X,I6), 02150110
219: 2 /17X,10HCOMPUTED: ,22X,25H4 COMPUTED LINES EXPECTED, 02160110
220: 3 4(/23X,F8.1),/17X,10HCOMPUTED: ,22X, 02170110
221: 4 25H4 COMPUTED LINES EXPECTED,4(/23X,F12.5), 02180110
222: 5 /17X,10HCOMPUTED: ,22X,25H4 COMPUTED LINES EXPECTED, 02190110
223: 6 4(/23X,E12.1)) 02200110
224: WRITE (NUVI,35002) JACVI, IAC1I(1), IAC2I(1,1), MCA3I(1,1,1),ACVS,02210110
225: 1 A1S(1), A2S(1,1), A3S(1,1,1), BCVS, A1S(2), A2S(2,1), 02220110
226: 2 A3S(2,1,1), MVS, A1S(3), A2S(1,2), A3S(3,1,1) 02230110
227: C***** 02240110
228: CT002* TEST 2 02250110
229: IVTNUM = 2 02260110
230: C***** TEST THAT DECIMAL POINTS APPEARING IN INPUT FIELDS 13.5.9.2.102270110
231: C***** OVERRIDE THE SPECIFICATIONS SUPPLIED BY E AND F 02280110
232: C***** EDIT DESCRIPTORS 02290110
233: 70020 FORMAT (1H ,48X,27HTHIS TEST CONTAINS 4 GROUPS) 02300110
234: CMAVS = 1.23456 02310110
235: CMBVS = 987654. 02320110
236: CMEVS = 0.1234E+01 02330110
237: CMFVS = -0.987654E+02 02340110
238: C***** CARD 3 02350110
239: 35004 FORMAT (2(F7.3), 2(E12.5)) 02360110
240: READ (IRVI,35004) ACVS, BCVS, FFCVS, GGCVS 02370110
241: 35005 FORMAT (1H ,16X,10HCOMPUTED: ,22X,25H2 COMPUTED LINES EXPECTED, 02380110
242: 1 2(/23X,F12.5),/17X,10HCORRECT: ,8H 1.23456, 02390110
243: 2 //17X,10HCOMPUTED: ,22X,25H2 COMPUTED LINES EXPECTED, 02400110
244: 3 2(/23X,F13.1),/17X,10HCORRECT: ,9H 987654.0, 02410110
245: 4 //17X,10HCOMPUTED: ,22X,25H2 COMPUTED LINES EXPECTED, 02420110
246: 5 2(/23X,E15.4),/17X,10HCORRECT: ,11H 0.1234E+01,4H OR , 02430110
247: 6 10H .1234+001,//17X,10HCOMPUTED: ,22X, 02440110
248: 7 25H2 COMPUTED LINES EXPECTED,2(/23X,E17.6), 02450110
249: 8 /17X,10HCORRECT: ,13H-0.987654E+02,4H OR ,12H-.987654+002) 02460110
250: C**** SEE TEST 1 TO DELETE TEST (ENTER CODE HERE) 02470110
251: IVINSP=IVINSP+1 02480110
252: WRITE (NUVI,80004) IVTNUM 02490110
253: WRITE (NUVI,70020) 02500110
254: WRITE (NUVI,35005) CMAVS, ACVS, CMBVS, BCVS, CMEVS, FFCVS, 02510110
255: 1 CMFVS, GGCVS 02520110
256: C***** 02530110
257: CT003* TEST 3 02540110
258: IVTNUM=3 02550110
259: C***** TEST COMPLETE FORMAT RESCAN 13.3 02560110
260: C***** WHEN ADDITIONAL ITEMS REMAIN IN AN I/O LIST 02570110
261: C***** AND THE LAST RIGHT PARENTHESIS HAS BEEN REACHED 02580110
262: C***** IN THE CORRESPONDING FORMAT STATEMENT 02590110
263: JACVI = +12345 02600110
264: KBCVI = 3 02610110
265: CMAVS = 1.1 02620110
266: CMBVS = 1.23 02630110
267: CMEVS = 33.9567 02640110
268: CMGVS = 1.4E+03 02650110
269: AVS = .962951E+4 02660110
270: BVS = 2.0E1 02670110
271: C***** CARDS 4, 5, 6, 7, 8 02680110
272: 70030 FORMAT (/49X,27HTHIS TEST CONTAINS 5 GROUPS) 02690110
273: C*********************** 02700110
274: C**** TO DELETE TEST 3 - CARDS 4 THRU 21 MUST BE BYPASS 02710110
275: C**** USE THE FOLLOWING CODE: 02720110
276: C**** IVDELE=IVDELE+1 02730110
277: C**** WRITE (NUVI,80000) IVTNUM 02740110
278: C**** DO 0031 IPASS=1,18 02750110
279: C0032 FORMAT (A80) 02760110
280: C**** READ (IRVI,0032) IDATA 02770110
281: C0031 CONTINUE 02780110
282: C**** COMMENT OUT REMAINING CODE UNTIL NEXT TEST 02790110
283: C************************* 02800110
284: IVINSP=IVINSP+1 02810110
285: WRITE (NUVI,80004) IVTNUM 02820110
286: WRITE (NUVI,70030) 02830110
287: 35007 FORMAT (I5) 02840110
288: READ (IRVI,35007) IAC1I 02850110
289: 3509 FORMAT (1H ,16X,10HCOMPUTED: ,22X,25H6 COMPUTED LINES EXPECTED) 02860110
290: WRITE (NUVI,3509) 02870110
291: 35009 FORMAT(23X,I10) 02880110
292: WRITE(NUVI,35009)JACVI,IAC1I 02890110
293: 35008 FORMAT (1H ,16X,10HC0RRECT: ,6H 12345) 02900110
294: WRITE(NUVI,35008) 02910110
295: C***** CARDS 9, 10, 11, 12 02920110
296: 35010 FORMAT(F3.1) 02930110
297: READ (IRVI,35010) A2S 02940110
298: 3501 FORMAT (/17X,10HCOMPUTED: ,22X,25H5 COMPUTED LINES EXPECTED) 02950110
299: WRITE (NUVI,3501) 02960110
300: 35012 FORMAT(23X,F8.1) 02970110
301: WRITE(NUVI,35012)CMAVS,A2S 02980110
302: 35011 FORMAT (1H ,16X,10HC0RRECT: ,4H 1.1) 02990110
303: WRITE (NUVI,35011) 03000110
304: C***** CARDS 13, 14, 15 03010110
305: 35013 FORMAT (E13.6) 03020110
306: READ (IRVI,35013) A1S(1), HHCVS, A1S(2) 03030110
307: 3504 FORMAT (/17X,10HCOMPUTED: ,22X,25H4 COMPUTED LINES EXPECTED) 03040110
308: WRITE (NUVI,3504) 03050110
309: 35015 FORMAT(23X,E17.6) 03060110
310: WRITE(NUVI,35015) CMEVS, A1S(1), HHCVS, A1S(2) 03070110
311: 35014 FORMAT (1H ,16X,10HC0RRECT: ,13H 0.339567E+02,4H OR , 03080110
312: 1 12H .339567+002) 03090110
313: WRITE (NUVI,35014) 03100110
314: C***** CARDS 16, 17, 18, 19 WITH D EXPONENTS 03110110
315: 35016 FORMAT (F18.11/E18.11) 03120110
316: READ (IRVI,35016) A2S 03130110
317: 3507 FORMAT (/17X,10HCOMPUTED: ,22X,25H5 COMPUTED LINES EXPECTED) 03140110
318: WRITE (NUVI,3507) 03150110
319: 35018 FORMAT (23X,E17.6) 03160110
320: WRITE (NUVI,35018) AVS, A2S 03170110
321: 35017 FORMAT (1H ,16X,10HCORRECT: ,13H 0.962951E+04, 03180110
322: 1 4H OR ,12H .962951+004) 03190110
323: WRITE (NUVI,35017) 03200110
324: C***** CARDS 20, 21 03210110
325: 35019 FORMAT (I1,F4.2,E9.2,F8.1) 03220110
326: READ (IRVI,35019) LCCVI, DCVS, AC2S(5,6), A3S(1,2,2), MDCVI, 03230110
327: 1 FFCVS, GGCVS, AAVS 03240110
328: 70033 FORMAT (/17X,10HCOMPUTED: ,22X,25H3 COMPUTED LINES EXPECTED) 03250110
329: WRITE (NUVI,70033) 03260110
330: 35021 FORMAT (23X,I6, F6.2, E10.2, E9.1) 03270110
331: WRITE (NUVI,35021) KBCVI, CMBVS, CMGVS, BVS, LCCVI, DCVS, 03280110
332: 1 AC2S(5,6), A3S(1,2,2), MDCVI, FFCVS, GGCVS, AAVS 03290110
333: 35020 FORMAT (1H ,16X,10HCORRECT: ,22X, 03300110
334: 1 26H2 CORRECT ANSWERS POSSIBLE, 03310110
335: 2 /28X,26H3 1.23 0.14E+04 0.2E+02, 03320110
336: 3 /28X,26H3 1.23 0.14+004 0.2+002) 03330110
337: WRITE (NUVI,35020) 03340110
338: C********************************** 03350110
339: CT004* TEST 4 03360110
340: IVTNUM=4 03370110
341: C***** 03380110
342: C************************************ 03390110
343: C***** TEST THAT FORMAT CONTROL PASSES TO THE GROUP 03400110
344: C***** ENCLOSED BY THE LAST PRECEDING RIGHT PARENTHESIS 03410110
345: C***** WHEN THE I/O LIST CONTAINS MORE ELEMENTS THAN 03420110
346: C***** THE NUMBER OF DESCRIPTORS IN THE FORMAT STATEMENT 03430110
347: C*************************************** 03440110
348: JACVI = +4444 03450110
349: KBCVI = -333 03460110
350: LCCVI = 22 03470110
351: MDCVI = 11 03480110
352: ACVS = 5.555 03490110
353: BCVS = -6.666 03500110
354: CCVS = +7.77 03510110
355: DCVS = 65432.1 03520110
356: CMAVS = -0.13579E+5 03530110
357: CMBVS = 0.4545E-04 03540110
358: CMCVS = 0.9989E12 03550110
359: CMDVS = -0.747E-2 03560110
360: CMEVS = +0.549E+00 03570110
361: CMFVS = 0.662E-0 03580110
362: CMGVS = 0.468E-10 03590110
363: RAVS = +59.542E02 03600110
364: RBVS = -0.01234560E-2 03610110
365: RCVS = -1395624534.E-10 03620110
366: RDVS = +129.E4 03630110
367: REVS = 4.12E+20 03640110
368: FFCVS = -44.6666 03650110
369: GGCVS = +.549327E+2 03660110
370: HHCVS = 848. 03670110
371: MVS = -.987 03680110
372: C***** CARDS 22, 23, 24, 25, 26 03690110
373: 35022 FORMAT ( E12.5, (I4)) 03700110
374: C***** SEE NOTES TEST1 & TEST 3 TO BYPASS TEST 03710110
375: C***** CARDS 22 THRU 26 MUST BE BYPASSED 03720110
376: IVINSP=IVINSP+1 03730110
377: WRITE (NUVI,80004) IVTNUM 03740110
378: WRITE (NUVI,70040) 03750110
379: READ (IRVI,35022) A1S(2), IAC1I 03760110
380: 70040 FORMAT (1H ,48X,27HTHIS TEST CONTAINS 2 GROUPS) 03770110
381: 35023 FORMAT (1H ,16X,10HCOMPUTED: ,22X,25H2 COMPUTED LINES EXPECTED, 03780110
382: 1 2(/23X,E16.5), 03790110
383: 2 /17X,10HCORRECT: ,12H-0.13579E+05,4H OR ,12H -.13579+005, 03800110
384: 3 //17X,10HCOMPUTED: ,22X,25H6 COMPUTED LINES EXPECTED, 03810110
385: 4 /(23X,I9)) 03820110
386: 70041 FORMAT (1H ,16X,10HCORRECT: ,5H 4444) 03830110
387: WRITE (NUVI,35023) CMAVS, A1S(2), JACVI, IAC1I 03840110
388: WRITE (NUVI,70041) 03850110
389: CT005* TEST 5 03860110
390: C***** 03870110
391: IVTNUM = 5 03880110
392: C***** CARDS 27, 28 03890110
393: C***** SEE NOTES TEST 1 & TEST 3 TO DELETE TEST 03900110
394: C***** CARDS 27,28 SHOULD BE BYPASSED 03910110
395: IVINSP=IVINSP+1 03920110
396: WRITE (NUVI,80004) IVTNUM 03930110
397: WRITE (NUVI,70050) 03940110
398: 70050 FORMAT (1H ,48X,27HTHIS TEST CONTAINS 5 GROUPS) 03950110
399: 35025 FORMAT (I4, (F6.3), E11.4) 03960110
400: READ (IRVI,35025) MRRVI, AC1S(1), EP1S(1), A3S(1,1,1), AC2S(2,2) 03970110
401: 35026 FORMAT (1H ,16X,10HCOMPUTED: ,22X,25H2 COMPUTED LINES EXPECTED, 03980110
402: 1 2(/23X,I8),/17X,10HCORRECT: ,4H-333,//17X,10HCOMPUTED: , 03990110
403: 2 22X,25H2 COMPUTED LINES EXPECTED,2(/23X,F10.3), 04000110
404: 3 /17X,10HCORRECT: ,6H 5.555,//17X,10HCOMPUTED: , 04010110
405: 4 22X,25H2 COMPUTED LINES EXPECTED,2(/23X,E15.4), 04020110
406: 5 /17X,10HCORRECT: ,11H 0.4545E-04,4H OR ,9H.4545-004,//17X, 04030110
407: 6 10HCOMPUTED: ,22X,25H2 COMPUTED LINES EXPECTED,2(/23X,F10.3), 04040110
408: 7 /17X,10HCORRECT: ,6H-6.666,//17X, 04050110
409: 8 10HCOMPUTED: ,22X,25H2 COMPUTED LINES EXPECTED,2(/23X,E15.4), 04060110
410: 9 /17X,10HCORRECT: ,11H 0.9989E+12,4H OR ,9H.9989+012) 04070110
411: WRITE (NUVI,35026) KBCVI, MRRVI, ACVS, AC1S(1), CMBVS, EP1S(1), 04080110
412: 1 BCVS, A3S(1,1,1),CMCVS,AC2S(2,2) 04090110
413: CT006* TEST 6 04100110
414: C***** CARDS 29, 30 04110110
415: IVTNUM = 6 04120110
416: C***** SEE NOTES TEST 1 & 3 TO DELETE TEST 04130110
417: C***** CARDS 29 & 30 MUST BE BYPASSED 04140110
418: IVINSP=IVINSP+1 04150110
419: WRITE (NUVI,80004) IVTNUM 04160110
420: 70060 FORMAT (1H ,48X,27HTHIS TEST CONTAINS 7 GROUPS) 04170110
421: WRITE (NUVI,70060) 04180110
422: 35027 FORMAT (F4.2, (2(E10.3)), I2) 04190110
423: READ (IRVI,35027) A2S(2,2), A3S(2,1,1), EP1S(2), MCA3I(1,1,1), 04200110
424: 1 BVS, AC2S(2,1), NECVI 04210110
425: 35028 FORMAT (1H ,16X,10HCOMPUTED: ,22X,25H2 COMPUTED LINES EXPECTED, 04220110
426: 1 2(/23X,F9.2),/17X,10HCORRECT: ,5H 7.77,//17X,10HCOMPUTED: , 04230110
427: 222X,25H2 COMPUTED LINES EXPECTED,2(/23X,E14.3),/17X,10HCORRECT: ,04240110
428: 310H-0.747E-02,4H OR ,9H-.747-002,//17X,10HCOMPUTED: ,22X, 04250110
429: 425H2 COMPUTED LINES EXPECTED,2(/23X,E14.3),/17X,10HCORRECT: , 04260110
430: 510H 0.549E+00,4H OR ,8H.549+000,//17X,10HCOMPUTED: ,22X, 04270110
431: 625H2 COMPUTED LINES EXPECTED,2(/23X,I7),/17X,10HCORRECT: ,3H 22, 04280110
432: 7//17X,10HCOMPUTED: ,22X,25H2 COMPUTED LINES EXPECTED, 04290110
433: 82(/23X,E14.3), /17X,10HCORRECT: ,10H 0.662E+00,4H OR ,8H.662+000)04300110
434: 75028 FORMAT (//17X,10HCOMPUTED: ,22X, 04310110
435: 1 25H2 COMPUTED LINES EXPECTED,2(/23X,E14.3), 04320110
436: 2 /17X,10HCORRECT: ,10H 0.468E-10,4H OR ,8H.468-010, 04330110
437: 3 //17X,10HCOMPUTED: ,22X,25H2 COMPUTED LINES EXPECTED,2(/23X,I7), 04340110
438: 4 /17X,10HCORRECT: ,3H 11) 04350110
439: WRITE (NUVI,35028) CCVS, A2S(2,2), CMDVS, A3S(2,1,1), CMEVS, 04360110
440: 1 EP1S(2), LCCVI, MCA3I(1,1,1), CMFVS, BVS 04370110
441: C 04380110
442: WRITE (NUVI,75028) CMGVS,AC2S(2,1),MDCVI,NECVI 04390110
443: C 04400110
444: CT007* TEST 7 04410110
445: IVTNUM = 7 04420110
446: C***** CARDS 31, 32 04430110
447: C***** SEE NOTES TEST 1 & TEST 3 TO DELETE TEST 04440110
448: C***** CARDS 31,& 32 SHOULD BE BYPASSED 04450110
449: IVINSP=IVINSP+1 04460110
450: WRITE (NUVI,80004) IVTNUM 04470110
451: WRITE (NUVI,70070) 04480110
452: 70070 FORMAT (1H ,48X,27HTHIS TEST CONTAINS 5 GROUPS) 04490110
453: 35029 FORMAT (E12.5, (F8.4, E17.10)) 04500110
454: READ (IRVI,35029) CAVS, EP1S(3), A1S(1), A2S(1,2), A2S(2,1) 04510110
455: 35030 FORMAT (1H ,16X,10HCOMPUTED: ,22X,25H2 COMPUTED LINES EXPECTED, 04520110
456: 1 /(23X, E16.5)) 04530110
457: 70071 FORMAT (/17X,10HCORRECT: ,12H 0.59542E+04,4H OR , 04540110
458: 1 10H.59542+004) 04550110
459: WRITE (NUVI,35030) RAVS, CAVS 04560110
460: WRITE (NUVI,70071) 04570110
461: 35031 FORMAT (1H ,16X,10HCOMPUTED: ,22X,25H2 COMPUTED LINES EXPECTED, 04580110
462: 1 2(/23X,F12.4),/17X,10HCORRECT: ,8H-44.6666, 04590110
463: 2 //17X,10HCOMPUTED: ,22X,25H2 COMPUTED LINES EXPECTED, 04600110
464: 3 2(/23X,E17.6), 04610110
465: 4 /17X,10HCORRECT: ,13H-0.123456E-03,4H OR ,12H-.123456-003, 04620110
466: 5 //17X,10HCOMPUTED: ,22X,25H2 COMPUTED LINES EXPECTED, 04630110
467: 6 2(/23X,F12.4),/17X,10HCORRECT: ,8H 54.9327,//17X, 04640110
468: 7 10HCOMPUTED: ,22X,25H2 COMPUTED LINES EXPECTED,/(23X,E17.6)) 04650110
469: C 04660110
470: 70072 FORMAT (/17X,10HCORRECT: ,13H-0.139562E+00,4H OR , 04670110
471: 1 12H-.139562+000) 04680110
472: WRITE (NUVI,35031) FFCVS, EP1S(3), RBVS, A1S(1), GGCVS, A2S(1,2),04690110
473: 1 RCVS, A2S(2,1) 04700110
474: WRITE (NUVI,70072) 04710110
475: C**** 04720110
476: CT008* TEST 8 04730110
477: IVTNUM = 8 04740110
478: C***** CARDS 33, 34, 35, 36 04750110
479: C***** SEE NOTES TEST 1 & TEST 3 TO DELETE TEST 04760110
480: C***** CARDS 33 THRU 36 SHOULD BE BYPASSED 04770110
481: IVINSP=IVINSP+1 04780110
482: WRITE (NUVI,80004) IVTNUM 04790110
483: WRITE (NUVI,70080) 04800110
484: 70080 FORMAT (1H ,48X,27HTHIS TEST CONTAINS 5 GROUPS) 04810110
485: C***** THIS READ CAUSES AN INPUT DATA CARD TO BE SKIPPED 04820110
486: 35032 FORMAT( F7.1, (/2(E10.3), 2(E10.3)), E10.3) 04830110
487: READ (IRVI,35032) CVS, A2S(2,1), A3S(1,2,2), A3S(1,1,1), 04840110
488: 1 A3S(2,2,1), A2S(1,1), A3S(1,2,1), EP1S(4),A1S(2) 04850110
489: 35033 FORMAT (1H ,16X,10HCOMPUTED: ,22X,25H2 COMPUTED LINES EXPECTED, 04860110
490: 1 2(/23X,F12.1),/17X,10HCORRECT: ,8H 65432.1,//17X, 04870110
491: 2 10HCOMPUTED: ,22X,25H3 COMPUTED LINES EXPECTED,3(/23X,E14.3), 04880110
492: 3 /17X,10HCORRECT: ,10H 0.848E+03,4H OR ,8H.848+003,//17X, 04890110
493: 4 10HCOMPUTED: ,22X,25H3 COMPUTED LINES EXPECTED,3(/23X,E14.3), 04900110
494: 5 /17X,10HCORRECT: ,10H 0.129E+07,4H OR ,8H.129+007,//17X, 04910110
495: 6 10HCOMPUTED: ,22X,25H2 COMPUTED LINES EXPECTED,2(/23X,E14.3), 04920110
496: 7 /17X,10HCORRECT: ,10H 0.412E+21,4H OR ,8H.412+021,//17X, 04930110
497: 8 10HCOMPUTED: ,22X,25H4 COMPUTED LINES EXPECTED,4(/23X,E14.3), 04940110
498: 9 /17X,10HCORRECT: ,10H-0.987E+00,4H OR ,9H-.987+000) 04950110
499: WRITE (NUVI,35033) DCVS, CVS, HHCVS, A2S(2,1), A3S(1,2,2),RDVS, 04960110
500: 1 A3S(1,1,1), A3S(2,2,1), REVS, A2S(1,1), 04970110
501: 2 MVS, A3S(1,2,1), EP1S(4),A1S(2) 04980110
502: CT009* TEST 9 04990110
503: IVTNUM = 9 05000110
504: C***** TEST FOR EMPTY FORMAT STATEMENT 05010110
505: C***** SEE NOTES TEST 1 TO DELETE TEST 05020110
506: IVINSP=IVINSP+1 05030110
507: WRITE (NUVI,80004) IVTNUM 05040110
508: 35034 FORMAT (1H ,48X,22HEMPTY FORMAT ( ) WRITE, 05050110
509: 1 //2X,34HTHE FOLLOWING LINE SHOULD BE BLANK) 05060110
510: WRITE (NUVI,35034) 05070110
511: 35035 FORMAT ( ) 05080110
512: WRITE (NUVI,35035) 05090110
513: 35036 FORMAT (2X,23H END EMPTY FORMAT TEST) 05100110
514: WRITE (NUVI,35036) 05110110
515: C***** POSITION INPUT TO INSURE CORRECT RECORD FOR NEXT TESTS 05120110
516: 35037 IF (MRRVI - 5) 35038, 35039, 35038 05130110
517: C***** CARD 37 05140110
518: 35038 READ (IRVI, 35025) MRRVI 05150110
519: GO TO 35037 05160110
520: 35039 CONTINUE 05170110
521: CT010* TEST 10 05180110
522: IVTNUM = 10 05190110
523: C***** 05200110
524: C***** ADDITIONAL SCALE FACTOR ON INPUT-OUTPUT 13.5.7 05210110
525: C***** CARD 38 05220110
526: IVINSP=IVINSP+1 05230110
527: WRITE (NUVI,80004) IVTNUM 05240110
528: 35040 FORMAT (1PE10.3, -1PE10.2, E10.3) 05250110
529: READ (IRVI,35040) A1S(3), A1S(4), A1S(5) 05260110
530: C**** SEE NOTES TEST 1 TO DELETE TEST (INSERT CODE HERE) 05270110
531: 35041 FORMAT (1H ,16X,10HCOMPUTED: , 05280110
532: 1 E12.3, E12.4, E12.4, 05290110
533: 2 /17X,10HCORRECT: ,22X,26H2 CORRECT ANSWERS POSSIBLE, 05300110
534: 3 /30X,33H0.988E+02 0.8648E+05 0.9877E+04, 05310110
535: 4 /30X,33H .988+002 .8648+005 .9877+004) 05320110
536: WRITE(NUVI, 35041) A1S(3), A1S(4), A1S(5) 05330110
537: CT011* TEST 11 05340110
538: IVTNUM = 11 05350110
539: C***** CARDS 39 & 40 05360110
540: C***** SCALE FACTOR HAS NO EFFECT ON FORMAT RESCAN OR F EDIT 05370110
541: C***** DESCRIPTOR WITH INPUT DATA CONTAINING AN EXPONENT 05380110
542: AAVS = .087654 05390110
543: BAVS = .87654 05400110
544: 35042 FORMAT (-1P2F8.1, +1P, 2X,(F8.1)) 05410110
545: READ (IRVI, 35042) AVS, BVS, CVS, DVS 05420110
546: C**** SEE NOTES TEST 1 TO DELETE TEST 05430110
547: IVINSP=IVINSP+1 05440110
548: WRITE (NUVI,80004) IVTNUM 05450110
549: 35043 FORMAT (1H ,16X,10HCOMPUTED: ,22X, 05460110
550: 1 25H3 COMPUTED LINES EXPECTED,/25X,F8.4, F8.3, F8.2, F8.1, 1P, 05470110
551: 2 /26X, F5.4, 3X, 2P, F5.3, +3P, 1H , (23X,F6.2),3X) 05480110
552: 5043 FORMAT (17X,10HCORRECT: ,22X,26H , 05490110
553: 1 /25X,32H 1.2345 12.345 123.45 1234.5,/24X, 05500110
554: 2 45H .8765 8.765 87.65/21X, 05510110
555: 3 8H 876.54) 05520110
556: WRITE (NUVI,35043) AVS,BVS,CVS,DVS,AAVS,AAVS,AAVS,BAVS 05530110
557: WRITE (NUVI,5043) 05540110
558: CBB** ********************** BBCSUM0 **********************************05550110
559: C**** WRITE OUT TEST SUMMARY 05560110
560: C**** 05570110
561: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 05580110
562: WRITE (I02, 90004) 05590110
563: WRITE (I02, 90014) 05600110
564: WRITE (I02, 90004) 05610110
565: WRITE (I02, 90020) IVPASS 05620110
566: WRITE (I02, 90022) IVFAIL 05630110
567: WRITE (I02, 90024) IVDELE 05640110
568: WRITE (I02, 90026) IVINSP 05650110
569: WRITE (I02, 90028) IVTOTN, IVTOTL 05660110
570: CBE** ********************** BBCSUM0 **********************************05670110
571: CBB** ********************** BBCFOOT0 **********************************05680110
572: C**** WRITE OUT REPORT FOOTINGS 05690110
573: C**** 05700110
574: WRITE (I02,90016) ZPROG, ZPROG 05710110
575: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 05720110
576: WRITE (I02,90019) 05730110
577: CBE** ********************** BBCFOOT0 **********************************05740110
578: CBB** ********************** BBCFMT0A **********************************05750110
579: C**** FORMATS FOR TEST DETAIL LINES 05760110
580: C**** 05770110
581: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 05780110
582: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 05790110
583: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 05800110
584: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 05810110
585: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 05820110
586: 1I6,/,1H ,15X,10HCORRECT= ,I6) 05830110
587: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 05840110
588: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 05850110
589: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 05860110
590: 1A21,/,1H ,16X,10HCORRECT= ,A21) 05870110
591: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 05880110
592: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 05890110
593: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 05900110
594: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 05910110
595: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 05920110
596: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 05930110
597: 80050 FORMAT (1H ,48X,A31) 05940110
598: CBE** ********************** BBCFMT0A **********************************05950110
599: CBB** ********************** BBCFMAT1 **********************************05960110
600: C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 05970110
601: C**** 05980110
602: 80031 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 05990110
603: 1D17.10,/,1H ,16X,10HCORRECT= ,D17.10) 06000110
604: 80033 FORMAT (1H ,16X,10HCOMPUTED= ,D17.10,10X,A31) 06010110
605: 80035 FORMAT (1H ,16X,10HCORRECT= ,D17.10,10X,A31) 06020110
606: 80037 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 06030110
607: 80039 FORMAT (1H ,16X,10HCORRECT= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 06040110
608: 80041 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 06050110
609: 80043 FORMAT (1H ,16X,10HCORRECT= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 06060110
610: 80045 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 06070110
611: 11H(,F12.5,2H, ,F12.5,1H)/,1H ,16X,10HCORRECT= , 06080110
612: 21H(,F12.5,2H, ,F12.5,1H)) 06090110
613: CBE** ********************** BBCFMAT1 **********************************06100110
614: CBB** ********************** BBCFMT0B **********************************06110110
615: C**** FORMAT STATEMENTS FOR PAGE HEADERS 06120110
616: C**** 06130110
617: 90002 FORMAT (1H1) 06140110
618: 90004 FORMAT (1H ) 06150110
619: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 06160110
620: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 06170110
621: 90008 FORMAT (1H ,21X,A13,A17) 06180110
622: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 06190110
623: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 06200110
624: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 06210110
625: 1 7X,7HREMARKS,24X) 06220110
626: 90014 FORMAT (1H ,46H----------------------------------------------, 06230110
627: 1 33H---------------------------------) 06240110
628: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 06250110
629: C**** 06260110
630: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 06270110
631: C**** 06280110
632: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 06290110
633: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 06300110
634: 1 A13) 06310110
635: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 06320110
636: C**** 06330110
637: C**** FORMAT STATEMENTS FOR RUN SUMMARY 06340110
638: C**** 06350110
639: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 06360110
640: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 06370110
641: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 06380110
642: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 06390110
643: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 06400110
644: CBE** ********************** BBCFMT0B **********************************06410110
645: C***** END OF TEST SEGMENT 350 06420110
646: STOP 06430110
647: END 06440110
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.