![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM900.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 FM900.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***********************************************************************00010900
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 00020900
6: C***** FM900 FMTRWF - (021) 00030900
7: C***** 00040900
8: C***********************************************************************00050900
9: C***** GENERAL PURPOSE ANS REFS00060900
10: C***** TO TEST SIMPLE FORMAT AND FORMATTED DATA 12.9.5.200070900
11: C***** TRANSFER STATEMENTS IN EXTERNAL SEQUENTIAL I/O SO 13.1.1 00080900
12: C***** THAT THESE FEATURES MAY BE USED IN OTHER TEST 12.8.1 00090900
13: C***** PROGRAM SEGMENTS FOR DOUBLE PRECISION AND COMPLEX 00100900
14: C***** DATA TYPES. 00110900
15: C***** RESTRICTIONS OBSERVED 12.8.2 00120900
16: C***** * ALL FORMAT STATEMENTS ARE LABELED 13.1.1 00130900
17: C***** * H AND X DESCRIPTORS ARE NEVER REPEATED 13.2.1 00140900
18: C***** * FOR W.D DESCRIPTORS, D IS ALWAYS SPECIFIED AND 00150900
19: C***** W IS EQUAL TO OR GREATER THAN D 00160900
20: C***** * FIELD WIDTH IS NEVER ZERO 13.2.1 00170900
21: C***** * IF AN I/O LIST SPECIFIES AT LEAST ONE LIST ITEM 13.3 00180900
22: C***** AT LEAST ONE REPEATABLE EDIT DESCRIPTOR MUST EXIST 00190900
23: C***** IN THE FORMAT SPECIFICATION 00200900
24: C***** * ITEMS IN I/O LIST CORRESPOND TO EDIT DESCRIPTORS 13.3 00210900
25: C***** * NEGATIVE OUTPUT VALUES ARE SIGNED 13.5.9 00220900
26: C***** * FIELD WIDTH NEVER EXCEEDED BY OUTPUT 13.5.9 00230900
27: C***** GENERAL COMMENTS 00240900
28: C***** PLUS SIGNS FOR INPUT FIELDS ARE USUALLY OMITTED 13.5.9 00250900
29: C***** FORMATTED WRITES WITHOUT AN I/O LIST (FORMAT 13.5.2 00260900
30: C***** STATEMENTS TEST H AND X DESCRIPTORS AND SLASH 13.5.3 00270900
31: C***** RECORD DIVIDERS) 13.5.4 00280900
32: C***** 00290900
33: CBB** ********************** BBCCOMNT **********************************00300900
34: C**** 00310900
35: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00320900
36: C**** VERSION 2.0 00330900
37: C**** 00340900
38: C**** 00350900
39: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00360900
40: C**** GENERAL SERVICES ADMINISTRATION 00370900
41: C**** FEDERAL SOFTWARE TESTING CENTER 00380900
42: C**** 5203 LEESBURG PIKE, SUITE 1100 00390900
43: C**** FALLS CHURCH, VA. 22041 00400900
44: C**** 00410900
45: C**** (703) 756-6153 00420900
46: C**** 00430900
47: CBE** ********************** BBCCOMNT **********************************00440900
48: C***** 00450900
49: C INPUT DATA TO THIS SEGMENT CONSISTS OF 17 CARD IMAGES IN COL. 1 - 80 00460900
50: COL. 1----------------------------------------------------------61 00470900
51: CARD 1 1.05.522.066.633.123455.0789 00480900
52: CARD 2 123.00456.88 0.123E+01 +0.987+1 -0.2345+02 -0.6879E+2+0.7E+0 00490900
53: COL 62-----70 00500900
54: CARD 2 3 0.4E+03 00510900
55: COL. 1----------------------------------------------------------61 00520900
56: CARD 3 0.9876543E-04+0.1357913E-04 00530900
57: CARD 4 19.34+0.2468E+02 +.765+287.643.96 0.5407E+0243.96+0.5407E+0 00540900
58: COL. 62-------------78 00550900
59: CARD 4 243.96 0.5407+2 00560900
60: COL. 1----------------------------- ----------------------------61 00570900
61: CARD 5 +0.1D+06 00580900
62: CARD 6 -0.334D-04 -.334-4 +0.7657654D00 0.12345678901D+10 00590900
63: CARD 7 +0.98765432109876D-1+0.98765432109876D-01 .98765432109876 00600900
64: COL. 62-66 00610900
65: CARD 7 -1 00620900
66: COL. 1----------------------------------------------------------61 00630900
67: CARD 8 -.555555542D+03 -0.555555542+3 00640900
68: CARD 9 9.91.19.92.29.93.39.94.49.91.19.92.29.93.39.94.4 00650900
69: CARD 10 9.95.59.96.69.97.79.98.89.95.59.96.69.97.79.98.8 00660900
70: CARD 11 -0.99D+01-0.98D+01-0.97D+01-0.96D+01-0.99D+01 -.98D+01 -.97+ 00670900
71: COL. 62-------72 00680900
72: CARD 11 01 -.96+1 00690900
73: CARD 12 +0.99D+01 0.98D+01 +.97D01 +.96D1 00700900
74: CARD 13 +0.99D+01 0.99D+01 0.99D+01+0.99D+01 .99D1 00710900
75: CARD 14 9.95.59.96.69.97.79.98.8 00720900
76: CARD 15 123.45678E2 1234.5678 123.45678 12.345678 1.2345678 .123 00730900
77: COL. 62-66 00740900
78: CARD 15 45678 00750900
79: COL. 1----------------------------------------------------------61 00760900
80: CARD 16 9876.5498.7654E2 9876.54 987.654864786D-486.4786E286.4786 00770900
81: COL. 62---------------80 00780900
82: CARD 16 8657.86D0 9876.54 00790900
83: COL. 1----------------------------------------------------------61 00800900
84: CARD 17 9.8765698.7654E2 9876.54 987.654864786D-386.4786E286.4786 00810900
85: COL. 62---------------80 00820900
86: CARD 17 8657.86D0 9876.54 00830900
87: C***** 00840900
88: C***** S P E C I F I C A T I O N S SEGMENT 021 00850900
89: C***** 00860900
90: DOUBLE PRECISION DPA1D(5),MCA3D(1,4,2),ZZDVD ,A2D(2,2),A3D(2,2,2) 00870900
91: 1,AC1D(10),BC2D(7,4),DPAVD,DPBVD 00880900
92: COMPLEX BVC,QAVC,CHAVC,CHBVC,CHCVC,CHDVC 00890900
93: 1,LL1C(32),LM2C(8,4),A1C(12),A2C(2,2),B3C(2,2,2),B1C(8) 00900900
94: C***** 00910900
95: CBB** ********************** BBCINITA **********************************00920900
96: C**** SPECIFICATION STATEMENTS 00930900
97: C**** 00940900
98: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00950900
99: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00960900
100: CBE** ********************** BBCINITA **********************************00970900
101: CBB** ********************** BBCINITB **********************************00980900
102: C**** INITIALIZE SECTION 00990900
103: DATA ZVERS, ZVERSD, ZDATE 01000900
104: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 01010900
105: DATA ZCOMPL, ZNAME, ZTAPE 01020900
106: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 01030900
107: DATA ZPROJ, ZTAPED, ZPROG 01040900
108: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 01050900
109: DATA REMRKS /' '/ 01060900
110: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 01070900
111: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 01080900
112: C**** 01090900
113: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 01100900
114: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 01110900
115: CZ03 ZPROG = 'PROGRAM NAME' 01120900
116: ZDATE = '07-Nov-85 ' *RP
117: ZCOMPL = 'CCI 5.2 ' *RP
118: ZPROJ = 'TC-85- -410' *RP
119: ZNAME = ' ' *RP
120: ZTAPE = ' ' *RP
121: ZTAPED = '850703 ' *RP
122: C 01190900
123: IVPASS = 0 01200900
124: IVFAIL = 0 01210900
125: IVDELE = 0 01220900
126: IVINSP = 0 01230900
127: IVTOTL = 0 01240900
128: IVTOTN = 0 01250900
129: ICZERO = 0 01260900
130: C 01270900
131: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 01280900
132: I01 = 05 01290900
133: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 01300900
134: I02 = 06 01310900
135: C 01320900
136: I01 = 5 01330900
137: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 01340900
138: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 01350900
139: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 01360900
140: C 01370900
141: I02 = 6 01380900
142: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 01390900
143: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 01400900
144: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 01410900
145: C 01420900
146: CBE** ********************** BBCINITB **********************************01430900
147: IRVI = I01 01440900
148: NUVI = I02 01450900
149: IVTOTL = 36 01460900
150: ZPROG = 'FM900' 01470900
151: CBB** ********************** BBCHED0A **********************************01480900
152: C**** 01490900
153: C**** WRITE REPORT TITLE 01500900
154: C**** 01510900
155: WRITE (I02, 90002) 01520900
156: WRITE (I02, 90006) 01530900
157: WRITE (I02, 90007) 01540900
158: WRITE (I02, 90008) ZVERS, ZVERSD 01550900
159: WRITE (I02, 90009) ZPROG, ZPROG 01560900
160: WRITE (I02, 90010) ZDATE, ZCOMPL 01570900
161: CBE** ********************** BBCHED0A **********************************01580900
162: C***** HEADER FORMAT STATEMENT 01590900
163: WRITE (NUVI,02100) 01600900
164: 02100 FORMAT (1H ,/1X,28HFMTRWF - (021) FORMATTED I/O//2X, 01610900
165: 1 25HREFS - 12.9.5 13.3 13.5) 01620900
166: CBB** ********************** BBCHED0B **********************************01630900
167: C**** WRITE DETAIL REPORT HEADERS 01640900
168: C**** 01650900
169: WRITE (I02,90004) 01660900
170: WRITE (I02,90004) 01670900
171: WRITE (I02,90013) 01680900
172: WRITE (I02,90014) 01690900
173: WRITE (I02,90015) IVTOTL 01700900
174: CBE** ********************** BBCHED0B **********************************01710900
175: C***** TESTS 1 THRU 11: 01720900
176: C***** FORMATTED READ AND WRITE STATEMENTS WITH COMPLEX 12.8.1 01730900
177: C***** VARIABLES AND ARRAY ELEMENTS IN AN I/O LIST. 12.8.2 01740900
178: C***** E AND F CONVERSION ARE USED IN THE FORMAT 13.5.9.2.1-201750900
179: C***** STATEMENTS. SOME FORMAT DESCRIPTORS ARE REPEATED 13.5.9.2.1 01760900
180: C***** 01770900
181: 02101 FORMAT (/8X,23HCOMPLEX CONVERSION TEST/) 01780900
182: WRITE (NUVI,02101) 01790900
183: C***** INPUT CARD 1 01800900
184: 02102 FORMAT ( 2(F3.1) , 2(F4.1), 2(F7.4)) 01810900
185: READ (IRVI,02102) CHAVC, CHBVC, A1C(2) 01820900
186: C***** INPUT CARDS 2, 3 01830900
187: 02103 FORMAT ( 2F6.2, 2E10.3, 2E11.4, 2E8.1/ 2E14.7) 01840900
188: READ (IRVI,02103) A2C(1,2), B3C(2,2,1), CHCVC, A1C(1), CHDVC 01850900
189: C***** INPUT CARD 4 01860900
190: 02104 FORMAT (F5.2, E11.4, E10.3, F4.1, 3(F5.2,E11.4)) 01870900
191: READ (IRVI,02104) A2C(2,1), BVC, QAVC, LM2C(1,2), LL1C(2) 01880900
192: CT001* TEST 1 01890900
193: IVTNUM = 1 01900900
194: WRITE (NUVI, 80004) IVTNUM 01910900
195: WRITE (NUVI, 80020) 01920900
196: WRITE (NUVI, 70010) CHAVC 01930900
197: 70010 FORMAT (26X,F3.1,2X,F3.1) 01940900
198: IVINSP = IVINSP + 1 01950900
199: WRITE (NUVI, 80022) 01960900
200: WRITE (NUVI, 70011) 01970900
201: 70011 FORMAT (26X, 8H1.0 5.5) 01980900
202: CT002* TEST 2 01990900
203: IVTNUM = 2 02000900
204: WRITE (NUVI, 80004) IVTNUM 02010900
205: WRITE (NUVI, 80020) 02020900
206: WRITE (NUVI, 70020) CHBVC 02030900
207: 70020 FORMAT (26X,F4.1,2X,F4.1) 02040900
208: IVINSP = IVINSP + 1 02050900
209: WRITE (NUVI, 80022) 02060900
210: WRITE (NUVI, 70021) 02070900
211: 70021 FORMAT (26X,10H22.0 66.6) 02080900
212: CT003* TEST 3 02090900
213: IVTNUM = 3 02100900
214: WRITE (NUVI, 80004) IVTNUM 02110900
215: WRITE (NUVI, 80020) 02120900
216: WRITE (NUVI, 70030) A1C(2) 02130900
217: 70030 FORMAT (26X,F7.4,2X,F7.4) 02140900
218: IVINSP = IVINSP + 1 02150900
219: WRITE (NUVI, 80022) 02160900
220: WRITE (NUVI, 70031) 02170900
221: 70031 FORMAT (26X,16H33.1234 55.0789) 02180900
222: CT004* TEST 4 02190900
223: IVTNUM = 4 02200900
224: WRITE (NUVI, 80004) IVTNUM 02210900
225: WRITE (NUVI, 80020) 02220900
226: WRITE (NUVI, 70040) A2C(1,2) 02230900
227: 70040 FORMAT (26X,F6.2,2X,F6.2) 02240900
228: IVINSP = IVINSP + 1 02250900
229: WRITE (NUVI, 80022) 02260900
230: WRITE (NUVI, 70041) 02270900
231: 70041 FORMAT (26X,14H123.00 456.88) 02280900
232: CT005* TEST 5 02290900
233: IVTNUM = 5 02300900
234: REMRKS = 'LEADING PLUS SIGN/ZERO OPTIONAL' 02310900
235: WRITE (NUVI, 80004) IVTNUM,REMRKS 02320900
236: WRITE (NUVI, 80020) 02330900
237: WRITE (NUVI, 70050) B3C(2,2,1) 02340900
238: 70050 FORMAT (26X,E10.3,2X,E10.3) 02350900
239: IVINSP = IVINSP + 1 02360900
240: WRITE (NUVI, 70051) 02370900
241: 70051 FORMAT (1H ,16X,10HCORRECT: ,22X,26H2 CORRECT ANSWERS POSSIB02380900
242: 1LE) 02390900
243: WRITE (NUVI, 70052) 02400900
244: 70052 FORMAT (26X,22H+0.123E+01 +0.987E+01/ 02410900
245: 1 26X,22H+0.123+001 +0.987+001) 02420900
246: CT006* TEST 6 02430900
247: IVTNUM = 6 02440900
248: REMRKS = 'LEADING ZERO OPTIONAL' 02450900
249: WRITE (NUVI, 80004) IVTNUM, REMRKS 02460900
250: WRITE (NUVI, 80020) 02470900
251: WRITE (NUVI, 70060) CHCVC 02480900
252: 70060 FORMAT (26X,E11.4,2X,E11.4) 02490900
253: IVINSP = IVINSP + 1 02500900
254: WRITE (NUVI, 70051) 02510900
255: WRITE (NUVI, 70061) 02520900
256: 70061 FORMAT (26X,24H-0.2345E+02 -0.6879E+02/ 02530900
257: 1 26X,24H-0.2345+002 -0.6879+002) 02540900
258: C***** ADVANCE TO TOP-OF-PAGE AND WRITE HEADER 02550900
259: WRITE (NUVI, 90002) 02560900
260: WRITE (NUVI, 90013) 02570900
261: WRITE (NUVI, 90014) 02580900
262: C***** 02590900
263: CT007* TEST 7 02600900
264: IVTNUM = 7 02610900
265: REMRKS = 'LEADING PLUS SIGN/ZERO OPTIONAL' 02620900
266: WRITE (NUVI, 80004) IVTNUM, REMRKS 02630900
267: WRITE (NUVI, 80020) 02640900
268: WRITE (NUVI, 70070) A1C(1) 02650900
269: 70070 FORMAT (26X,E8.1,2X,E8.1) 02660900
270: IVINSP = IVINSP + 1 02670900
271: WRITE (NUVI, 70051) 02680900
272: WRITE (NUVI, 70071) 02690900
273: 70071 FORMAT (26X,18H+0.7E+03 +0.4E+03/ 02700900
274: 1 26X,18H+0.7+003 +0.4+003) 02710900
275: CT008* TEST 8 02720900
276: IVTNUM = 8 02730900
277: WRITE (NUVI, 80004) IVTNUM, REMRKS 02740900
278: WRITE (NUVI, 80020) 02750900
279: WRITE (NUVI, 70080) CHDVC 02760900
280: 70080 FORMAT (26X,E14.7,2X,E14.7) 02770900
281: IVINSP = IVINSP + 1 02780900
282: WRITE (NUVI, 70051) 02790900
283: WRITE (NUVI, 70081) 02800900
284: 70081 FORMAT (26X,30H+0.9876543E-04 +0.1357913E-04/ 02810900
285: 1 26X,30H+0.9876543-004 +0.1357913-004) 02820900
286: CT009* TEST 9 02830900
287: IVTNUM = 9 02840900
288: WRITE (NUVI, 70090) IVTNUM 02850900
289: 70090 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,31HLEADING PLUS SIGN/ZERO 02860900
290: 1OPTIONAL/1H ,48X,21HFOR THE SECOND NUMBER) 02870900
291: WRITE (NUVI, 80020) 02880900
292: WRITE (NUVI, 70091) A2C(2,1) 02890900
293: 70091 FORMAT (26X,F5.2,2X,E11.4) 02900900
294: IVINSP = IVINSP + 1 02910900
295: WRITE (NUVI, 70051) 02920900
296: WRITE (NUVI, 70092) 02930900
297: 70092 FORMAT (26X,18H19.34 +0.2468E+02/ 02940900
298: 1 26X,18H19.34 +0.2468+002) 02950900
299: CT010* TEST 10 02960900
300: IVTNUM = 10 02970900
301: WRITE (NUVI, 70100) IVTNUM 02980900
302: 70100 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,31HLEADING PLUS SIGN/ZERO 02990900
303: 1OPTIONAL/1H ,48X,20HFOR THE FIRST NUMBER) 03000900
304: WRITE (NUVI, 80020) 03010900
305: WRITE (NUVI, 70101) BVC 03020900
306: 70101 FORMAT (26X,E10.3,2X,F4.1) 03030900
307: IVINSP = IVINSP + 1 03040900
308: WRITE (NUVI, 70051) 03050900
309: WRITE (NUVI, 70102) 03060900
310: 70102 FORMAT (26X,16H+0.765E+02 87.6/ 03070900
311: 1 26X,16H+0.765+002 87.6) 03080900
312: CT011* TEST 11 03090900
313: IVTNUM = 11 03100900
314: WRITE (NUVI, 80004) IVTNUM, REMRKS 03110900
315: WRITE (NUVI, 70110) 03120900
316: 70110 FORMAT (1H ,16X,9HCOMPUTED:,23X,25H3 COMPUTED LINES EXPECTED)03130900
317: WRITE (NUVI,70111) QAVC, LM2C(1,2), LL1C(2) 03140900
318: 70111 FORMAT (3(26X,F7.2,E11.4/)) 03150900
319: IVINSP = IVINSP + 1 03160900
320: WRITE (NUVI, 70112) 03170900
321: 70112 FORMAT (1H ,16X,10HCORRECT: ,22X,30HEACH RESULT LINE SHOULD 03180900
322: 1MATCH /1H ,48X,30HEITHER ONE OF THE 2 POSSIBLE / 03190900
323: 2 1H ,48X,13HANSWERS BELOW) 03200900
324: WRITE (NUVI, 70113) 03210900
325: 70113 FORMAT (26X,18H +43.96+0.5407E+02/ 03220900
326: 1 26X,18H +43.96+0.5407+002) 03230900
327: C***** ADVANCE TO TOP-OF-PAGE AND WRITE HEADER 03240900
328: WRITE (NUVI, 90002) 03250900
329: WRITE (NUVI, 90013) 03260900
330: WRITE (NUVI, 90014) 03270900
331: C***** 03280900
332: C***** TESTS 12 THRU 17: 03290900
333: C***** FORMATTED READ AND WRITE STATEMENTS WITH 12.8.1 03300900
334: C***** DOUBLE PRECISION VARIABLES IN AN I/O LIST. 12.8.2 03310900
335: C***** D CONVERSION IS USED IN THE FORMAT STATEMENTS. 13.5.9.2.203320900
336: C***** SOME D FORMAT DESCRIPTORS ARE REPEATED. (FIELD 13.3 03330900
337: C***** WIDTH ALWAYS INCLUDES 6 EXTRA POSITIONS TO 13.5.9 03340900
338: C***** PROVIDE FOR SIGN, DECIMAL POINT AND EXPONENT 13.5.9.2 03350900
339: C***** AND 1 POSITION FOR OPTIONAL DIGIT ZERO BEFORE 03360900
340: C***** THE DECIMAL POINT) 03370900
341: C***** 03380900
342: 02109 FORMAT (/8X, 17HD CONVERSION TEST/) 03390900
343: WRITE (NUVI,02109) 03400900
344: C***** INPUT CARD 5 03410900
345: 02110 FORMAT ( 2X, D8.1) 03420900
346: READ (IRVI,02110) DPAVD 03430900
347: C***** INPUT CARDS 6, 7, 8 03440900
348: 02111 FORMAT ( 2D10.3, D14.7, D18.11/ 3D21.14/ 2D16.9) 03450900
349: READ (IRVI,02111) MCA3D(1,2,2), AC1D(2), BC2D(3,1), AC1D(1), 03460900
350: 1 ZZDVD, AC1D(3), DPBVD, MCA3D(1,2,1), BC2D(1,2) 03470900
351: CT012* TEST 12 03480900
352: IVTNUM = 12 03490900
353: WRITE (NUVI, 80004) IVTNUM, REMRKS 03500900
354: WRITE (NUVI, 80020) 03510900
355: WRITE (NUVI,70120) DPAVD 03520900
356: 70120 FORMAT (26X,D8.1) 03530900
357: IVINSP = IVINSP + 1 03540900
358: WRITE (NUVI, 70121) 03550900
359: 70121 FORMAT (1H ,16X,10HCORRECT: ,22X,26H3 CORRECT ANSWERS POSSIB03560900
360: 1LE) 03570900
361: WRITE (NUVI, 70122) 03580900
362: 70122 FORMAT (26X,8H+0.1D+06/26X,8H+0.1E+06/26X,8H+0.1+006) 03590900
363: CT013* TEST 13 03600900
364: IVTNUM = 13 03610900
365: REMRKS = 'LEADING ZERO OPTIONAL' 03620900
366: WRITE (NUVI, 80004) IVTNUM, REMRKS 03630900
367: WRITE (NUVI, 70130) 03640900
368: 70130 FORMAT (1H ,16X,9HCOMPUTED:,23X,25H2 COMPUTED LINES EXPECTED)03650900
369: WRITE (NUVI, 70131) MCA3D(1,2,2), AC1D(2) 03660900
370: 70131 FORMAT (26X,D10.3 / 26X,D10.3) 03670900
371: IVINSP = IVINSP + 1 03680900
372: WRITE (NUVI, 70132) 03690900
373: 70132 FORMAT (1H ,16X,10HCORRECT: ,22X,30HEACH RESULT LINE SHOULD 03700900
374: 1MATCH /1H ,48X,30HONE OF THE 3 POSSIBLE ANSWERS / 03710900
375: 2 1H ,48X,5HBELOW) 03720900
376: WRITE (NUVI, 70133) 03730900
377: 70133 FORMAT(26X,10H-0.334D-04/26X,10H-0.334E-04/26X,10H-0.334-004)03740900
378: CT014* TEST 14 03750900
379: IVTNUM = 14 03760900
380: REMRKS = 'LEADING PLUS SIGN/ZERO OPTIONAL' 03770900
381: WRITE (NUVI, 80004) IVTNUM, REMRKS 03780900
382: WRITE (NUVI, 80020) 03790900
383: WRITE (NUVI, 70140) BC2D(3,1) 03800900
384: 70140 FORMAT (26X,D14.7) 03810900
385: IVINSP = IVINSP + 1 03820900
386: WRITE (NUVI, 70121) 03830900
387: WRITE (NUVI, 70141) 03840900
388: 70141 FORMAT (26X,14H+0.7657654D+00/ 03850900
389: 1 26X,14H+0.7657654E+00/ 03860900
390: 2 26X,14H+0.7657654+000) 03870900
391: CT015* TEST 15 03880900
392: IVTNUM = 15 03890900
393: WRITE (NUVI, 80004) IVTNUM, REMRKS 03900900
394: WRITE (NUVI, 80020) 03910900
395: WRITE (NUVI, 70150) AC1D(1) 03920900
396: 70150 FORMAT (26X,D18.11) 03930900
397: IVINSP = IVINSP + 1 03940900
398: WRITE (NUVI, 70121) 03950900
399: WRITE (NUVI, 70151) 03960900
400: 70151 FORMAT (26X,18H+0.12345678901D+10/ 03970900
401: 1 26X,18H+0.12345678901E+10/ 03980900
402: 2 26X,18H+0.12345678901+010) 03990900
403: CT016* TEST 16 04000900
404: IVTNUM = 16 04010900
405: WRITE (NUVI, 80004) IVTNUM, REMRKS 04020900
406: WRITE (NUVI, 70110) 04030900
407: WRITE (NUVI, 70160) ZZDVD,AC1D(3),DPBVD 04040900
408: 70160 FORMAT (26X,D21.14 / 26X,D21.14 / 26X,D21.14) 04050900
409: IVINSP = IVINSP + 1 04060900
410: WRITE (NUVI, 70132) 04070900
411: WRITE (NUVI, 70161) 04080900
412: 70161 FORMAT (26X,21H+0.98765432109876D-01/ 04090900
413: 1 26X,21H+0.98765432109876E-01/ 04100900
414: 2 26X,21H+0.98765432109876-001) 04110900
415: CT017* TEST 17 04120900
416: IVTNUM = 17 04130900
417: REMRKS = 'LEADING ZERO OPTIONAL' 04140900
418: WRITE (NUVI, 80004) IVTNUM, REMRKS 04150900
419: WRITE (NUVI, 70130) 04160900
420: WRITE (NUVI, 70170) MCA3D(1,2,1), BC2D(1,2) 04170900
421: 70170 FORMAT (26X,D16.9 /26X,D16.9) 04180900
422: IVINSP = IVINSP + 1 04190900
423: WRITE (NUVI, 70132) 04200900
424: WRITE (NUVI, 70171) 04210900
425: 70171 FORMAT (26X,16H-0.555555542D+03/ 04220900
426: 1 26X,16H-0.555555542E+03/ 04230900
427: 2 26X,16H-0.555555542+003) 04240900
428: C***** ADVANCE TO TOP-OF-PAGE AND WRITE HEADER 04250900
429: WRITE (NUVI, 90002) 04260900
430: WRITE (NUVI, 90013) 04270900
431: WRITE (NUVI, 90014) 04280900
432: C***** 04290900
433: C***** TESTS 18 THRU 22: 04300900
434: C***** FORMATTED READ AND WRITE STATEMENTS WITH ARRAY 12.8.104310900
435: C***** NAMES OF ALL TYPES IN AN I/O LIST. THE NUMBER OF 12.8.204320900
436: C***** ITEMS IN THE LIST IS VARIABLE. SOME FIELD 13.3 04330900
437: C***** DESCRIPTORS ARE REPEATED. 04340900
438: C***** 04350900
439: 02114 FORMAT (/8X, 44HTEST UNSUBSCRIPTED ARRAY NAMES IN I/O LISTS /) 04360900
440: WRITE (NUVI,02114) 04370900
441: C***** INPUT CARDS 9, 10 04380900
442: 02115 FORMAT(2X,8(F3.1),8F3.1/8(2(F3.1))) 04390900
443: READ (IRVI,02115) B1C,B3C 04400900
444: C***** INPUT CARDS 11, 12 04410900
445: 02116 FORMAT(4(D9.2),4D9.2/2X,4(D9.2)) 04420900
446: READ (IRVI,02116) A3D, A2D 04430900
447: C***** INPUT CARDS 13, 14 04440900
448: 02117 FORMAT (2X,4(2X),5(D9.2)/4(2(F3.1))) 04450900
449: READ (IRVI,02117) DPA1D, A2C 04460900
450: CT018* TEST 18 04470900
451: IVTNUM = 18 04480900
452: WRITE (NUVI, 80004) IVTNUM 04490900
453: WRITE (NUVI, 70130) 04500900
454: WRITE (NUVI,70180) B1C 04510900
455: 70180 FORMAT (26X,8(F3.1) / 26X,8(F3.1)) 04520900
456: IVINSP = IVINSP + 1 04530900
457: WRITE (NUVI, 70181) 04540900
458: 70181 FORMAT (1H ,16X,10HCORRECT: ,22X,29HEACH RESULT LINE SHOULD 04550900
459: 1EQUAL) 04560900
460: WRITE (NUVI, 70182) 04570900
461: 70182 FORMAT (26X, 24H9.91.19.92.29.93.39.94.4) 04580900
462: CT019* TEST 19 04590900
463: IVTNUM = 19 04600900
464: WRITE (NUVI, 80004) IVTNUM, REMRKS 04610900
465: WRITE (NUVI, 70130) 04620900
466: WRITE (NUVI, 70190) A3D 04630900
467: 70190 FORMAT (26X,4(D9.2) / 26X,4(D9.2)) 04640900
468: IVINSP = IVINSP + 1 04650900
469: WRITE (NUVI, 70132) 04660900
470: WRITE (NUVI, 70191) 04670900
471: 70191 FORMAT (26X,36H-0.99D+01-0.98D+01-0.97D+01-0.96D+01/ 04680900
472: 1 26X,36H-0.99E+01-0.98E+01-0.97E+01-0.96E+01/ 04690900
473: 2 26X,36H-0.99+001-0.98+001-0.97+001-0.96+001) 04700900
474: CT020* TEST 20 04710900
475: IVTNUM = 20 04720900
476: REMRKS = 'LEADING PLUS SIGN/ZERO OPTIONAL' 04730900
477: WRITE (NUVI, 80004) IVTNUM, REMRKS 04740900
478: WRITE (NUVI, 80020) 04750900
479: WRITE (NUVI,70200) A2D 04760900
480: 70200 FORMAT (26X,4(D9.2)) 04770900
481: IVINSP = IVINSP + 1 04780900
482: WRITE (NUVI, 70121) 04790900
483: WRITE (NUVI, 70201) 04800900
484: 70201 FORMAT (26X,36H+0.99D+01+0.98D+01+0.97D+01+0.96D+01/ 04810900
485: 1 26X,36H+0.99E+01+0.98E+01+0.97E+01+0.96E+01/ 04820900
486: 2 26X,36H+0.99+001+0.98+001+0.97+001+0.96+001) 04830900
487: CT021* TEST 21 04840900
488: IVTNUM = 21 04850900
489: WRITE (NUVI, 80004) IVTNUM, REMRKS 04860900
490: WRITE (NUVI, 70210) 04870900
491: 70210 FORMAT (1H ,16X,9HCOMPUTED:,23X,25H5 COMPUTED LINES EXPECTED)04880900
492: WRITE (NUVI,70211) DPA1D 04890900
493: 70211 FORMAT (5(26X,D11.2/)) 04900900
494: IVINSP = IVINSP + 1 04910900
495: WRITE (NUVI, 70132) 04920900
496: WRITE (NUVI, 70212) 04930900
497: 70212 FORMAT (26X,11H +0.99D+01/ 04940900
498: 1 26X,11H +0.99E+01/ 04950900
499: 2 26X,11H +0.99+001) 04960900
500: CT022* TEST 22 04970900
501: IVTNUM = 22 04980900
502: WRITE (NUVI, 80004) IVTNUM 04990900
503: WRITE (NUVI, 70110) 05000900
504: WRITE (NUVI,70220) A2C, B3C 05010900
505: 70220 FORMAT (26X,8(F3.1) / 26X,8(F3.1) / 26X,8(F3.1)) 05020900
506: IVINSP = IVINSP + 1 05030900
507: WRITE (NUVI, 70181) 05040900
508: WRITE (NUVI, 70221) 05050900
509: 70221 FORMAT (26X,24H9.95.59.96.69.97.79.98.8) 05060900
510: C***** ADVANCE TO TOP-OF-PAGE AND WRITE HEADER 05070900
511: WRITE (NUVI, 90002) 05080900
512: WRITE (NUVI, 90013) 05090900
513: WRITE (NUVI, 90014) 05100900
514: C***** 05110900
515: C***** TESTS 23 THRU 30: 05120900
516: C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.905130900
517: C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 05140900
518: C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH. (D AND 05150900
519: C***** F DESCRIPTORS ARE TESTED.) 05160900
520: C***** 05170900
521: 02121 FORMAT (/8X, 28HLEADING BLANK INSERTION TEST/) 05180900
522: WRITE (NUVI,02121) 05190900
523: CT023* TEST 23 05200900
524: IVTNUM = 23 05210900
525: WRITE (NUVI, 80004) IVTNUM, REMRKS 05220900
526: WRITE (NUVI, 70230) 05230900
527: 70230 FORMAT (1H ,48X,27HLEADING BLANKS ARE REQUIRED) 05240900
528: WRITE (NUVI, 80020) 05250900
529: WRITE (NUVI, 70231) AC1D(3) 05260900
530: 70231 FORMAT (26X,D9.1) 05270900
531: IVINSP = IVINSP + 1 05280900
532: WRITE (NUVI, 70121) 05290900
533: WRITE (NUVI, 70232) 05300900
534: 70232 FORMAT (26X,9H +0.1D+00/26X,9H +0.1E+00/26X,9H +0.1+000) 05310900
535: CT024* TEST 24 05320900
536: IVTNUM = 24 05330900
537: WRITE (NUVI, 80004) IVTNUM, REMRKS 05340900
538: WRITE (NUVI, 70230) 05350900
539: WRITE (NUVI, 80020) 05360900
540: WRITE (NUVI, 70240) ZZDVD 05370900
541: 70240 FORMAT (26X,D10.1) 05380900
542: IVINSP = IVINSP + 1 05390900
543: WRITE (NUVI, 70121) 05400900
544: WRITE (NUVI, 70241) 05410900
545: 70241 FORMAT(26X,10H +0.1D+00/26X,10H +0.1E+00/26X,10H +0.1+000)05420900
546: CT025* TEST 25 05430900
547: IVTNUM = 25 05440900
548: WRITE (NUVI, 80004) IVTNUM, REMRKS 05450900
549: WRITE (NUVI, 70230) 05460900
550: WRITE (NUVI, 80020) 05470900
551: WRITE (NUVI, 70250) ZZDVD 05480900
552: 70250 FORMAT (26X,D11.1) 05490900
553: IVINSP = IVINSP + 1 05500900
554: WRITE (NUVI, 70121) 05510900
555: WRITE (NUVI, 70251) 05520900
556: 70251 FORMAT (26X,11H +0.1D+00/ 05530900
557: 1 26X,11H +0.1E+00/ 05540900
558: 2 26X,11H +0.1+000) 05550900
559: CT026* TEST 26 05560900
560: IVTNUM = 26 05570900
561: WRITE (NUVI, 80004) IVTNUM, REMRKS 05580900
562: WRITE (NUVI, 70230) 05590900
563: WRITE (NUVI, 80020) 05600900
564: WRITE (NUVI, 70260) ZZDVD 05610900
565: 70260 FORMAT (26X,D12.1) 05620900
566: IVINSP = IVINSP + 1 05630900
567: WRITE (NUVI, 70121) 05640900
568: WRITE (NUVI, 70261) 05650900
569: 70261 FORMAT (26X,12H +0.1D+00/ 05660900
570: 1 26X,12H +0.1E+00/ 05670900
571: 2 26X,12H +0.1+000) 05680900
572: CT027* TEST 27 05690900
573: IVTNUM = 27 05700900
574: REMRKS = 'LEADING PLUS OPTIONAL' 05710900
575: WRITE (NUVI, 80004) IVTNUM, REMRKS 05720900
576: WRITE (NUVI, 70230) 05730900
577: WRITE (NUVI, 80020) 05740900
578: WRITE (NUVI, 70270) CHAVC 05750900
579: 70270 FORMAT (26X,2(F5.1)) 05760900
580: IVINSP = IVINSP + 1 05770900
581: WRITE (NUVI, 80022) 05780900
582: WRITE (NUVI, 70271) 05790900
583: 70271 FORMAT (26X,10H +1.0 +5.5) 05800900
584: CT028* TEST 28 05810900
585: IVTNUM = 28 05820900
586: WRITE (NUVI, 80004) IVTNUM, REMRKS 05830900
587: WRITE (NUVI, 70230) 05840900
588: WRITE (NUVI, 80020) 05850900
589: WRITE (NUVI, 70280) B3C(1,1,1) 05860900
590: 70280 FORMAT (26X,2(F6.1)) 05870900
591: IVINSP = IVINSP + 1 05880900
592: WRITE (NUVI, 80022) 05890900
593: WRITE (NUVI, 70281) 05900900
594: 70281 FORMAT (26X,12H +9.9 +5.5) 05910900
595: C***** ADVANCE TO TOP-OF-PAGE AND WRITE HEADER 05920900
596: WRITE (NUVI, 90002) 05930900
597: WRITE (NUVI, 90013) 05940900
598: WRITE (NUVI, 90014) 05950900
599: C***** 05960900
600: CT029* TEST 29 05970900
601: IVTNUM = 29 05980900
602: WRITE (NUVI, 80004) IVTNUM, REMRKS 05990900
603: WRITE (NUVI, 70230) 06000900
604: WRITE (NUVI, 80020) 06010900
605: WRITE (NUVI, 70290) B3C(1,1,1) 06020900
606: 70290 FORMAT (26X,2(F7.1)) 06030900
607: IVINSP = IVINSP + 1 06040900
608: WRITE (NUVI, 80022) 06050900
609: WRITE (NUVI, 70291) 06060900
610: 70291 FORMAT (26X,14H +9.9 +5.5) 06070900
611: CT030* TEST 30 06080900
612: IVTNUM = 30 06090900
613: WRITE (NUVI, 80004) IVTNUM, REMRKS 06100900
614: WRITE (NUVI, 70230) 06110900
615: WRITE (NUVI, 80020) 06120900
616: WRITE (NUVI, 70300) CHAVC 06130900
617: 70300 FORMAT (26X,2(F8.1)) 06140900
618: IVINSP = IVINSP + 1 06150900
619: WRITE (NUVI, 80022) 06160900
620: WRITE (NUVI, 70301) 06170900
621: 70301 FORMAT (26X,16H +1.0 +5.5) 06180900
622: C***** TESTS 31 THRU 32: 06190900
623: C***** FORMATS WITH G CONVERSIONS USING COMPLEX DATA 13.5.9.2.306200900
624: C***** 06210900
625: C***** INPUT CARD 15 06220900
626: 02123 FORMAT( 3(G11.4), 3G11.4) 06230900
627: READ (IRVI,02123) LL1C(1), LL1C(2), LL1C(3) 06240900
628: 02124 FORMAT (/8X,17HG CONVERSION TEST/) 06250900
629: WRITE (NUVI, 02124) 06260900
630: CT031* TEST 31 06270900
631: IVTNUM = 31 06280900
632: REMRKS = 'LEADING PLUS SIGN/ZERO OPTIONAL' 06290900
633: WRITE (NUVI, 80004) IVTNUM, REMRKS 06300900
634: WRITE (NUVI, 70130) 06310900
635: WRITE (NUVI, 70310) LL1C(1), LL1C(2), LL1C(3) 06320900
636: 70310 FORMAT (26X,G14.4,4X,2G11.4 / 26X,G14.4,4X,2G11.4) 06330900
637: IVINSP = IVINSP + 1 06340900
638: WRITE (NUVI, 70311) 06350900
639: 70311 FORMAT(/1H ,16X,10HCORRECT: ,22X,31HCORRESPONDING LINES MUST06360900
640: 1 MATCH ,/1H ,48X,31HEITHER OF THE FOLLOWING TWO , 06370900
641: 2 /1H ,48X,31HCORRECT ANSWERS /) 06380900
642: WRITE (NUVI, 70312) 06390900
643: 70312 FORMAT (26X,36H +0.1235E+05 +1235. +123.5/ 06400900
644: 1 26X,36H +12.35 +1.235 +0.1235// 06410900
645: 2 26X,36H +0.1235+005 +1235. +123.5/ 06420900
646: 3 26X,36H +12.35 +1.235 +0.1235) 06430900
647: C***** TESTS 32 THRU 34: 06440900
648: C***** ON READ, BUT NOT ON WRITE 06450900
649: C***** SCALE FACTOR APPLIED TO F,E,D,G DESCRIPTORS 13.7.5.106460900
650: C***** 06470900
651: C***** INPUT CARD 16 06480900
652: 02126 FORMAT(2PF8.3,-2PE9.4,F9.4,0PG9.4,D9.4,-2PE9.4,F9.4,D9.4,2PG9.4) 06490900
653: READ(IRVI,02126)BVC, CHAVC, BC2D(1,4), A1C(1), BC2D(2,1), DPAVD 06500900
654: 02127 FORMAT(/8X, 20HSCALE FACTOR ON READ/) 06510900
655: WRITE (NUVI, 02127) 06520900
656: CT032* TEST 32 06530900
657: IVTNUM = 32 06540900
658: WRITE (NUVI, 80004) IVTNUM, REMRKS 06550900
659: WRITE (NUVI, 80020) 06560900
660: WRITE (NUVI, 70320) BVC,CHAVC 06570900
661: 70320 FORMAT (26X,F12.4,E12.4,F12.2,F12.3) 06580900
662: IVINSP = IVINSP + 1 06590900
663: WRITE (NUVI, 70051) 06600900
664: WRITE (NUVI, 70321) 06610900
665: 70321 FORMAT (30X,44H+98.7654 +0.9877E+04 +987654.00 +987.654/ 06620900
666: 1 30X,44H+98.7654 +0.9877+004 +987654.00 +987.654) 06630900
667: CT033* TEST 33 06640900
668: IVTNUM = 33 06650900
669: WRITE (NUVI, 80004) IVTNUM, REMRKS 06660900
670: WRITE (NUVI, 80020) 06670900
671: WRITE (NUVI, 70330) BC2D(1,4), A1C(1) 06680900
672: 70330 FORMAT (26X,D12.4,E12.4,F12.3) 06690900
673: IVINSP = IVINSP + 1 06700900
674: WRITE (NUVI, 70121) 06710900
675: WRITE (NUVI, 70331) 06720900
676: 70331 FORMAT (26X,36H +0.8648D-02 +0.8648E+04 +8647.860/ 06730900
677: 1 26X,36H +0.8648E-02 +0.8648E+04 +8647.860/ 06740900
678: 2 26X,36H +0.8648-002 +0.8648+004 +8647.860) 06750900
679: 70332 FORMAT (1H ,48X,5H OR) 06750*TI
680: WRITE (NUVI,70332) 06750*TI
681: 70333 FORMAT (26X,36H +0.8648D-02 +0.8648E+04 +8647.859/ 06750*TI
682: 1 26X,36H +0.8648E-02 +0.8648E+04 +8647.859/ 06750*TI
683: 2 26X,36H +0.8648-002 +0.8648+004 +8647.859) 06750*TI
684: WRITE (NUVI,70333) 06750*TI
685: CT034* TEST 34 06760900
686: IVTNUM = 34 06770900
687: WRITE (NUVI, 80004) IVTNUM, REMRKS 06780900
688: WRITE (NUVI, 80020) 06790900
689: WRITE (NUVI, 70340) BC2D(2,1), DPAVD 06800900
690: 70340 FORMAT (26X,D12.4,G16.4) 06810900
691: IVINSP = IVINSP + 1 06820900
692: WRITE (NUVI, 70121) 06830900
693: WRITE (NUVI, 70341) 06840900
694: 70341 FORMAT (26X,24H +0.8658D+04 +98.77/ 06850900
695: 1 26X,24H +0.8658E+04 +98.77/ 06860900
696: 2 26X,24H +0.8658+004 +98.77) 06870900
697: C***** ADVANCE TO TOP-OF-PAGE AND WRITE HEADER 06880900
698: WRITE (NUVI, 90002) 06890900
699: WRITE (NUVI, 90013) 06900900
700: WRITE (NUVI, 90014) 06910900
701: C***** 06920900
702: C***** TESTS 35 AND 36: 06930900
703: C***** SCALE FACTOR APPLIED TO F, E, D, G DESCRIPTORS 06940900
704: C***** ON WRITE, BUT, NOT ON READ 06950900
705: C***** 06960900
706: C***** INPUT CARD 17 06970900
707: 02128 FORMAT(F8.2,E9.4,F9.2,G9.3,D9.0,E9.4,F9.4,D9.2,G9.4) 06980900
708: READ(IRVI,02128) CHBVC, A2C(2,1), AC1D(4), CHCVC, AC1D(5), DPBVD 06990900
709: 02129 FORMAT(/8X, 21HSCALE FACTOR ON WRITE/) 07000900
710: WRITE (NUVI, 02129) 07010900
711: CT035* TEST 35 07020900
712: IVTNUM = 35 07030900
713: WRITE (NUVI, 80004) IVTNUM, REMRKS 07040900
714: WRITE (NUVI, 80020) 07050900
715: WRITE (NUVI, 70350) CHBVC, A2C(2,1), AC1D(4) 07060900
716: 70350 FORMAT (26X,2PF12.2,-2PE12.4,F12.4,1PG12.2,D12.4) 07070900
717: IVINSP = IVINSP + 1 07080900
718: WRITE (NUVI, 70121) 07090900
719: WRITE (NUVI, 70351) 07100900
720: 70351 FORMAT (28X,58H +987.66 +0.0099E+06 +98.7654 +9.88E+0207110900
721: 1 +8.6479D+02/28X,58H +987.66 +0.0099E+06 +98.7654 +9.88E+0207120900
722: 2 +8.6479E+02/28X,58H +987.66 +0.0099+006 +98.7654 +9.88+00207130900
723: 3 +8.6479+002) 07140900
724: 70352 FORMAT (1H ,48X,5H OR) 07140*TI
725: WRITE (NUVI,70352) 07140*TI
726: 70353 FORMAT (28X,58H +987.66 +0.0099E+06 +98.76539 +9.88E+0207140*TI
727: 1 +8.6479D+02/28X,58H +987.66 +0.0099E+06 +98.76539 +9.88E+0207140*TI
728: 2 +8.6479E+02/28X,58H +987.66 +0.0099+006 +98.76539 +9.88+00207140*TI
729: 3 +8.6479+002) 07140*TI
730: WRITE (NUVI,70353) 07140*TI
731: CT036* TEST 36 07150900
732: IVTNUM = 36 07160900
733: WRITE (NUVI, 80004) IVTNUM, REMRKS 07170900
734: WRITE (NUVI, 80020) 07180900
735: WRITE(NUVI,70360) CHCVC, AC1D(5), DPBVD 07190900
736: 70360 FORMAT (26X,-2PE12.4,2PF12.2,1PD12.4,2PG16.4) 07200900
737: IVINSP = IVINSP + 1 07210900
738: WRITE (NUVI, 70121) 07220900
739: WRITE (NUVI, 70361) 07230900
740: 70361 FORMAT(27X,47H+0.0086E+06 +8647.86 +8.6579D+03 +9877.07240900
741: 1 /27X,47H+0.0086E+06 +8647.86 +8.6579E+03 +9877.07250900
742: 2 /27X,47H+0.0086+006 +8647.86 +8.6579+003 +9877.)07260900
743: CBB** ********************** BBCSUM0 **********************************07270900
744: C**** WRITE OUT TEST SUMMARY 07280900
745: C**** 07290900
746: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 07300900
747: WRITE (I02, 90004) 07310900
748: WRITE (I02, 90014) 07320900
749: WRITE (I02, 90004) 07330900
750: WRITE (I02, 90020) IVPASS 07340900
751: WRITE (I02, 90022) IVFAIL 07350900
752: WRITE (I02, 90024) IVDELE 07360900
753: WRITE (I02, 90026) IVINSP 07370900
754: WRITE (I02, 90028) IVTOTN, IVTOTL 07380900
755: CBE** ********************** BBCSUM0 **********************************07390900
756: CBB** ********************** BBCFOOT0 **********************************07400900
757: C**** WRITE OUT REPORT FOOTINGS 07410900
758: C**** 07420900
759: WRITE (I02,90016) ZPROG, ZPROG 07430900
760: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 07440900
761: WRITE (I02,90019) 07450900
762: CBE** ********************** BBCFOOT0 **********************************07460900
763: CBB** ********************** BBCFMT0A **********************************07470900
764: C**** FORMATS FOR TEST DETAIL LINES 07480900
765: C**** 07490900
766: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 07500900
767: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 07510900
768: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 07520900
769: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 07530900
770: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 07540900
771: 1I6,/,1H ,15X,10HCORRECT= ,I6) 07550900
772: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 07560900
773: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 07570900
774: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 07580900
775: 1A21,/,1H ,16X,10HCORRECT= ,A21) 07590900
776: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 07600900
777: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 07610900
778: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 07620900
779: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 07630900
780: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 07640900
781: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 07650900
782: 80050 FORMAT (1H ,48X,A31) 07660900
783: CBE** ********************** BBCFMT0A **********************************07670900
784: CBB** ********************** BBCFMAT1 **********************************07680900
785: C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 07690900
786: C**** 07700900
787: 80031 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 07710900
788: 1D17.10,/,1H ,16X,10HCORRECT= ,D17.10) 07720900
789: 80033 FORMAT (1H ,16X,10HCOMPUTED= ,D17.10,10X,A31) 07730900
790: 80035 FORMAT (1H ,16X,10HCORRECT= ,D17.10,10X,A31) 07740900
791: 80037 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 07750900
792: 80039 FORMAT (1H ,16X,10HCORRECT= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 07760900
793: 80041 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 07770900
794: 80043 FORMAT (1H ,16X,10HCORRECT= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 07780900
795: 80045 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 07790900
796: 11H(,F12.5,2H, ,F12.5,1H)/,1H ,16X,10HCORRECT= , 07800900
797: 21H(,F12.5,2H, ,F12.5,1H)) 07810900
798: CBE** ********************** BBCFMAT1 **********************************07820900
799: CBB** ********************** BBCFMT0B **********************************07830900
800: C**** FORMAT STATEMENTS FOR PAGE HEADERS 07840900
801: C**** 07850900
802: 90002 FORMAT (1H1) 07860900
803: 90004 FORMAT (1H ) 07870900
804: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 07880900
805: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 07890900
806: 90008 FORMAT (1H ,21X,A13,A17) 07900900
807: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 07910900
808: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 07920900
809: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 07930900
810: 1 7X,7HREMARKS,24X) 07940900
811: 90014 FORMAT (1H ,46H----------------------------------------------, 07950900
812: 1 33H---------------------------------) 07960900
813: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 07970900
814: C**** 07980900
815: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 07990900
816: C**** 08000900
817: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 08010900
818: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 08020900
819: 1 A13) 08030900
820: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 08040900
821: C**** 08050900
822: C**** FORMAT STATEMENTS FOR RUN SUMMARY 08060900
823: C**** 08070900
824: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 08080900
825: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 08090900
826: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 08100900
827: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 08110900
828: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 08120900
829: CBE** ********************** BBCFMT0B **********************************08130900
830: C***** 08140900
831: C***** END OF TEST SEGMENT 21 08150900
832: STOP 08160900
833: END 08170900
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.