![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM403.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 FM403.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***********************************************************************00010403
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 00020403
6: C***** FM403 FMTRW - (020) 00030403
7: C***** 00040403
8: C***********************************************************************00050403
9: C***** GENERAL PURPOSE SUBSET REFS00060403
10: C***** TO TEST SIMPLE FORMAT AND FORMATTED DATA 12.9.5.200070403
11: C***** TRANSFER STATEMENTS IN EXTERNAL SEQUENTIAL I/O SO 13.1.1 00080403
12: C***** THAT THESE FEATURES MAY BE USED IN OTHER TEST 12.8.1 00090403
13: C***** PROGRAM SEGMENTS FOR INTEGER, REAL, AND LOGICAL 00100403
14: C***** DATA TYPES. 00110403
15: C***** RESTRICTIONS OBSERVED 12.8.2 00120403
16: C***** * ALL FORMAT STATEMENTS ARE LABELED 13.1.1 00130403
17: C***** * H DESCRIPTOR ARE NEVER REPEATED 13.2.1 00140403
18: C***** * FOR W.D DESCRIPTORS, D IS ALWAYS SPECIFIED AND 00150403
19: C***** W IS EQUAL TO OR GREATER THAN D 00160403
20: C***** * FIELD WIDTH IS NEVER ZERO 13.2.1 00170403
21: C***** * IF AN I/O LIST SPECIFIES AT LEAST ONE LIST ITEM 13.3 00180403
22: C***** AT LEAST ONE REPEATABLE EDIT DESCRIPTOR MUST EXIST 00190403
23: C***** IN THE FORMAT SPECIFICATION 00200403
24: C***** * ITEMS IN I/O LIST CORRESPOND TO EDIT DESCRIPTORS 13.3 00210403
25: C***** * NEGATIVE OUTPUT VALUES ARE SIGNED 13.5.9 00220403
26: C***** * FIELD WIDTH NEVER EXCEEDED BY OUTPUT 13.5.9 00230403
27: C***** * FOR I EDITING, EXTERNAL INPUT FIELDS ARE 13.5.9.100240403
28: C***** INTEGER CONSTANTS 00250403
29: C***** GENERAL COMMENTS 00260403
30: C***** PLUS SIGNS FOR INPUT FIELDS ARE USUALLY OMITTED 13.5.9 00270403
31: C***** FORMATTED WRITES WITHOUT AN I/O LIST (FORMAT 13.5.2 00280403
32: C***** STATEMENTS TEST H AND X DESCRIPTORS AND SLASH 13.5.3 00290403
33: C***** RECORD DIVIDERS) 13.5.4 00300403
34: C***** 00310403
35: CBB** ********************** BBCCOMNT **********************************00320403
36: C**** 00330403
37: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00340403
38: C**** VERSION 2.0 00350403
39: C**** 00360403
40: C**** 00370403
41: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00380403
42: C**** GENERAL SERVICES ADMINISTRATION 00390403
43: C**** FEDERAL SOFTWARE TESTING CENTER 00400403
44: C**** 5203 LEESBURG PIKE, SUITE 1100 00410403
45: C**** FALLS CHURCH, VA. 22041 00420403
46: C**** 00430403
47: C**** (703) 756-6153 00440403
48: C**** 00450403
49: CBE** ********************** BBCCOMNT **********************************00460403
50: C INPUT DATA TO THIS SEGMENT CONSISTS OF 27 CARD IMAGES IN COL. 1 - 80 00470403
51: COL. 1----------------------------------------------------------61 00480403
52: CARD 1 999 00490403
53: CARD 2 555554444 00500403
54: CARD 3 666 777777 8 00510403
55: CARD 4 333333111112222222255555444444444444 00520403
56: CARD 5 7.7123456.7 00530403
57: CARD 6 8.889.9997.123456 00540403
58: CARD 7 5.44446.5555533.133.133.133.1444.1 00550403
59: CARD 8 5555.15555.1 66666.166666.1 44.22 00560403
60: CARD 9 2.12.12.12.12.1666.3334.3334.3334.333 00570403
61: CARD 10 -0.1E+01+0.22E-01 0.333E+02 0.4444E+03-0.55555E-03+0.666666E+ 00580403
62: COL. 62------------77 00590403
63: CARD 10 00+0.9876543E+12 00600403
64: COL. 1----------------------------------------------------------61 00610403
65: CARD 11 TABC 00620403
66: CARD 12 FDEFFGHIT*+T1F/).TRUE..FALSE. 00630403
67: CARD 13 -9.9-9.9-9.9-9.9 00640403
68: CARD 14 9999999999 00650403
69: CARD 15 .9.9.9.9.9.9.9.9.9.9.9.9.9.9.9.9.9.9.9.9.9.9.9.9.9.9.9 00660403
70: CARD 16 TFTFTFTFTF 00670403
71: CARD 17 99999999 00680403
72: CARD 18 9999999999999999TFFT9.99.99.99.99.9 00690403
73: CARD 19 T F T F 00700403
74: CARD 20 3334444.555550 00710403
75: CARD 21 9876.5498.7654E2 9876.54 987.654 86.4786E286.4786 00720403
76: CARD 22 9.8765698.7654E2 9876.54 987.654 86.4786E286.4786 00730403
77: CARD 23 122333544888611222 00740403
78: CARD 24 455666233444966111 00750403
79: CARD 25 788999377555899777 00760403
80: CARD 26 11112 334 559 880 11 00770403
81: CARD 27 6 778 995 441 222 00 00780403
82: C***** 00790403
83: C***** S P E C I F I C A T I O N S SEGMENT 020 00800403
84: C***** 00810403
85: DIMENSION EP1S(33),CMA1S(5),IAC1I(5),IAC2I(2,7),MCA1I(5) 00820403
86: REAL A1S(5),A2S(2,2),A3S(3,3,3),AC1S(25),AC2S(5,6) 00830403
87: INTEGER I2I(2,2),I3I(2,2,2),MCA3I(2,3,3) 00840403
88: LOGICAL MCA1B(7),A1B(2),A2B(2,2),A3B(2,2,2),AVB,CVB,DVB ,MCBVB 00850403
89: C***** 00860403
90: CBB** ********************** BBCINITA **********************************00870403
91: C**** SPECIFICATION STATEMENTS 00880403
92: C**** 00890403
93: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00900403
94: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00910403
95: CBE** ********************** BBCINITA **********************************00920403
96: CBB** ********************** BBCINITB **********************************00930403
97: C**** INITIALIZE SECTION 00940403
98: DATA ZVERS, ZVERSD, ZDATE 00950403
99: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00960403
100: DATA ZCOMPL, ZNAME, ZTAPE 00970403
101: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00980403
102: DATA ZPROJ, ZTAPED, ZPROG 00990403
103: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 01000403
104: DATA REMRKS /' '/ 01010403
105: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 01020403
106: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 01030403
107: C**** 01040403
108: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 01050403
109: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 01060403
110: CZ03 ZPROG = 'PROGRAM NAME' 01070403
111: ZDATE = '07-Nov-85 ' *RP
112: ZCOMPL = 'CCI 5.2 ' *RP
113: ZPROJ = 'TC-85- -410' *RP
114: ZNAME = ' ' *RP
115: ZTAPE = ' ' *RP
116: ZTAPED = '850703 ' *RP
117: C 01140403
118: IVPASS = 0 01150403
119: IVFAIL = 0 01160403
120: IVDELE = 0 01170403
121: IVINSP = 0 01180403
122: IVTOTL = 0 01190403
123: IVTOTN = 0 01200403
124: ICZERO = 0 01210403
125: C 01220403
126: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 01230403
127: I01 = 05 01240403
128: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 01250403
129: I02 = 06 01260403
130: C 01270403
131: I01 = 5 01280403
132: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 01290403
133: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 01300403
134: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 01310403
135: C 01320403
136: I02 = 6 01330403
137: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 01340403
138: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 01350403
139: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 01360403
140: C 01370403
141: CBE** ********************** BBCINITB **********************************01380403
142: C***** I N P U T - O U T P U T ASSIGNMENT STATEMENTS 01390403
143: IRVI = I01 01400403
144: NUVI = I02 01410403
145: IVTOTL = 59 01420403
146: ZPROG = 'FM403' 01430403
147: CBB** ********************** BBCHED0A **********************************01440403
148: C**** 01450403
149: C**** WRITE REPORT TITLE 01460403
150: C**** 01470403
151: WRITE (I02, 90002) 01480403
152: WRITE (I02, 90006) 01490403
153: WRITE (I02, 90007) 01500403
154: WRITE (I02, 90008) ZVERS, ZVERSD 01510403
155: WRITE (I02, 90009) ZPROG, ZPROG 01520403
156: WRITE (I02, 90010) ZDATE, ZCOMPL 01530403
157: CBE** ********************** BBCHED0A **********************************01540403
158: C***** HEADER FORMAT STATEMENT 01550403
159: 2000 FORMAT ( // 2X,37HFMTRW - (020) FORMATTED DATA TRANSFER//2X, 01560403
160: 141HSUBSET REFS - 12.9.5.2 13.3 13.5.9 ) 01570403
161: WRITE (NUVI,2000) 01580403
162: CBB** ********************** BBCHED0B **********************************01590403
163: C**** WRITE DETAIL REPORT HEADERS 01600403
164: C**** 01610403
165: WRITE (I02,90004) 01620403
166: WRITE (I02,90004) 01630403
167: WRITE (I02,90013) 01640403
168: WRITE (I02,90014) 01650403
169: WRITE (I02,90015) IVTOTL 01660403
170: CBE** ********************** BBCHED0B **********************************01670403
171: CT001* TEST 1 - FORMAT WITH DIGITS 0-9 IN H FIELDS 01680403
172: IVTNUM = 1 01690403
173: REMRKS = '2 COMPUTED LINES EXPECTED' 01700403
174: WRITE (I02,80004) IVTNUM, REMRKS 01710403
175: WRITE (I02,80020) 01720403
176: WRITE (I02,70010) 01730403
177: 70010 FORMAT (25X,22H 10101010101010101010,9H999999999,8H88888888/27X, 01740403
178: 17H7777777,6H666666,5H55555,4H4444,3H333,2H22,1H1) 01750403
179: IVINSP = IVINSP + 1 01760403
180: WRITE (I02,70011) 01770403
181: 70011 FORMAT(1H ,16X,10HCORRECT: ,22X,29HCORRESPONDING LINE MUST MATCH)01780403
182: WRITE (I02,70012) 01790403
183: 70012 FORMAT (25X,' 1010101010101010101099999999988888888', 01800403
184: 1 /25X,' 7777777666666555554444333221 ') 01810403
185: CT002* TEST 2 - FORMAT CONTAINING ALL LETTERS (A-Z) IN H FIELDS AND 01820403
186: C***** A VARIABLE NUMBER OF BLANKS IN H AND X FIELDS 01830403
187: IVTNUM = 2 01840403
188: REMRKS = '9 COMPUTED LINES EXPECTED' 01850403
189: WRITE (I02,80004) IVTNUM, REMRKS 01860403
190: WRITE (I02,80020) 01870403
191: WRITE (I02,70020) 01880403
192: 70020 FORMAT(27X,3HAAA,5X,5H ,3HBBB,10X,3HCCC/28X,3HDDD,9X,3HEEE 01890403
193: 1,9H ,3HFFF/29X,3HGGG,8X,3HHHH,8H ,3HIII/27X,3H 01900403
194: 2,3HJJJ,7H ,3HKKK,7X,3HLLL/31X,3HMMM,6X,3HNNN,6H ,3HOOO/01910403
195: 3 32X,3HPPP,5H ,3HQQQ,5X,3HRRR/33X,3HSSS,4X,3HTTT,4H ,3HUUU/01920403
196: 4 27X,101930403
197: 53H VVV ,3HWWW,3X,3HXXX/37X,3HYYY,3X,3HZZZ) 01940403
198: IVINSP = IVINSP + 1 01950403
199: WRITE (I02,70011) 01960403
200: WRITE (I02,70021) 01970403
201: 70021 FORMAT (27X,'AAA BBB CCC', 01980403
202: 1 /27X,' DDD EEE FFF ', 01990403
203: 2 /27X,' GGG HHH III ', 02000403
204: 3 /27X,' JJJ KKK LLL ', 02010403
205: 4 /27X,' MMM NNN OOO ', 02020403
206: 5 /27X,' PPP QQQ RRR ', 02030403
207: 6 /27X,' SSS TTT UUU ', 02040403
208: 7 /27X,' VVV WWW XXX ', 02050403
209: 8 /27X,' YYY ZZZ ') 02060403
210: CT003* TEST 3 - FORMAT CONTAINING H FIELD WITH ALL POSSIBLE 02070403
211: C***** SPECIAL CHARACTERS 02080403
212: IVTNUM = 3 02090403
213: WRITE (I02,80004) IVTNUM 02100403
214: WRITE (I02,80020) 02110403
215: WRITE (I02,70030) 02120403
216: 70030 FORMAT (25X,21H = + - * / ( ) , . ') 02130403
217: IVINSP = IVINSP + 1 02140403
218: WRITE (I02,80022) 02150403
219: WRITE (I02,70031) 02160403
220: 70031 FORMAT (25X, ' = + - * / ( ) , . ''') 02170403
221: C***** FORMAT TO TEST VERTICAL SPACING 02180403
222: C***** 12.9.5.2.3 02190403
223: CT004* TEST 4 - FORMAT STATEMENT ENDING WITH ONE SLASH DESCRIPTOR 02200403
224: IVTNUM = 4 02210403
225: REMRKS = 'SLASH DESCRIPTOR' 02220403
226: WRITE (I02,80004) IVTNUM, REMRKS 02230403
227: WRITE (I02,70040) 02240403
228: 70040 FORMAT(15X, 30H FORMAT(14H SKIP 1 LINE02250403
229: 1 /) /) 02260403
230: IVINSP = IVINSP + 1 02270403
231: WRITE (I02,70041) 02280403
232: 70041 FORMAT(17X,34HONE BLANK LINE SHOULD APPEAR ABOVE) 02290403
233: C ADVANCE TO TOP-OF-PAGE AND WRITE HEADERS 02300403
234: WRITE (I02,90002) 02310403
235: WRITE (I02,90013) 02320403
236: WRITE (I02,90014) 02330403
237: CT005* TEST 5 - FORMAT STATEMENT ENDING WITH TWO SLASH DESCRIPTORS 02340403
238: IVTNUM = 5 02350403
239: WRITE (I02,80004) IVTNUM 02360403
240: WRITE (I02,70050) 02370403
241: 70050 FORMAT(15X,32H FORMAT(15H SKIP 2 LINES //) //) 02380403
242: IVINSP = IVINSP + 1 02390403
243: WRITE (I02,70051) 02400403
244: 70051 FORMAT(17X,35HTWO BLANK LINES SHOULD APPEAR ABOVE) 02410403
245: CT006* TEST 6 - FORMAT STATEMENT ENDING WITH THREE SLASH DESCRIPTORS 02420403
246: IVTNUM = 6 02430403
247: WRITE (I02,80004) IVTNUM 02440403
248: WRITE (I02,70060) 02450403
249: 70060 FORMAT(15X,33H FORMAT(16H SKIP 3 LINES ///) ///) 02460403
250: IVINSP = IVINSP + 1 02470403
251: WRITE (I02,70061) 02480403
252: 70061 FORMAT(17X,37HTHREE BLANK LINES SHOULD APPEAR ABOVE) 02490403
253: CT007* TEST 7 - FORMAT STATEMENT CONTAINING IMBEDDED SLASH DESCRIPTORS 02500403
254: IVTNUM = 7 02510403
255: REMRKS = 'IMBEDDED SLASHES' 02520403
256: WRITE (I02,80004) IVTNUM, REMRKS 02530403
257: WRITE (I02,70070) 02540403
258: 70070 FORMAT( 17X,32H1 BLANK LINE SHOULD APPEAR BELOW // 02550403
259: 1 17X,33H2 BLANK LINES SHOULD APPEAR BELOW/// 02560403
260: 2 17X,33H3 BLANK LINES SHOULD APPEAR BELOW/ 3(/), 02570403
261: 3 17X,33H0 BLANK LINES SHOULD APPEAR BELOW/ 02580403
262: 4 17X,33HEND IMBEDDED SLASHES TEST ) 02590403
263: IVINSP = IVINSP + 1 02600403
264: CT008* TEST 8 - FORMS CONTROL USING '0' FOR DOUBLE SPACING 02610403
265: IVTNUM = 8 02620403
266: REMRKS = 'DOUBLE SPACE' 02630403
267: WRITE (I02,80004) IVTNUM, REMRKS 02640403
268: WRITE (I02,70080) 02650403
269: 70080 FORMAT( 17X,33H1 BLANK LINE SHOULD APPEAR BELOW / 1H0, 02660403
270: 1 17X,33HEND DOUBLE SPACE TEST ) 02670403
271: IVINSP = IVINSP + 1 02680403
272: CT009* TEST 9 - FORMS CONTROL USING '+' FOR OVERPRINTING 02690403
273: IVTNUM = 9 02700403
274: REMRKS = 'OVERPRINT' 02710403
275: WRITE (I02,80004) IVTNUM, REMRKS 02720403
276: WRITE (I02,70090) 02730403
277: 70090 FORMAT(/17X,27H!FIRST PRINT LINE! OVER,/1H+, 02740403
278: 1 17X,50H P R I N T !SECOND PRINT LINE!)02750403
279: IVINSP = IVINSP + 1 02760403
280: CT010* TEST 10 - FORMS CONTROL USING '1' FOR PAGE EJECTION 02770403
281: IVTNUM = 10 02780403
282: REMRKS = 'PAGE ADVANCE' 02790403
283: WRITE (I02,80004) IVTNUM, REMRKS 02800403
284: WRITE (I02,70100) 02810403
285: 70100 FORMAT(/17X,41HTHIS SHOULD BE THE LAST LINE ON THIS PAGE/, 02820403
286: 157H1 NEW PAGE: END OF VERTICAL SPACING TESTS) 02830403
287: IVINSP = IVINSP + 1 02840403
288: C WRITE PAGE HEADERS 02850403
289: WRITE (I02,90004) 02860403
290: WRITE (I02,90013) 02870403
291: WRITE (I02,90014) 02880403
292: C***** FORMATTED DATA TRANSFER I/O STATEMENTS WITH INTEGER 12.8.1 02890403
293: C***** VARIABLES AND ARRAY ELEMENTS IN AN I/O LIST. (THE 12.8.2 02900403
294: C***** NUMBER OF ITEMS IN THE LIST IS VARIABLE.) SOME 13.2.1 02910403
295: C***** FORMAT STATEMENTS CONTAIN REPEATED FIELDS. 02920403
296: C***** FORMATS CONTAIN I EDIT DESCRIPTORS. 13.5.9.1 02930403
297: C***** FIELD WIDTHS ARE FROM 1 TO 5 DIGITS. 13.3 02940403
298: C***** INPUT CARD 1 02950403
299: 2009 FORMAT (2X,I3) 02960403
300: READ (IRVI,2009) JACVI 02970403
301: C***** INPUT CARD 2 02980403
302: 2010 FORMAT (1X,I5,1X,I4) 02990403
303: READ (IRVI,2010) KBCVI, IAC1I(1) 03000403
304: C***** INPUT CARD 3 03010403
305: 2011 FORMAT (2X,I3,2X,3I2,2X,I1) 03020403
306: READ (IRVI,2011) IAC2I(1,2), LCCVI, IAC1I(5), IHDVI, MCA3I(1,2,3) 03030403
307: C***** INPUT CARD 4 03040403
308: 2012 FORMAT (2X,2(I3),1(I5), 4I2 ,5I1,3 I4 ) 03050403
309: READ (IRVI,2012) MDCVI, IAC2I(2,2), IAC1I(4), NECVI, IAC1I(3), 03060403
310: 1 IAC2I(2,3), IAC2I(2,1), MRRVI, IGDVI, KGVI, IEDVI, IAC2I(1,1)03070403
311: 2 ,IAC1I(2), IAC2I(2,7), MCA3I(2,1,3) 03080403
312: CT011* TEST 11 - I CONVERSION 03090403
313: IVTNUM = 11 03100403
314: WRITE (I02,80004) IVTNUM 03110403
315: WRITE (I02,80020) 03120403
316: WRITE (I02,70110) JACVI 03130403
317: 70110 FORMAT (25X,I5) 03140403
318: IVINSP = IVINSP + 1 03150403
319: WRITE (I02,80022) 03160403
320: WRITE (I02,70111) 03170403
321: 70111 FORMAT (25X,5H 999) 03180403
322: CT012* TEST 12 - I CONVERSION 03190403
323: IVTNUM = 12 03200403
324: WRITE (I02,80004) IVTNUM 03210403
325: WRITE (I02,80020) 03220403
326: WRITE (I02,70120) KBCVI, IAC1I(1) 03230403
327: 70120 FORMAT (26X,I5,1X,I4) 03240403
328: IVINSP = IVINSP + 1 03250403
329: WRITE (I02,80022) 03260403
330: WRITE (I02,70121) 03270403
331: 70121 FORMAT (26X,10H 5555 4444) 03280403
332: CT013* TEST 13 - I CONVERSION 03290403
333: IVTNUM = 13 03300403
334: WRITE (I02,80004) IVTNUM 03310403
335: WRITE (I02,80020) 03320403
336: WRITE (I02,70130) IAC2I(1,2),LCCVI, IAC1I(5), IHDVI, MCA3I(1,2,3) 03330403
337: 70130 FORMAT (27X,I3,2X,3I2,2X,I1) 03340403
338: IVINSP = IVINSP + 1 03350403
339: WRITE (I02,80022) 03360403
340: WRITE (I02,70131) 03370403
341: 70131 FORMAT (27X,14H666 777777 8) 03380403
342: CT014* TEST 14 - I CONVERSION 03390403
343: IVTNUM = 14 03400403
344: WRITE (I02,80004) IVTNUM 03410403
345: WRITE (I02,80020) 03420403
346: WRITE (I02,70140) 03430403
347: WRITE (I02,70140) MDCVI, IAC2I(2,2), IAC1I(4), NECVI, IAC1I(3), 03440403
348: 1 IAC2I(2,3), IAC2I(2,1), MRRVI, IGDVI, KGVI, IEDVI, IAC2I(1,1)03450403
349: 2 ,IAC1I(2), IAC2I(2,7), MCA3I(2,1,3) 03460403
350: 70140 FORMAT (27X,2(I3),1(I5), 4I2 ,5I1,3 I4 ) 03470403
351: IVINSP = IVINSP + 1 03480403
352: WRITE (I02,80022) 03490403
353: WRITE (I02,70141) 03500403
354: 70141 FORMAT (27X,36H333333111112222222255555444444444444) 03510403
355: C***** FORMATTED DATA TRANSFER I/O STATEMENTS WITH REAL 12.8.1 03520403
356: C***** VARIABLES AND ARRAY ELEMENTS IN AN I/O LIST.(THE 12.8.2 03530403
357: C***** NUMBER OF ITEMS IN THE LIST IS VARIABLE.) ONLY F 13.5.9.2 03540403
358: C***** EDIT DESCRIPTORS ARE USED IN THE FORMAT 13.5.9.2.1 03550403
359: C***** STATEMENTS. SOME F EDIT DESCRIPTORS ARE REPEATED. 13.3 03560403
360: C***** FIELD WIDTH ALWAYS CONTAINS 1 POSITION FOR DECIMAL PT. 03570403
361: C***** FIELD WIDTH IS FROM 1 TO 7 DIGITS. PLACEMENT OF 03580403
362: C***** DECIMAL POINT IS VARIABLE. SOME F FIELDS ARE 03590403
363: C***** REPEATED 03600403
364: C***** INPUT CARD 5 03610403
365: 2018 FORMAT (2X,F3.1,F8.1) 03620403
366: READ (IRVI,2018) ACVS, CMAVS 03630403
367: C***** INPUT CARD 6 03640403
368: 2019 FORMAT(2X,F4.2,F5.3,F8.6) 03650403
369: READ (IRVI,2019) A1S(2), BCVS, CMBVS 03660403
370: C***** INPUT CARD 7 03670403
371: 2020 FORMAT (2X,F6.4,F7.5,4F4.1,F5.1) 03680403
372: READ (IRVI,2020) HHCVS, CMCVS, GGCVS, FFCVS, A1S(1), AC1S(25), 03690403
373: 1 AC2S(4,1) 03700403
374: C***** INPUT CARD 8 03710403
375: 2021 FORMAT (2X,2(F6.1),2X,2F7.1 ,2X,F5.2) 03720403
376: READ (IRVI,2021) AC1S(18), AC1S(7), AC2S(4,4) , AC1S(8), AC1S(10) 03730403
377: C***** INPUT CARD 9 03740403
378: 2022 FORMAT (2X,5(F3.1),F7.3,3F5.3 ) 03750403
379: READ (IRVI,2022) AC2S(3,3) , AC2S(5,1), CCVS, AC1S(12), DCVS, 03760403
380: 1 AC1S(13), AC1S(5), A3S(1,1,2), AC2S(3,5) 03770403
381: CT015* TEST 15 - F CONVERSION 03780403
382: IVTNUM = 15 03790403
383: WRITE (I02,80004) IVTNUM 03800403
384: WRITE (I02,80020) 03810403
385: WRITE (I02,70150) ACVS, CMAVS 03820403
386: 70150 FORMAT (27X,F3.1,F8.1) 03830403
387: IVINSP = IVINSP + 1 03840403
388: WRITE (I02,80022) 03850403
389: WRITE (I02,70151) 03860403
390: 70151 FORMAT (27X,11H7.7123456.7) 03870403
391: CT016* TEST 16 - F CONVERSION 03880403
392: IVTNUM = 16 03890403
393: WRITE (I02,80004) IVTNUM 03900403
394: WRITE (I02,80020) 03910403
395: WRITE (I02,70160) A1S(2), BCVS, CMBVS 03920403
396: 70160 FORMAT(27X,F4.2,F5.3,F8.6) 03930403
397: IVINSP = IVINSP + 1 03940403
398: WRITE (I02,80022) 03950403
399: WRITE (I02,70161) 03960403
400: 70161 FORMAT (27X,17H8.889.9997.123456) 03970403
401: CT017* TEST 17 - F CONVERSION 03980403
402: IVTNUM = 17 03990403
403: WRITE (I02,80004) IVTNUM 04000403
404: WRITE (I02,80020) 04010403
405: WRITE (I02,70170) HHCVS,CMCVS, GGCVS, FFCVS, A1S(1), AC1S(25) 04020403
406: 1 ,AC2S(4,1) 04030403
407: 70170 FORMAT (27X,F6.4,F7.5,4F4.1,F5.1) 04040403
408: IVINSP = IVINSP + 1 04050403
409: WRITE (I02,80022) 04060403
410: WRITE (I02,70171) 04070403
411: 70171 FORMAT (27X,34H5.44446.5555533.133.133.133.1444.1) 04080403
412: CT018* TEST 18 - F CONVERSION 04090403
413: IVTNUM = 18 04100403
414: WRITE (I02,80004) IVTNUM 04110403
415: WRITE (I02,80020) 04120403
416: WRITE (I02,70180) AC1S(18),AC1S(7), AC2S(4,4) , AC1S(8), AC1S(10) 04130403
417: 70180 FORMAT (27X,2(F6.1),2X,2F7.1 ,2X,F5.2) 04140403
418: IVINSP = IVINSP + 1 04150403
419: WRITE (I02,80022) 04160403
420: WRITE (I02,70181) 04170403
421: 70181 FORMAT (27X,35H5555.15555.1 66666.166666.1 44.22 ) 04180403
422: CT019* TEST 19 - F CONVERSION 04190403
423: IVTNUM = 19 04200403
424: WRITE (I02,80004) IVTNUM 04210403
425: WRITE (I02,80020) 04220403
426: WRITE (I02,70190) AC2S(3,3) , AC2S(5,1), CCVS, AC1S(12), DCVS, 04230403
427: 1 AC1S(13), AC1S(5), A3S(1,1,2), AC2S(3,5) 04240403
428: 70190 FORMAT (27X,5(F3.1),F7.3,3F5.3 ) 04250403
429: IVINSP = IVINSP + 1 04260403
430: WRITE (I02,80022) 04270403
431: WRITE (I02,70191) 04280403
432: 70191 FORMAT (27X,37H2.12.12.12.12.1666.3334.3334.3334.333) 04290403
433: C***** FORMATTED DATA TRANSFER I/O STATEMENTS WITH REAL 12.8.1 04300403
434: C***** VARIABLES AND ARRAY ELEMENTS IN AN I/O LIST. 12.8.2 04310403
435: C***** E EDIT DESCRIPTORS ARE USED IN THE FORMAT 13.5.9.2 04320403
436: C***** STATEMENTS. SOME E EDIT DESCRIPTORS ARE REPEATED 13.5.9.2.2 04330403
437: C***** (FIELD WIDTH ALWAYS INCLUDES 6 EXTRA POSITIONS 04340403
438: C***** TO PROVIDE FOR SIGN, DECIMAL POINT AND EXPONENT. 13.5.9 04350403
439: C***** PROVISION IS ALWAYS MADE FOR THE DIGIT ZERO 13.5.9.2.1 04360403
440: C***** BEFORE THE DECIMAL POINT) 04370403
441: C***** THE NUMBER OF DECIMAL PLACES VARIES FROM 1 04380403
442: C***** TO 7 DIGITS. 04390403
443: C***** INPUT CARD 10 04400403
444: 2029 FORMAT (E8.1,E9.2,E10.3,E11.4,E12.5,E13.6,E14.7) 04410403
445: READ (IRVI,2029) AVS, BVS, EP1S(5), AC2S(1,5), CVS, AC2S(5,4), 04420403
446: 1 A3S(2,1,2) 04430403
447: CT020* TEST 20 - E CONVERSION 04440403
448: IVTNUM = 20 04450403
449: REMRKS = 'LEADING PLUS SIGN/ZERO OPTIONAL' 04460403
450: WRITE (I02,80004) IVTNUM, REMRKS 04470403
451: WRITE (I02,80020) 04480403
452: WRITE (I02,70200) AVS, BVS 04490403
453: 70200 FORMAT (27X,E8.1,2X,E9.2) 04500403
454: IVINSP = IVINSP + 1 04510403
455: WRITE (I02,70201) 04520403
456: 70201 FORMAT (1H ,16X,10HCORRECT: ,22X,26H2 CORRECT ANSWERS POSSIBLE) 04530403
457: WRITE (I02,70202) 04540403
458: 70202 FORMAT (27X,19H-0.1E+01 +0.22E-01/ 04550403
459: 1 27X,19H-0.1+001 +0.22-001) 04560403
460: C ADVANCE TO TOP-OF-PAGE AND WRITE HEADERS 04570403
461: WRITE (I02,90002) 04580403
462: WRITE (I02,90013) 04590403
463: WRITE (I02,90014) 04600403
464: CT021* TEST 21 - E CONVERSION 04610403
465: IVTNUM = 21 04620403
466: WRITE (I02,80004) IVTNUM, REMRKS 04630403
467: WRITE (I02,80020) 04640403
468: WRITE (I02,70210) EP1S(5), AC2S(1,5) 04650403
469: 70210 FORMAT (27X,E10.3,2X,E11.4) 04660403
470: IVINSP = IVINSP + 1 04670403
471: WRITE (I02,70201) 04680403
472: WRITE (I02,70211) 04690403
473: 70211 FORMAT (27X,23H+0.333E+02 +0.4444E+03/ 04700403
474: 1 27X,23H+0.333+002 +0.4444+003) 04710403
475: CT022* TEST 22 - E CONVERSION 04720403
476: IVTNUM = 22 04730403
477: WRITE (I02,80004) IVTNUM, REMRKS 04740403
478: WRITE (I02,80020) 04750403
479: WRITE (I02,70220) CVS, AC2S(5,4) 04760403
480: 70220 FORMAT (27X,E12.5,2X,E13.6) 04770403
481: IVINSP = IVINSP + 1 04780403
482: WRITE (I02,70201) 04790403
483: WRITE (I02,70221) 04800403
484: 70221 FORMAT (27X,27H-0.55555E-03 +0.666666E+00/ 04810403
485: 1 27X,27H-0.55555-003 +0.666666+000) 04820403
486: CT023* TEST 23 - E CONVERSION 04830403
487: IVTNUM = 23 04840403
488: WRITE (I02,80004) IVTNUM, REMRKS 04850403
489: WRITE (I02,80020) 04860403
490: WRITE (I02,70230) A3S(2,1,2) 04870403
491: 70230 FORMAT (27X,E14.7) 04880403
492: IVINSP = IVINSP + 1 04890403
493: WRITE (I02,70201) 04900403
494: WRITE (I02,70231) 04910403
495: 70231 FORMAT (27X,14H+0.9876543E+12/ 04920403
496: 1 27X,14H+0.9876543+012) 04930403
497: C***** FORMATTED DATA TRANSFER I/O STATEMENTS WITH LOGICAL 12.8.2 04940403
498: C***** VARIABLES AND ARRAY ELEMENTS IN AN I/O LIST 13.5.10 04950403
499: C***** SOME L EDIT DESCRIPTORS ARE REPEATED. 04960403
500: C***** L EDIT DESCRIPTORS ARE USED IN THE FORMAT STATEMENTS 13.2.1 04970403
501: C***** INPUT CARD 11 04980403
502: 2033 FORMAT (L4) 04990403
503: READ (IRVI,2033) A2B(2,1) 05000403
504: C***** INPUT CARD 12 05010403
505: 2034 FORMAT ( 2L4, L3, L2, L3, L6, L7) 05020403
506: READ (IRVI,2034) MCA1B(1), MCBVB, A2B(1,1), A3B(1,1,1), CVB, 05030403
507: 1 DVB, A3B(1,2,1) 05040403
508: CT024* TEST 24 - L CONVERSION 05050403
509: IVTNUM = 24 05060403
510: WRITE (I02,80004) IVTNUM 05070403
511: WRITE (I02,80020) 05080403
512: WRITE (I02,70240) A2B(2,1), MCA1B(1), MCBVB, A2B(1,1), A3B(1,1,1),05090403
513: 1 CVB, DVB, A3B(1,2,1) 05100403
514: 70240 FORMAT (24X, 3(L4), L3, L2, L3, 05110403
515: 1 2(L1)) 05120403
516: IVINSP = IVINSP + 1 05130403
517: WRITE (I02,80022) 05140403
518: WRITE (I02,70241) 05150403
519: 70241 FORMAT (27X,19HT F F T T FTF) 05160403
520: C***** FORMATTED DATA TRANSFER STATEMENTS WITH ARRAY 12.8.2 05170403
521: C***** NAMES OF SEVERAL TYPES IN AN I/O LIST. THE 12.9.5.2 05180403
522: C***** NUMBER OF ITEMS IN THE LIST IS VARIABLE. SOME 13.2.1 05190403
523: C***** EDIT DESCRIPTORS ARE REPEATED. 05200403
524: C***** OPTIONAL COMMA BEFORE AND AFTER A SLASH 05210403
525: C***** INPUT CARDS 13, 14 05220403
526: 2037 FORMAT(2X,4(F4.1)/5(I2)) 05230403
527: READ (IRVI,2037) A2S, MCA1I 05240403
528: C***** INPUT CARDS 15, 16 05250403
529: 2038 FORMAT(27(F2.1)/5(L1),5L1) 05260403
530: READ (IRVI,2038) A3S, A1B, A3B 05270403
531: C***** INPUT CARDS 17, 18 05280403
532: 2039 FORMAT (2X,2(I2,I2),/,2(2(I2,I2)),2(L1,L1),2(F3.1,F3.1),F3.1) 05290403
533: READ (IRVI,2039) I2I, I3I, A2B, CMA1S 05300403
534: CT025* TEST 25 THRU 28 - UNSUBSCRIPTED ARRAY NAME IN I/O LISTS 05310403
535: WRITE (I02,70250) A2S, MCA1I, A3S, A1B 05320403
536: 70250 FORMAT (17H 25 INSPECT/1H ,16X,10HCOMPUTED: /27X,4(F4.1)/ 05330403
537: 11H ,16X,10HCORRECT: /27X,16H-9.9-9.9-9.9-9.9/17H 26 INSPECT05340403
538: 2/1H ,16X,10HCOMPUTED: /27X,5(I2)/1H ,16X,10HCORRECT: /27X, 05350403
539: 310H9999999999/17H 27 INSPECT,32X,23HLEADING PLUS SIGN/ZERO ,05360403
540: 48HOPTIONAL/1H ,16X,10HCOMPUTED: ,22X,25H3 COMPUTED LINES EXPECTED 05370403
541: 5/27X,3(3(F4.1))/27X,2(2(F4.1,F4.1)),F4.1/27X,9F4.1/1H ,16X, 05380403
542: 610HCORRECT: ,22X,29HEACH RESULT LINE SHOULD EQUAL/ 05390403
543: 7 27X,36H 0.9 0.9 0.9 0.9 0.9 0.9 0.9 0.9 0.9/ 05400403
544: 8 17H 28 INSPECT/1H ,16X,10HCOMPUTED: /27X,2L1/ 05410403
545: 9 1H ,16X,10HCORRECT: /27X,2HTF) 05420403
546: IVINSP = IVINSP + 4 05430403
547: C ADVANCE TO TOP-OF-PAGE AND WRITE HEADERS 05440403
548: WRITE (I02,90002) 05450403
549: WRITE (I02,90013) 05460403
550: WRITE (I02,90014) 05470403
551: CT029* TEST 29 THRU 33 - UNSUBSCRIPTED ARRAY NAMES IN I/O LISTS 05480403
552: WRITE (I02,70290) A3B, I2I, I3I, A2B, CMA1S 05490403
553: 70290 FORMAT (17H 29 INSPECT/1H ,16X,10HCOMPUTED: /27X,8(L1)/1H , 05500403
554: 116X,10HCORRECT: /27X,8HTFTFTFTF/17H 30 INSPECT/1H ,16X, 05510403
555: 210HCOMPUTED: /27X,4(I2)/1H ,16X,10HCORRECT: /27X,8H99999999/ 05520403
556: 317H 31 INSPECT/1H ,16X,10HCOMPUTED: /27X,8(I2)/1H ,16X, 05530403
557: 410HCORRECT: /27X,16H9999999999999999/17H 32 INSPECT/1H , 05540403
558: 516X,10HCOMPUTED: /27X,4(L1)/1H ,16X,10HCORRECT: /27X,4HTFFT/ 05550403
559: 617H 33 INSPECT/1H ,16X,10HCOMPUTED: /27X,5(F3.1)/ 05560403
560: 7 1H ,16X,10HCORRECT: ,/, 05570403
561: 8 27X,15H9.99.99.99.99.9) 05580403
562: IVINSP = IVINSP + 5 05590403
563: CT034* TEST 34 - FORMATTED DATA TRANSFER STATEMENT TO TEST 13.5.10 05600403
564: C***** THAT OPTIONAL BLANKS MAY PRECEDE A LOGICAL INPUT FIELD05610403
565: C***** INPUT CARD 19 05620403
566: 70340 FORMAT ( L6, L4, L10, L5) 05630403
567: READ (IRVI,70340) AVB, MCA1B(2), A2B(1,2), A3B(2,1,2) 05640403
568: IVTNUM = 34 05650403
569: REMRKS = 'LEADING BLANKS ARE REQUIRED' 05660403
570: WRITE (I02,80004) IVTNUM, REMRKS 05670403
571: WRITE (I02,80020) 05680403
572: WRITE (I02,70341) AVB, MCA1B(2), A2B(1,2), A3B(2,1,2) 05690403
573: 70341 FORMAT (27X,L6, L4, L10, L5) 05700403
574: IVINSP = IVINSP + 1 05710403
575: WRITE (I02,80022) 05720403
576: WRITE (I02,70342) 05730403
577: 70342 FORMAT (27X,25H T F T F) 05740403
578: CT035* TEST 35 05750403
579: C***** FORMATTED DATA TRANSFER TO TEST F EDIT DESCRIPTORS 13.5.9.2.1 05760403
580: C***** WHERE D IS EQUAL TO ZERO 05770403
581: C***** INPUT CARD 20 05780403
582: 70350 FORMAT (2X, F3.0, F5.0, F5.5, F1.0) 05790403
583: READ (IRVI,70350) AVS, BVS, CVS, DVS 05800403
584: IVTNUM = 35 05810403
585: WRITE (I02,80004) IVTNUM 05820403
586: WRITE (I02,80020) 05830403
587: WRITE (I02,70351) AVS, BVS 05840403
588: 70351 FORMAT (27X,F4.0,4X,F5.0) 05850403
589: IVINSP = IVINSP + 1 05860403
590: WRITE (I02,80022) 05870403
591: WRITE (I02,70352) 05880403
592: 70352 FORMAT (27X,4H333.,4X,5H4444.) 05890403
593: CT036* TEST 36 05900403
594: C***** FORMATTED DATA TRANSFER TO TEST F EDIT DESCRIPTORS 13.5.9.2.1 05910403
595: C***** WHERE W EQUALS D+1 AND WHERE D IS EQUAL TO ZERO 13.2.1 05920403
596: IVTNUM = 36 05930403
597: WRITE (I02,80004) IVTNUM 05940403
598: WRITE (I02,80020) 05950403
599: WRITE (I02,70360) CVS, DVS 05960403
600: 70360 FORMAT (27X,F6.5,2X,F2.0) 05970403
601: IVINSP = IVINSP + 1 05980403
602: WRITE (I02,80022) 05990403
603: WRITE (I02,70361) 06000403
604: 70361 FORMAT (27X,10H.55555 0.) 06010403
605: CT037* TEST 37 06020403
606: C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 06030403
607: C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 06040403
608: C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 06050403
609: C***** I EDIT DESCRIPTORS 06060403
610: IVTNUM = 37 06070403
611: WRITE (I02,80004) IVTNUM, REMRKS 06080403
612: WRITE (I02,80020) 06090403
613: WRITE (I02,70370) MCA3I(1,2,3) 06100403
614: 70370 FORMAT (27X,I3) 06110403
615: IVINSP = IVINSP + 1 06120403
616: WRITE (I02,80022) 06130403
617: WRITE (I02,70371) 06140403
618: 70371 FORMAT (27X,3H 8) 06150403
619: CT038* TEST 38 06160403
620: C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 06170403
621: C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 06180403
622: C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 06190403
623: C***** I EDIT DESCRIPTORS 06200403
624: IVTNUM = 38 06210403
625: WRITE (I02,80004) IVTNUM, REMRKS 06220403
626: WRITE (I02,80020) 06230403
627: WRITE (I02,70380) IAC1I(3) 06240403
628: 70380 FORMAT (27X,I4) 06250403
629: IVINSP = IVINSP + 1 06260403
630: WRITE (I02,80022) 06270403
631: WRITE (I02,70381) 06280403
632: 70381 FORMAT (27X,4H 22) 06290403
633: CT039* TEST 39 06300403
634: C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 06310403
635: C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 06320403
636: C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 06330403
637: C***** I EDIT DESCRIPTORS 06340403
638: IVTNUM = 39 06350403
639: WRITE (I02,80004) IVTNUM, REMRKS 06360403
640: WRITE (I02,80020) 06370403
641: WRITE (I02,70390) NECVI 06380403
642: 70390 FORMAT (27X,I5) 06390403
643: IVINSP = IVINSP + 1 06400403
644: WRITE (I02,80022) 06410403
645: WRITE (I02,70391) 06420403
646: 70391 FORMAT (27X,5H 22) 06430403
647: C ADVANCE TO TOP-OF-PAGE AND WRITE HEADERS 06440403
648: WRITE (I02,90002) 06450403
649: WRITE (I02,90013) 06460403
650: WRITE (I02,90014) 06470403
651: CT040* TEST 40 06480403
652: C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 06490403
653: C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 06500403
654: C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 06510403
655: C***** I EDIT DESCRIPTORS 06520403
656: IVTNUM = 40 06530403
657: WRITE (I02,80004) IVTNUM, REMRKS 06540403
658: WRITE (I02,80020) 06550403
659: WRITE (I02,70400) IAC1I(3) 06560403
660: 70400 FORMAT (27X,I6) 06570403
661: IVINSP = IVINSP + 1 06580403
662: WRITE (I02,80022) 06590403
663: WRITE (I02,70401) 06600403
664: 70401 FORMAT (27X,6H 22) 06610403
665: CT041* TEST 41 06620403
666: C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 06630403
667: C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 06640403
668: C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 06650403
669: C***** I EDIT DESCRIPTORS 06660403
670: IVTNUM = 41 06670403
671: WRITE (I02,80004) IVTNUM, REMRKS 06680403
672: WRITE (I02,80020) 06690403
673: WRITE (I02,70410) IAC2I(2,3) 06700403
674: 70410 FORMAT (27X,I7) 06710403
675: IVINSP = IVINSP + 1 06720403
676: WRITE (I02,80022) 06730403
677: WRITE (I02,70411) 06740403
678: 70411 FORMAT (27X,7H 22) 06750403
679: CT042* TEST 42 06760403
680: C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 06770403
681: C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 06780403
682: C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 06790403
683: C***** F EDIT DESCRIPTORS 06800403
684: IVTNUM = 42 06810403
685: WRITE (I02,80004) IVTNUM, REMRKS 06820403
686: WRITE (I02,80020) 06830403
687: WRITE (I02,70420) ACVS 06840403
688: 70420 FORMAT (27X,F5.1) 06850403
689: IVINSP = IVINSP + 1 06860403
690: WRITE (I02,80022) 06870403
691: WRITE (I02,70421) 06880403
692: 70421 FORMAT (27X,5H 7.7) 06890403
693: CT043* TEST 43 06900403
694: CT043* TEST 43 - FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 06910403
695: C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 06920403
696: C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 06930403
697: C***** F EDIT DESCRIPTORS 06940403
698: IVTNUM = 43 06950403
699: WRITE (I02,80004) IVTNUM, REMRKS 06960403
700: WRITE (I02,80020) 06970403
701: WRITE (I02,70430) A1S(2) 06980403
702: 70430 FORMAT (27X,F7.2) 06990403
703: IVINSP = IVINSP + 1 07000403
704: WRITE (I02,80022) 07010403
705: WRITE (I02,70431) 07020403
706: 70431 FORMAT (27X,7H 8.88) 07030403
707: CT044* TEST 44 - FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 07040403
708: C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 07050403
709: C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 07060403
710: C***** F EDIT DESCRIPTORS 07070403
711: IVTNUM = 44 07080403
712: WRITE (I02,80004) IVTNUM, REMRKS 07090403
713: WRITE (I02,80020) 07100403
714: WRITE (I02,70440) BCVS 07110403
715: 70440 FORMAT (27X,F9.3) 07120403
716: IVINSP = IVINSP + 1 07130403
717: WRITE (I02,80022) 07140403
718: WRITE (I02,70441) 07150403
719: 70441 FORMAT (27X,9H 9.999) 07160403
720: CT045* TEST 45 07170403
721: C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 07180403
722: C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 07190403
723: C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 07200403
724: C***** F EDIT DESCRIPTORS 07210403
725: IVTNUM = 45 07220403
726: WRITE (I02,80004) IVTNUM, REMRKS 07230403
727: WRITE (I02,80020) 07240403
728: WRITE (I02,70450) HHCVS 07250403
729: 70450 FORMAT (27X,F11.4) 07260403
730: IVINSP = IVINSP + 1 07270403
731: WRITE (I02,80022) 07280403
732: WRITE (I02,70451) 07290403
733: 70451 FORMAT (27X,11H 5.4444) 07300403
734: CT046* TEST 46 07310403
735: C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 07320403
736: C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 07330403
737: C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 07340403
738: C***** F EDIT DESCRIPTORS 07350403
739: IVTNUM = 46 07360403
740: WRITE (I02,80004) IVTNUM, REMRKS 07370403
741: WRITE (I02,80020) 07380403
742: WRITE (I02,70460) CMCVS 07390403
743: 70460 FORMAT (27X,F13.5) 07400403
744: IVINSP = IVINSP + 1 07410403
745: WRITE (I02,80022) 07420403
746: WRITE (I02,70461) 07430403
747: 70461 FORMAT (27X,13H 6.55555) 07440403
748: CT047* TEST 47 07450403
749: C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 07460403
750: C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 07470403
751: C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 07480403
752: C***** F EDIT DESCRIPTORS 07490403
753: IVTNUM = 47 07500403
754: WRITE (I02,80004) IVTNUM, REMRKS 07510403
755: WRITE (I02,80020) 07520403
756: WRITE (I02,70470) CMBVS 07530403
757: 70470 FORMAT (27X,F15.6) 07540403
758: IVINSP = IVINSP + 1 07550403
759: WRITE (I02,80022) 07560403
760: WRITE (I02,70471) 07570403
761: 70471 FORMAT (27X,15H 7.123456) 07580403
762: CT048* TEST 48 07590403
763: C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 07600403
764: C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 07610403
765: C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 07620403
766: C***** E EDIT DESCRIPTORS 07630403
767: IVTNUM = 48 07640403
768: WRITE (I02,80004) IVTNUM, REMRKS 07650403
769: WRITE (I02,80020) 07660403
770: WRITE (I02,70480) DCVS 07670403
771: 70480 FORMAT (27X,E10.2) 07680403
772: IVINSP = IVINSP + 1 07690403
773: WRITE (I02,70201) 07700403
774: WRITE (I02,70481) 07710403
775: 70481 FORMAT (27X,10H 0.21E+01/ 07720403
776: 1 27X,10H 0.21+001) 07730403
777: CT049* TEST 49 07740403
778: C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 07750403
779: C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 07760403
780: C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 07770403
781: C***** E EDIT DESCRIPTORS 07780403
782: IVTNUM = 49 07790403
783: WRITE (I02,80004) IVTNUM, REMRKS 07800403
784: WRITE (I02,80020) 07810403
785: WRITE (I02,70490) AC1S(25) 07820403
786: 70490 FORMAT (27X,E12.3) 07830403
787: IVINSP = IVINSP + 1 07840403
788: WRITE (I02,70201) 07850403
789: WRITE (I02,70491) 07860403
790: 70491 FORMAT (27X,12H 0.331E+02/ 07870403
791: 1 27X,12H 0.331+002) 07880403
792: C ADVANCE TO TOP-OF-PAGE AND WRITE HEADERS 07890403
793: WRITE (I02,90002) 07900403
794: WRITE (I02,90013) 07910403
795: WRITE (I02,90014) 07920403
796: CT050* TEST 50 07930403
797: C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 07940403
798: C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 07950403
799: C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 07960403
800: C***** E EDIT DESCRIPTORS 07970403
801: IVTNUM = 50 07980403
802: WRITE (I02,80004) IVTNUM, REMRKS 07990403
803: WRITE (I02,80020) 08000403
804: WRITE (I02,70500) AC2S(4,1) 08010403
805: 70500 FORMAT (27X,E14.4) 08020403
806: IVINSP = IVINSP + 1 08030403
807: WRITE (I02,70201) 08040403
808: WRITE (I02,70501) 08050403
809: 70501 FORMAT (27X,14H 0.4441E+03/ 08060403
810: 1 27X,14H 0.4441+003) 08070403
811: CT051* TEST 51 08080403
812: C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 08090403
813: C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 08100403
814: C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 08110403
815: C***** E EDIT DESCRIPTORS 08120403
816: IVTNUM = 51 08130403
817: WRITE (I02,80004) IVTNUM, REMRKS 08140403
818: WRITE (I02,80020) 08150403
819: WRITE (I02,70510) AC1S(7) 08160403
820: 70510 FORMAT (27X,E16.5) 08170403
821: IVINSP = IVINSP + 1 08180403
822: WRITE (I02,70201) 08190403
823: WRITE (I02,70511) 08200403
824: 70511 FORMAT (27X,16H 0.55551E+04/ 08210403
825: 1 27X,16H 0.55551+004) 08220403
826: CT052* TEST 52 08230403
827: C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 08240403
828: C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 08250403
829: C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 08260403
830: C***** E EDIT DESCRIPTORS 08270403
831: IVTNUM = 52 08280403
832: WRITE (I02,80004) IVTNUM, REMRKS 08290403
833: WRITE (I02,80020) 08300403
834: WRITE (I02,70520) AC1S(8) 08310403
835: 70520 FORMAT (27X,E18.6) 08320403
836: IVINSP = IVINSP + 1 08330403
837: WRITE (I02,70201) 08340403
838: WRITE (I02,70521) 08350403
839: 70521 FORMAT (27X,18H 0.666661E+05/ 08360403
840: 1 27X,18H 0.666661+005) 08370403
841: CT053* TEST 53 08380403
842: C***** FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 08390403
843: C***** ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 08400403
844: C***** PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 08410403
845: C***** E EDIT DESCRIPTORS 08420403
846: IVTNUM = 53 08430403
847: WRITE (I02,80004) IVTNUM, REMRKS 08440403
848: WRITE (I02,80020) 08450403
849: WRITE (I02,70530) CMAVS 08460403
850: 70530 FORMAT (27X,E20.7) 08470403
851: IVINSP = IVINSP + 1 08480403
852: WRITE (I02,70201) 08490403
853: WRITE (I02,70531) 08500403
854: 70531 FORMAT (27X,20H 0.1234567E+06/ 08510403
855: 1 27X,20H 0.1234567+006) 08520403
856: CT054* TEST 54 08530403
857: C***** SCALE FACTOR APPLIED TO F AND E EDIT DESCRIPTORS 08540403
858: C***** ON READ, BUT NOT ON WRITE 08550403
859: C***** INPUT CARD 21 08560403
860: 2050 FORMAT(2PF8.3,-2PE9.4,F9.4,0PF9.4,9X,-2PE9.4,F9.4) 08570403
861: READ(IRVI,2050)EP1S(16),EP1S(17),EP1S(18), EP1S(19), 08580403
862: 1 EP1S(20),EP1S(22) 08590403
863: IVTNUM = 54 08600403
864: WRITE (I02,80004) IVTNUM, REMRKS 08610403
865: WRITE (I02,80020) 08620403
866: WRITE (I02,70540) EP1S(16),EP1S(17),EP1S(18) 08630403
867: 70540 FORMAT (27X,F12.4, E12.4, F12.2) 08640403
868: IVINSP = IVINSP + 1 08650403
869: WRITE (I02,70201) 08660403
870: WRITE (I02,70541) 08670403
871: 70541 FORMAT (27X,36H 98.7654 0.9877E+04 987654.00/ 08680403
872: 1 27X,36H 0.9877+004 ) 08690403
873: CT055* TEST 55 08700403
874: C***** SCALE FACTOR APPLIED TO F AND E EDIT DESCRIPTORS 08710403
875: C***** ON READ, BUT NOT ON WRITE 08720403
876: IVTNUM = 55 08730403
877: WRITE (I02,80004) IVTNUM, REMRKS 08740403
878: WRITE (I02,80020) 08750403
879: WRITE (I02,70550) EP1S(19),EP1S(20),EP1S(22) 08760403
880: 70550 FORMAT( 27X,F12.3, E12.4,F12.3 ) 08770403
881: IVINSP = IVINSP + 1 08780403
882: WRITE (I02,70201) 08790403
883: WRITE (I02,70551) 08800403
884: 70552 FORMAT (1H ,48X,5H OR) 08800*TI
885: WRITE (I02,70552) 08800*TI
886: 70553 FORMAT (27X,36H 987.654 0.8648E+04 8647.859/ 08800*TI
887: 1 27X,36H 0.8648+004 ) 08800*TI
888: WRITE (I02,70553) 08800*TI
889: WRITE (I02,90004) 08800*TI
890: 70551 FORMAT (27X,36H 987.654 0.8648E+04 8647.860/ 08810403
891: 1 27X,36H 0.8648+004 ) 08820403
892: CT056* TEST 56 08830403
893: C***** SCALE FACTOR APPLIED TO F AND E EDIT DESCRIPTORS 08840403
894: C***** ON WRITE, BUT, NOT ON READ 08850403
895: C***** INPUT CARD 22 08860403
896: 2053 FORMAT(F8.2,E9.4,F9.2,F9.3,9X,E9.4,F9.4) 08870403
897: READ(IRVI,2053) AC1S(1),AC1S(2),AC1S(3),AC1S(4), 08880403
898: 1 AC1S(20),AC1S(23) 08890403
899: IVTNUM = 56 08900403
900: WRITE (I02,80004) IVTNUM, REMRKS 08910403
901: WRITE (I02,80020) 08920403
902: WRITE (I02,70560) AC1S(1),AC1S(2),AC1S(3) 08930403
903: 70560 FORMAT (27X,2PF12.2, -2PE12.4,F12.4) 08940403
904: IVINSP = IVINSP + 1 08950403
905: WRITE (I02,70201) 08960403
906: WRITE (I02,70561) 08970403
907: 70561 FORMAT (27X,36H 987.66 0.0099E+06 98.7654/ 08980403
908: 1 27X,36H 0.0099+006 ) 08990403
909: CT057* TEST 57 - SCALE FACTOR APPLIED TO F AND E EDIT DESCRIPTORS 09000403
910: C***** ON WRITE, BUT, NOT ON READ 09010403
911: IVTNUM = 57 09020403
912: WRITE (I02,80004) IVTNUM, REMRKS 09030403
913: WRITE (I02,80020) 09040403
914: WRITE (I02,70570) AC1S(4), AC1S(20),AC1S(23) 09050403
915: 70570 FORMAT (27X,1PE12.2, -2PE12.4, 2PF12.2 ) 09060403
916: IVINSP = IVINSP + 1 09070403
917: WRITE (I02,70201) 09080403
918: WRITE (I02,70571) 09090403
919: 70571 FORMAT (27X,36H 9.88E+02 0.0086E+06 8647.86/ 09100403
920: 1 27X,36H 9.88+002 0.0086+006 ) 09110403
921: CT058* TEST 58 - I/O FORMAT RESCAN 09120403
922: C***** INPUT CARDS 23, 24, 25 09130403
923: 2055 FORMAT( I1,I2,I3) 09140403
924: READ(IRVI,2055) I2I,IAC1I 09150403
925: IVTNUM = 58 09160403
926: REMRKS = '3 COMPUTED LINES EXPECTED' 09170403
927: WRITE (I02,80004) IVTNUM, REMRKS 09180403
928: WRITE (I02,80020) 09190403
929: WRITE(I02,70580) I2I(1,1),I2I(2,1),I2I(1,2),I2I(2,2),IAC1I 09200403
930: 70580 FORMAT (27X,I4,I5,I6) 09210403
931: IVINSP = IVINSP + 1 09220403
932: WRITE (I02,70011) 09230403
933: WRITE (I02,70581) 09240403
934: 70581 FORMAT (27X,15H 1 22 333/ 09250403
935: 1 27X,15H 4 55 666/ 09260403
936: 2 27X,15H 7 88 999) 09270403
937: C ADVANCE TO TOP-OF-PAGE AND WRITE HEADERS 09280403
938: WRITE (I02,90002) 09290403
939: WRITE (I02,90013) 09300403
940: WRITE (I02,90014) 09310403
941: C***** INPUT CARDS 26, 27 09320403
942: 2058 FORMAT(I4, 2(I1,1X,I2)) 09330403
943: READ( IRVI,2058) I2I, IAC1I 09340403
944: CT059* TEST 59 - I/O FORMAT RESCAN 09350403
945: IVTNUM = 59 09360403
946: REMRKS = '2 COMPUTED LINES EXPECTED' 09370403
947: WRITE (I02,80004) IVTNUM, REMRKS 09380403
948: WRITE (I02,80020) 09390403
949: WRITE( I02,70590) I2I(2,1),I2I(2,2),IAC1I(2),IAC1I(4) 09400403
950: 70590 FORMAT (27X,I4,3H **,1(27X,I4,3H '',(I4,3H (())) 09410403
951: IVINSP = IVINSP + 1 09420403
952: WRITE (I02,70011) 09430403
953: WRITE (I02,70591) 09440403
954: 70591 FORMAT(27X,7H 2 **,30X,11H4 '' 6 ((,/ 09450403
955: 1 27X,7H 8 '') 09460403
956: CBB** ********************** BBCSUM0 **********************************09470403
957: C**** WRITE OUT TEST SUMMARY 09480403
958: C**** 09490403
959: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 09500403
960: WRITE (I02, 90004) 09510403
961: WRITE (I02, 90014) 09520403
962: WRITE (I02, 90004) 09530403
963: WRITE (I02, 90020) IVPASS 09540403
964: WRITE (I02, 90022) IVFAIL 09550403
965: WRITE (I02, 90024) IVDELE 09560403
966: WRITE (I02, 90026) IVINSP 09570403
967: WRITE (I02, 90028) IVTOTN, IVTOTL 09580403
968: CBE** ********************** BBCSUM0 **********************************09590403
969: CBB** ********************** BBCFOOT0 **********************************09600403
970: C**** WRITE OUT REPORT FOOTINGS 09610403
971: C**** 09620403
972: WRITE (I02,90016) ZPROG, ZPROG 09630403
973: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 09640403
974: WRITE (I02,90019) 09650403
975: CBE** ********************** BBCFOOT0 **********************************09660403
976: CBB** ********************** BBCFMT0A **********************************09670403
977: C**** FORMATS FOR TEST DETAIL LINES 09680403
978: C**** 09690403
979: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 09700403
980: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 09710403
981: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 09720403
982: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 09730403
983: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 09740403
984: 1I6,/,1H ,15X,10HCORRECT= ,I6) 09750403
985: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 09760403
986: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 09770403
987: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 09780403
988: 1A21,/,1H ,16X,10HCORRECT= ,A21) 09790403
989: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 09800403
990: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 09810403
991: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 09820403
992: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 09830403
993: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 09840403
994: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 09850403
995: 80050 FORMAT (1H ,48X,A31) 09860403
996: CBE** ********************** BBCFMT0A **********************************09870403
997: CBB** ********************** BBCFMT0B **********************************09880403
998: C**** FORMAT STATEMENTS FOR PAGE HEADERS 09890403
999: C**** 09900403
1000: 90002 FORMAT (1H1) 09910403
1001: 90004 FORMAT (1H ) 09920403
1002: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 09930403
1003: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 09940403
1004: 90008 FORMAT (1H ,21X,A13,A17) 09950403
1005: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 09960403
1006: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 09970403
1007: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 09980403
1008: 1 7X,7HREMARKS,24X) 09990403
1009: 90014 FORMAT (1H ,46H----------------------------------------------, 10000403
1010: 1 33H---------------------------------) 10010403
1011: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 10020403
1012: C**** 10030403
1013: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 10040403
1014: C**** 10050403
1015: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 10060403
1016: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 10070403
1017: 1 A13) 10080403
1018: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 10090403
1019: C**** 10100403
1020: C**** FORMAT STATEMENTS FOR RUN SUMMARY 10110403
1021: C**** 10120403
1022: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 10130403
1023: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 10140403
1024: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 10150403
1025: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 10160403
1026: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 10170403
1027: CBE** ********************** BBCFMT0B **********************************10180403
1028: C***** 10190403
1029: C***** END OF TEST SEGMENT 020 10200403
1030: STOP 10210403
1031: END 10220403
1032: 10230403
1033: 10240403
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.