![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM372.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 FM372.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***********************************************************************00010372
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 00020372
6: C***** FM372 00030372
7: C***** XSIN - (186) 00040372
8: C***** 00050372
9: C***********************************************************************00060372
10: C***** GENERAL PURPOSE SUBSET REF 00070372
11: C***** TEST INTRINSIC FUNCTION SIN 15.3 00080372
12: C***** TABLE 5 00090372
13: C***** 00100372
14: CBB** ********************** BBCCOMNT **********************************00110372
15: C**** 00120372
16: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130372
17: C**** VERSION 2.0 00140372
18: C**** 00150372
19: C**** 00160372
20: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170372
21: C**** GENERAL SERVICES ADMINISTRATION 00180372
22: C**** FEDERAL SOFTWARE TESTING CENTER 00190372
23: C**** 5203 LEESBURG PIKE, SUITE 1100 00200372
24: C**** FALLS CHURCH, VA. 22041 00210372
25: C**** 00220372
26: C**** (703) 756-6153 00230372
27: C**** 00240372
28: CBE** ********************** BBCCOMNT **********************************00250372
29: CBB** ********************** BBCINITA **********************************00260372
30: C**** SPECIFICATION STATEMENTS 00270372
31: C**** 00280372
32: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00290372
33: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00300372
34: CBE** ********************** BBCINITA **********************************00310372
35: CBB** ********************** BBCINITB **********************************00320372
36: C**** INITIALIZE SECTION 00330372
37: DATA ZVERS, ZVERSD, ZDATE 00340372
38: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00350372
39: DATA ZCOMPL, ZNAME, ZTAPE 00360372
40: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00370372
41: DATA ZPROJ, ZTAPED, ZPROG 00380372
42: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00390372
43: DATA REMRKS /' '/ 00400372
44: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00410372
45: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00420372
46: C**** 00430372
47: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00440372
48: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00450372
49: CZ03 ZPROG = 'PROGRAM NAME' 00460372
50: ZDATE = '07-Nov-85 ' *RP
51: ZCOMPL = 'CCI 5.2 ' *RP
52: ZPROJ = 'TC-85- -410' *RP
53: ZNAME = ' ' *RP
54: ZTAPE = ' ' *RP
55: ZTAPED = '850703 ' *RP
56: C 00530372
57: IVPASS = 0 00540372
58: IVFAIL = 0 00550372
59: IVDELE = 0 00560372
60: IVINSP = 0 00570372
61: IVTOTL = 0 00580372
62: IVTOTN = 0 00590372
63: ICZERO = 0 00600372
64: C 00610372
65: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00620372
66: I01 = 05 00630372
67: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00640372
68: I02 = 06 00650372
69: C 00660372
70: I01 = 5 00670372
71: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00680372
72: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00690372
73: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00700372
74: C 00710372
75: I02 = 6 00720372
76: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00730372
77: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00740372
78: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00750372
79: C 00760372
80: CBE** ********************** BBCINITB **********************************00770372
81: NUVI = I02 00780372
82: IVTOTL = 18 00790372
83: ZPROG = 'FM372' 00800372
84: CBB** ********************** BBCHED0A **********************************00810372
85: C**** 00820372
86: C**** WRITE REPORT TITLE 00830372
87: C**** 00840372
88: WRITE (I02, 90002) 00850372
89: WRITE (I02, 90006) 00860372
90: WRITE (I02, 90007) 00870372
91: WRITE (I02, 90008) ZVERS, ZVERSD 00880372
92: WRITE (I02, 90009) ZPROG, ZPROG 00890372
93: WRITE (I02, 90010) ZDATE, ZCOMPL 00900372
94: CBE** ********************** BBCHED0A **********************************00910372
95: C***** 00920372
96: C***** HEADER FOR SEGMENT 186 00930372
97: WRITE(NUVI,18600) 00940372
98: 18600 FORMAT(1H ,33H XSIN - (186) INTRINSIC FUNCTIONS// 00950372
99: 1 12H SIN (SINE)// 00960372
100: 2 20H SUBSET REF. - 15.3) 00970372
101: CBB** ********************** BBCHED0B **********************************00980372
102: C**** WRITE DETAIL REPORT HEADERS 00990372
103: C**** 01000372
104: WRITE (I02,90004) 01010372
105: WRITE (I02,90004) 01020372
106: WRITE (I02,90013) 01030372
107: WRITE (I02,90014) 01040372
108: WRITE (I02,90015) IVTOTL 01050372
109: CBE** ********************** BBCHED0B **********************************01060372
110: C***** 01070372
111: PIVS = 3.1415926535897932384626434 01080372
112: C***** 01090372
113: CT001* TEST 1 ZERO (0.0), SINCE SIN(0)=0 01100372
114: IVTNUM = 1 01110372
115: BVS = 0.0 01120372
116: AVS = SIN(BVS) 01130372
117: IF (AVS + 0.50000E-04) 20010, 10010, 40010 01140372
118: 40010 IF (AVS - 0.50000E-04) 10010, 10010, 20010 01150372
119: 10010 IVPASS = IVPASS + 1 01160372
120: WRITE (NUVI, 80002) IVTNUM 01170372
121: GO TO 0011 01180372
122: 20010 IVFAIL = IVFAIL + 1 01190372
123: RVCORR = 0.00000000000000 01200372
124: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01210372
125: 0011 CONTINUE 01220372
126: CT002* TEST 2 PI 01230372
127: IVTNUM = 2 01240372
128: AVS = SIN(PIVS) 01250372
129: IF (AVS + 0.50000E-04) 20020, 10020, 40020 01260372
130: 40020 IF (AVS - 0.50000E-04) 10020, 10020, 20020 01270372
131: 10020 IVPASS = IVPASS + 1 01280372
132: WRITE (NUVI, 80002) IVTNUM 01290372
133: GO TO 0021 01300372
134: 20020 IVFAIL = IVFAIL + 1 01310372
135: RVCORR = 0.00000000000000 01320372
136: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01330372
137: 0021 CONTINUE 01340372
138: CT003* TEST 3 PI - 1/8 01350372
139: IVTNUM = 3 01360372
140: BVS = 3.0165926535 01370372
141: AVS = SIN(BVS) 01380372
142: IF (AVS - 0.12466E+00) 20030, 10030, 40030 01390372
143: 40030 IF (AVS - 0.12468E+00) 10030, 10030, 20030 01400372
144: 10030 IVPASS = IVPASS + 1 01410372
145: WRITE (NUVI, 80002) IVTNUM 01420372
146: GO TO 0031 01430372
147: 20030 IVFAIL = IVFAIL + 1 01440372
148: RVCORR = 0.12467473338523 01450372
149: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01460372
150: 0031 CONTINUE 01470372
151: CT004* TEST 4 PI - 1/16 01480372
152: IVTNUM = 4 01490372
153: AVS = SIN(3.2040926535) 01500372
154: IF (AVS + 0.62463E-01) 20040, 10040, 40040 01510372
155: 40040 IF (AVS + 0.62456E-01) 10040, 10040, 20040 01520372
156: 10040 IVPASS = IVPASS + 1 01530372
157: WRITE (NUVI, 80002) IVTNUM 01540372
158: GO TO 0041 01550372
159: 20040 IVFAIL = IVFAIL + 1 01560372
160: RVCORR = -0.06245931784238 01570372
161: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01580372
162: 0041 CONTINUE 01590372
163: CT005* TEST 5 2*PI 01600372
164: IVTNUM = 5 01610372
165: BVS = PIVS * 2.0 01620372
166: AVS = SIN(BVS) 01630372
167: IF (AVS + 0.50000E-04) 20050, 10050, 40050 01640372
168: 40050 IF (AVS - 0.50000E-04) 10050, 10050, 20050 01650372
169: 10050 IVPASS = IVPASS + 1 01660372
170: WRITE (NUVI, 80002) IVTNUM 01670372
171: GO TO 0051 01680372
172: 20050 IVFAIL = IVFAIL + 1 01690372
173: RVCORR = 0.00000000000000 01700372
174: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01710372
175: 0051 CONTINUE 01720372
176: CT006* TEST 6 2*PI - 1/128 01730372
177: IVTNUM = 6 01740372
178: BVS = (2.0 * PIVS) - 1.0 / 128.0 01750372
179: AVS = SIN(BVS) 01760372
180: IF (AVS + 0.78129E-02) 20060, 10060, 40060 01770372
181: 40060 IF (AVS + 0.78120E-02) 10060, 10060, 20060 01780372
182: 10060 IVPASS = IVPASS + 1 01790372
183: WRITE (NUVI, 80002) IVTNUM 01800372
184: GO TO 0061 01810372
185: 20060 IVFAIL = IVFAIL + 1 01820372
186: RVCORR = -0.00781242052738 01830372
187: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01840372
188: 70061 FORMAT (1H ,16X,34HINFORMATIVE - UNDER REVIEW BY FSTC) 01840*TI
189: WRITE (NUVI,70061) 01840*TI
190: 0061 CONTINUE 01850372
191: CT007* TEST 7 THE VALUE 2.0 01860372
192: IVTNUM = 7 01870372
193: BVS = 2.0 01880372
194: AVS = SIN(BVS) 01890372
195: IF (AVS - 0.90925E+00) 20070, 10070, 40070 01900372
196: 40070 IF (AVS - 0.90935E+00) 10070, 10070, 20070 01910372
197: 10070 IVPASS = IVPASS + 1 01920372
198: WRITE (NUVI, 80002) IVTNUM 01930372
199: GO TO 0071 01940372
200: 20070 IVFAIL = IVFAIL + 1 01950372
201: RVCORR = 0.90929742682568 01960372
202: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 01970372
203: 0071 CONTINUE 01980372
204: CT008* TEST 8 THE VALUE -2.0 01990372
205: IVTNUM = 8 02000372
206: BVS = -2.0 02010372
207: AVS = SIN(BVS) 02020372
208: IF (AVS + 0.90935E+00) 20080, 10080, 40080 02030372
209: 40080 IF (AVS + 0.90925E+00) 10080, 10080, 20080 02040372
210: 10080 IVPASS = IVPASS + 1 02050372
211: WRITE (NUVI, 80002) IVTNUM 02060372
212: GO TO 0081 02070372
213: 20080 IVFAIL = IVFAIL + 1 02080372
214: RVCORR = -0.90929742682568 02090372
215: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02100372
216: 0081 CONTINUE 02110372
217: CT009* TEST 09 A LARGE VALUE TO TEST ARGUMENT REDUCTION 02120372
218: IVTNUM = 09 02130372
219: AVS = SIN(100.0) 02140372
220: IF (AVS + 0.50639E+00) 20090, 10090, 40090 02150372
221: 40090 IF (AVS + 0.50634E+00) 10090, 10090, 20090 02160372
222: 10090 IVPASS = IVPASS + 1 02170372
223: WRITE (NUVI, 80002) IVTNUM 02180372
224: GO TO 0091 02190372
225: 20090 IVFAIL = IVFAIL + 1 02200372
226: RVCORR = -0.50636564110976 02210372
227: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02220372
228: 0091 CONTINUE 02230372
229: CT010* TEST 10 A VERY LARGE VALUE 02240372
230: IVTNUM = 10 02250372
231: AVS = SIN(-1000.0) 02260372
232: IF (AVS + 0.82692E+00) 20100, 10100, 40100 02270372
233: 40100 IF (AVS + 0.82683E+00) 10100, 10100, 20100 02280372
234: 10100 IVPASS = IVPASS + 1 02290372
235: WRITE (NUVI, 80002) IVTNUM 02300372
236: GO TO 0101 02310372
237: 20100 IVFAIL = IVFAIL + 1 02320372
238: RVCORR = -0.82687954053200 02330372
239: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02340372
240: 0101 CONTINUE 02350372
241: CT011* TEST 11 PI/2 02360372
242: IVTNUM = 11 02370372
243: AVS = SIN(1.5707963268) 02380372
244: IF (AVS - 0.99995E+00) 20110, 10110, 40110 02390372
245: 40110 IF (AVS - 0.10001E+01) 10110, 10110, 20110 02400372
246: 10110 IVPASS = IVPASS + 1 02410372
247: WRITE (NUVI, 80002) IVTNUM 02420372
248: GO TO 0111 02430372
249: 20110 IVFAIL = IVFAIL + 1 02440372
250: RVCORR = 1.00000000000000 02450372
251: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02460372
252: 0111 CONTINUE 02470372
253: CT012* TEST 12 PI/2 - 1/32 02480372
254: IVTNUM = 12 02490372
255: BVS = 1.5395463268 02500372
256: AVS = SIN(BVS) 02510372
257: IF (AVS - 0.99946E+00) 20120, 10120, 40120 02520372
258: 40120 IF (AVS - 0.99957E+00) 10120, 10120, 20120 02530372
259: 10120 IVPASS = IVPASS + 1 02540372
260: WRITE (NUVI, 80002) IVTNUM 02550372
261: GO TO 0121 02560372
262: 20120 IVFAIL = IVFAIL + 1 02570372
263: RVCORR = 0.99951175848514 02580372
264: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02590372
265: 0121 CONTINUE 02600372
266: CT013* TEST 13 PI/2 - 1/64 02610372
267: IVTNUM = 13 02620372
268: AVS = SIN(1.5864213268) 02630372
269: IF (AVS - 0.99982E+00) 20130, 10130, 40130 02640372
270: 40130 IF (AVS - 0.99993E+00) 10130, 10130, 20130 02650372
271: 10130 IVPASS = IVPASS + 1 02660372
272: WRITE (NUVI, 80002) IVTNUM 02670372
273: GO TO 0131 02680372
274: 20130 IVFAIL = IVFAIL + 1 02690372
275: RVCORR = 0.99987793217101 02700372
276: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02710372
277: 0131 CONTINUE 02720372
278: CT014* TEST 14 3*PI/2 02730372
279: IVTNUM = 14 02740372
280: BVS = 3.0 * PIVS / 2.0 02750372
281: AVS = SIN(BVS) 02760372
282: IF (AVS + 0.10001E+01) 20140, 10140, 40140 02770372
283: 40140 IF (AVS + 0.99995E+00) 10140, 10140, 20140 02780372
284: 10140 IVPASS = IVPASS + 1 02790372
285: WRITE (NUVI, 80002) IVTNUM 02800372
286: GO TO 0141 02810372
287: 20140 IVFAIL = IVFAIL + 1 02820372
288: RVCORR = -1.00000000000000 02830372
289: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02840372
290: 0141 CONTINUE 02850372
291: CT015* TEST 15 3*PI/2 - 1/16 02860372
292: IVTNUM = 15 02870372
293: BVS = (3.0 * PIVS / 2.0) - 1.0 / 16.0 02880372
294: AVS = SIN(BVS) 02890372
295: IF (AVS + 0.99810E+00) 20150, 10150, 40150 02900372
296: 40150 IF (AVS + 0.99799E+00) 10150, 10150, 20150 02910372
297: 10150 IVPASS = IVPASS + 1 02920372
298: WRITE (NUVI, 80002) IVTNUM 02930372
299: GO TO 0151 02940372
300: 20150 IVFAIL = IVFAIL + 1 02950372
301: RVCORR = -0.99804751070010 02960372
302: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 02970372
303: 0151 CONTINUE 02980372
304: CT016* TEST 16 3*PI/2 - 1/512 02990372
305: IVTNUM = 16 03000372
306: BVS = (3.0 * PIVS / 2.0) + 1.0 / 512.0 03010372
307: AVS = SIN(BVS) 03020372
308: IF (AVS + 0.10001E+01) 20160, 10160, 40160 03030372
309: 40160 IF (AVS + 0.99994E+00) 10160, 10160, 20160 03040372
310: 10160 IVPASS = IVPASS + 1 03050372
311: WRITE (NUVI, 80002) IVTNUM 03060372
312: GO TO 0161 03070372
313: 20160 IVFAIL = IVFAIL + 1 03080372
314: RVCORR = -0.99999809265197 03090372
315: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 03100372
316: 0161 CONTINUE 03110372
317: CT017* TEST 17 ARGUMENT OF LOW MAGNITUDE 03120372
318: IVTNUM = 17 03130372
319: BVS = PIVS * 1.0E-37 03140372
320: AVS = SIN(BVS) 03150372
321: IF (AVS + 0.50000E-04) 20170, 10170, 40170 03160372
322: 40170 IF (AVS - 0.50000E-04) 10170, 10170, 20170 03170372
323: 10170 IVPASS = IVPASS + 1 03180372
324: WRITE (NUVI, 80002) IVTNUM 03190372
325: GO TO 0171 03200372
326: 20170 IVFAIL = IVFAIL + 1 03210372
327: RVCORR = 3.14159265358979E-37 03220372
328: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 03230372
329: 0171 CONTINUE 03240372
330: CT018* TEST 18 THE FUNCTION APPLIED TWICE 03250372
331: IVTNUM = 18 03260372
332: AVS = SIN(PIVS / 4.0) * SIN(3.0 * PIVS / 4.0) 03270372
333: IF (AVS - 0.49997E+00) 20180, 10180, 40180 03280372
334: 40180 IF (AVS - 0.50003E+00) 10180, 10180, 20180 03290372
335: 10180 IVPASS = IVPASS + 1 03300372
336: WRITE (NUVI, 80002) IVTNUM 03310372
337: GO TO 0181 03320372
338: 20180 IVFAIL = IVFAIL + 1 03330372
339: RVCORR = 0.50000000000000 03340372
340: WRITE (NUVI, 80012) IVTNUM, AVS, RVCORR 03350372
341: 0181 CONTINUE 03360372
342: C***** 03370372
343: CBB** ********************** BBCSUM0 **********************************03380372
344: C**** WRITE OUT TEST SUMMARY 03390372
345: C**** 03400372
346: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 03410372
347: WRITE (I02, 90004) 03420372
348: WRITE (I02, 90014) 03430372
349: WRITE (I02, 90004) 03440372
350: WRITE (I02, 90020) IVPASS 03450372
351: WRITE (I02, 90022) IVFAIL 03460372
352: WRITE (I02, 90024) IVDELE 03470372
353: WRITE (I02, 90026) IVINSP 03480372
354: WRITE (I02, 90028) IVTOTN, IVTOTL 03490372
355: CBE** ********************** BBCSUM0 **********************************03500372
356: CBB** ********************** BBCFOOT0 **********************************03510372
357: C**** WRITE OUT REPORT FOOTINGS 03520372
358: C**** 03530372
359: WRITE (I02,90016) ZPROG, ZPROG 03540372
360: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 03550372
361: WRITE (I02,90019) 03560372
362: CBE** ********************** BBCFOOT0 **********************************03570372
363: CBB** ********************** BBCFMT0A **********************************03580372
364: C**** FORMATS FOR TEST DETAIL LINES 03590372
365: C**** 03600372
366: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 03610372
367: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 03620372
368: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 03630372
369: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 03640372
370: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 03650372
371: 1I6,/,1H ,15X,10HCORRECT= ,I6) 03660372
372: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03670372
373: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 03680372
374: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03690372
375: 1A21,/,1H ,16X,10HCORRECT= ,A21) 03700372
376: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 03710372
377: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 03720372
378: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 03730372
379: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 03740372
380: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 03750372
381: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 03760372
382: 80050 FORMAT (1H ,48X,A31) 03770372
383: CBE** ********************** BBCFMT0A **********************************03780372
384: CBB** ********************** BBCFMT0B **********************************03790372
385: C**** FORMAT STATEMENTS FOR PAGE HEADERS 03800372
386: C**** 03810372
387: 90002 FORMAT (1H1) 03820372
388: 90004 FORMAT (1H ) 03830372
389: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 03840372
390: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 03850372
391: 90008 FORMAT (1H ,21X,A13,A17) 03860372
392: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 03870372
393: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 03880372
394: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 03890372
395: 1 7X,7HREMARKS,24X) 03900372
396: 90014 FORMAT (1H ,46H----------------------------------------------, 03910372
397: 1 33H---------------------------------) 03920372
398: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 03930372
399: C**** 03940372
400: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 03950372
401: C**** 03960372
402: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 03970372
403: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 03980372
404: 1 A13) 03990372
405: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 04000372
406: C**** 04010372
407: C**** FORMAT STATEMENTS FOR RUN SUMMARY 04020372
408: C**** 04030372
409: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 04040372
410: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 04050372
411: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 04060372
412: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 04070372
413: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 04080372
414: CBE** ********************** BBCFMT0B **********************************04090372
415: C***** 04100372
416: C***** END OF TEST SEGMENT 186 04110372
417: STOP 04120372
418: END 04130372
419: 04140372
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.