![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to FM813.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 FM813.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***********************************************************************00010813
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 00020813
6: C***** FM813 00030813
7: C***** YCSQRT - (177) 00040813
8: C***** 00050813
9: C***********************************************************************00060813
10: C***** GENERAL PURPOSE ANS REF 00070813
11: C***** TEST INTRINSIC FUNCTION CSQRT 15.3 00080813
12: C***** TABLE 5 00090813
13: C***** 00100813
14: CBB** ********************** BBCCOMNT **********************************00110813
15: C**** 00120813
16: C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130813
17: C**** VERSION 2.0 00140813
18: C**** 00150813
19: C**** 00160813
20: C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170813
21: C**** GENERAL SERVICES ADMINISTRATION 00180813
22: C**** FEDERAL SOFTWARE TESTING CENTER 00190813
23: C**** 5203 LEESBURG PIKE, SUITE 1100 00200813
24: C**** FALLS CHURCH, VA. 22041 00210813
25: C**** 00220813
26: C**** (703) 756-6153 00230813
27: C**** 00240813
28: CBE** ********************** BBCCOMNT **********************************00250813
29: C***** 00260813
30: C***** S P E C F I C A T I O N S SEGMENT 177 00270813
31: COMPLEX AVC, BVC, CVC, ZVCORR 00280813
32: REAL R2E(2) 00290813
33: EQUIVALENCE (AVC, R2E) 00300813
34: C***** 00310813
35: CBB** ********************** BBCINITA **********************************00320813
36: C**** SPECIFICATION STATEMENTS 00330813
37: C**** 00340813
38: CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00350813
39: 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00360813
40: CBE** ********************** BBCINITA **********************************00370813
41: CBB** ********************** BBCINITB **********************************00380813
42: C**** INITIALIZE SECTION 00390813
43: DATA ZVERS, ZVERSD, ZDATE 00400813
44: 1 /'VERSION 2.0 ', '82/08/02*18.33.46', '*NO DATE*TIME'/ 00410813
45: DATA ZCOMPL, ZNAME, ZTAPE 00420813
46: 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00430813
47: DATA ZPROJ, ZTAPED, ZPROG 00440813
48: 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00450813
49: DATA REMRKS /' '/ 00460813
50: C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00470813
51: C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00480813
52: C**** 00490813
53: CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00500813
54: CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00510813
55: CZ03 ZPROG = 'PROGRAM NAME' 00520813
56: ZDATE = '07-Nov-85 ' *RP
57: ZCOMPL = 'CCI 5.2 ' *RP
58: ZPROJ = 'TC-85- -410' *RP
59: ZNAME = ' ' *RP
60: ZTAPE = ' ' *RP
61: ZTAPED = '850703 ' *RP
62: C 00590813
63: IVPASS = 0 00600813
64: IVFAIL = 0 00610813
65: IVDELE = 0 00620813
66: IVINSP = 0 00630813
67: IVTOTL = 0 00640813
68: IVTOTN = 0 00650813
69: ICZERO = 0 00660813
70: C 00670813
71: C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00680813
72: I01 = 05 00690813
73: C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00700813
74: I02 = 06 00710813
75: C 00720813
76: I01 = 5 00730813
77: C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00740813
78: CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00750813
79: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00760813
80: C 00770813
81: I02 = 6 00780813
82: C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00790813
83: CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00800813
84: C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00810813
85: C 00820813
86: CBE** ********************** BBCINITB **********************************00830813
87: NUVI = I02 00840813
88: IVTOTL = 13 00850813
89: ZPROG = 'FM813' 00860813
90: CBB** ********************** BBCHED0A **********************************00870813
91: C**** 00880813
92: C**** WRITE REPORT TITLE 00890813
93: C**** 00900813
94: WRITE (I02, 90002) 00910813
95: WRITE (I02, 90006) 00920813
96: WRITE (I02, 90007) 00930813
97: WRITE (I02, 90008) ZVERS, ZVERSD 00940813
98: WRITE (I02, 90009) ZPROG, ZPROG 00950813
99: WRITE (I02, 90010) ZDATE, ZCOMPL 00960813
100: CBE** ********************** BBCHED0A **********************************00970813
101: C***** 00980813
102: C***** HEADER FOR SEGMENT 177 00990813
103: WRITE(NUVI,17700) 01000813
104: 17700 FORMAT(1H , / 36H YCSQRT - (177) INTRINSIC FUNCTIONS// 01010813
105: 1 29H CSQRT (COMPLEX SQUARE ROOT)// 01020813
106: 2 17H ANS REF. - 15.3) 01030813
107: CBB** ********************** BBCHED0B **********************************01040813
108: C**** WRITE DETAIL REPORT HEADERS 01050813
109: C**** 01060813
110: WRITE (I02,90004) 01070813
111: WRITE (I02,90004) 01080813
112: WRITE (I02,90013) 01090813
113: WRITE (I02,90014) 01100813
114: WRITE (I02,90015) IVTOTL 01110813
115: CBE** ********************** BBCHED0B **********************************01120813
116: C***** 01130813
117: CT001* TEST 1 ZERO 01140813
118: IVTNUM = 1 01150813
119: BVC = (0.0, 0.0) 01160813
120: AVC = CSQRT(BVC) 01170813
121: IF (R2E(1) + 0.50000E-04) 20010, 40012, 40011 01180813
122: 40011 IF (R2E(1) - 0.50000E-04) 40012, 40012, 20010 01190813
123: 40012 IF (R2E(2) + 0.50000E-04) 20010, 10010, 40010 01200813
124: 40010 IF (R2E(2) - 0.50000E-04) 10010, 10010, 20010 01210813
125: 10010 IVPASS = IVPASS + 1 01220813
126: WRITE (NUVI, 80002) IVTNUM 01230813
127: GO TO 0011 01240813
128: 20010 IVFAIL = IVFAIL + 1 01250813
129: ZVCORR = (0.00000000000000, 0.00000000000000) 01260813
130: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 01270813
131: 0011 CONTINUE 01280813
132: CT002* TEST 2 POSITIVE REAL NUMBERS 01290813
133: IVTNUM = 2 01300813
134: BVC = (4.0, 4.0) 01310813
135: AVC = CSQRT(BVC - (0.0, 4.0)) 01320813
136: IF (R2E(1) - 0.19999E+01) 20020, 40022, 40021 01330813
137: 40021 IF (R2E(1) - 0.20001E+01) 40022, 40022, 20020 01340813
138: 40022 IF (R2E(2) + 0.50000E-04) 20020, 10020, 40020 01350813
139: 40020 IF (R2E(2) - 0.50000E-04) 10020, 10020, 20020 01360813
140: 10020 IVPASS = IVPASS + 1 01370813
141: WRITE (NUVI, 80002) IVTNUM 01380813
142: GO TO 0021 01390813
143: 20020 IVFAIL = IVFAIL + 1 01400813
144: ZVCORR = (2.00000000000000, 0.00000000000000) 01410813
145: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 01420813
146: 0021 CONTINUE 01430813
147: CT003* TEST 3 POSITIVE REAL NUMBERS 01440813
148: IVTNUM = 3 01450813
149: BVC = (4.0, 4.0) 01460813
150: CVC = (4.0, -4.0) 01470813
151: AVC = CSQRT(BVC + CVC) 01480813
152: IF (R2E(1) - 0.28282E+01) 20030, 40032, 40031 01490813
153: 40031 IF (R2E(1) - 0.28286E+01) 40032, 40032, 20030 01500813
154: 40032 IF (R2E(2) + 0.50000E-04) 20030, 10030, 40030 01510813
155: 40030 IF (R2E(2) - 0.50000E-04) 10030, 10030, 20030 01520813
156: 10030 IVPASS = IVPASS + 1 01530813
157: WRITE (NUVI, 80002) IVTNUM 01540813
158: GO TO 0031 01550813
159: 20030 IVFAIL = IVFAIL + 1 01560813
160: ZVCORR = (2.8284271247462, 0.00000000000000) 01570813
161: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 01580813
162: 0031 CONTINUE 01590813
163: CT004* TEST 4 POSITIVE REAL NUMBERS 01600813
164: IVTNUM = 4 01610813
165: BVC = (4.0, 0.0) 01620813
166: CVC = BVC + (5.0, 0.0) 01630813
167: AVC = CSQRT(CVC) 01640813
168: IF (R2E(1) - 0.29998E+01) 20040, 40042, 40041 01650813
169: 40041 IF (R2E(1) - 0.30002E+01) 40042, 40042, 20040 01660813
170: 40042 IF (R2E(2) + 0.50000E-04) 20040, 10040, 40040 01670813
171: 40040 IF (R2E(2) - 0.50000E-04) 10040, 10040, 20040 01680813
172: 10040 IVPASS = IVPASS + 1 01690813
173: WRITE (NUVI, 80002) IVTNUM 01700813
174: GO TO 0041 01710813
175: 20040 IVFAIL = IVFAIL + 1 01720813
176: ZVCORR = (3.00000000000000, 0.00000000000000) 01730813
177: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 01740813
178: 0041 CONTINUE 01750813
179: CT005* TEST 5 NEGATIVE REAL NUMBERS 01760813
180: IVTNUM = 5 01770813
181: BVC = (-1.0, 0.0) 01780813
182: AVC = CSQRT(BVC) 01790813
183: IF (R2E(1) + 0.50000E-04) 20050, 40052, 40051 01800813
184: 40051 IF (R2E(1) - 0.50000E-04) 40052, 40052, 20050 01810813
185: 40052 IF (R2E(2) - 0.99995E+00) 20050, 10050, 40050 01820813
186: 40050 IF (R2E(2) - 0.10001E+01) 10050, 10050, 20050 01830813
187: 10050 IVPASS = IVPASS + 1 01840813
188: WRITE (NUVI, 80002) IVTNUM 01850813
189: GO TO 0051 01860813
190: 20050 IVFAIL = IVFAIL + 1 01870813
191: ZVCORR = (0.00000000000000, 1.0000000000000) 01880813
192: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 01890813
193: 0051 CONTINUE 01900813
194: CT006* TEST 6 NEGATIVE REAL NUMBERS 01910813
195: IVTNUM = 6 01920813
196: AVC = CSQRT((-5.0, 0.0)) 01930813
197: IF (R2E(1) + 0.50000E-04) 20060, 40062, 40061 01940813
198: 40061 IF (R2E(1) - 0.50000E-04) 40062, 40062, 20060 01950813
199: 40062 IF (R2E(2) - 0.22359E+01) 20060, 10060, 40060 01960813
200: 40060 IF (R2E(2) - 0.22362E+01) 10060, 10060, 20060 01970813
201: 10060 IVPASS = IVPASS + 1 01980813
202: WRITE (NUVI, 80002) IVTNUM 01990813
203: GO TO 0061 02000813
204: 20060 IVFAIL = IVFAIL + 1 02010813
205: ZVCORR = (0.00000000000000, 2.2360679774998) 02020813
206: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 02030813
207: 0061 CONTINUE 02040813
208: CT007* TEST 7 NEGATIVE REAL NUMBERS 02050813
209: IVTNUM = 7 02060813
210: BVC = (-25.0, 0.0) 02070813
211: AVC = CSQRT(BVC) 02080813
212: IF (R2E(1) + 0.50000E-04) 20070, 40072, 40071 02090813
213: 40071 IF (R2E(1) - 0.50000E-04) 40072, 40072, 20070 02100813
214: 40072 IF (R2E(2) - 0.49997E+01) 20070, 10070, 40070 02110813
215: 40070 IF (R2E(2) - 0.50003E+01) 10070, 10070, 20070 02120813
216: 10070 IVPASS = IVPASS + 1 02130813
217: WRITE (NUVI, 80002) IVTNUM 02140813
218: GO TO 0071 02150813
219: 20070 IVFAIL = IVFAIL + 1 02160813
220: ZVCORR = (0.00000000000000, 5.0000000000000) 02170813
221: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 02180813
222: 0071 CONTINUE 02190813
223: CT008* TEST 8 VARIABLES SUPPLIED WITHIN AN EXPRESSION 02200813
224: IVTNUM = 8 02210813
225: BVC = (0.203125,0.0) 02220813
226: CVC = (0.0, 1.3125) 02230813
227: AVC = CSQRT(BVC + CVC) 02240813
228: IF (R2E(1) - 0.87495E+00) 20080, 40082, 40081 02250813
229: 40081 IF (R2E(1) - 0.87505E+00) 40082, 40082, 20080 02260813
230: 40082 IF (R2E(2) - 0.74996E+00) 20080, 10080, 40080 02270813
231: 40080 IF (R2E(2) - 0.75004E+00) 10080, 10080, 20080 02280813
232: 10080 IVPASS = IVPASS + 1 02290813
233: WRITE (NUVI, 80002) IVTNUM 02300813
234: GO TO 0081 02310813
235: 20080 IVFAIL = IVFAIL + 1 02320813
236: ZVCORR = (0.87500000000000, 0.75000000000000) 02330813
237: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 02340813
238: 0081 CONTINUE 02350813
239: CT009* TEST 9 VARIABLES SUPPLIED WITHIN AN EXPRESSION 02360813
240: IVTNUM = 9 02370813
241: BVC = (1.0,0.0) 02380813
242: AVC = CSQRT(BVC - (0.38671875, 0.515625)) 02390813
243: IF (R2E(1) - 0.84094E+00) 20090, 40092, 40091 02400813
244: 40091 IF (R2E(1) - 0.84103E+00) 40092, 40092, 20090 02410813
245: 40092 IF (R2E(2) + 0.30658E+00) 20090, 10090, 40090 02420813
246: 40090 IF (R2E(2) + 0.30654E+00) 10090, 10090, 20090 02430813
247: 10090 IVPASS = IVPASS + 1 02440813
248: WRITE (NUVI, 80002) IVTNUM 02450813
249: GO TO 0091 02460813
250: 20090 IVFAIL = IVFAIL + 1 02470813
251: ZVCORR = (0.84098742159541, -0.30655928183909) 02480813
252: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 02490813
253: 0091 CONTINUE 02500813
254: CT010* TEST 10 VARIABLES SUPPLIED WITHIN AN EXPRESSION 02510813
255: IVTNUM = 10 02520813
256: BVC = (-0.375, 0.5) 02530813
257: AVC = CSQRT(BVC + BVC) 02540813
258: IF (R2E(1) - 0.49997E+00) 20100, 40102, 40101 02550813
259: 40101 IF (R2E(1) - 0.50003E+00) 40102, 40102, 20100 02560813
260: 40102 IF (R2E(2) - 0.99995E+00) 20100, 10100, 40100 02570813
261: 40100 IF (R2E(2) - 0.10001E+01) 10100, 10100, 20100 02580813
262: 10100 IVPASS = IVPASS + 1 02590813
263: WRITE (NUVI, 80002) IVTNUM 02600813
264: GO TO 0101 02610813
265: 20100 IVFAIL = IVFAIL + 1 02620813
266: ZVCORR = (0.50000000000000, 1.0000000000000) 02630813
267: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 02640813
268: 0101 CONTINUE 02650813
269: CT011* TEST 11 PURELY IMAGINARY NUMBERS 02660813
270: IVTNUM = 11 02670813
271: AVC = CSQRT((0.0, 2.0)) 02680813
272: IF (R2E(1) - 0.99995E+00) 20110, 40112, 40111 02690813
273: 40111 IF (R2E(1) - 0.10001E+01) 40112, 40112, 20110 02700813
274: 40112 IF (R2E(2) - 0.99995E+00) 20110, 10110, 40110 02710813
275: 40110 IF (R2E(2) - 0.10001E+01) 10110, 10110, 20110 02720813
276: 10110 IVPASS = IVPASS + 1 02730813
277: WRITE (NUVI, 80002) IVTNUM 02740813
278: GO TO 0111 02750813
279: 20110 IVFAIL = IVFAIL + 1 02760813
280: ZVCORR = (1.00000000000000, 1.0000000000000) 02770813
281: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 02780813
282: 0111 CONTINUE 02790813
283: CT012* TEST 12 PURELY IMAGINARY NUMBERS 02800813
284: IVTNUM = 12 02810813
285: AVC = CSQRT((0.0, -8.0)) 02820813
286: IF (R2E(1) - 0.19999E+01) 20120, 40122, 40121 02830813
287: 40121 IF (R2E(1) - 0.20001E+01) 40122, 40122, 20120 02840813
288: 40122 IF (R2E(2) + 0.20001E+01) 20120, 10120, 40120 02850813
289: 40120 IF (R2E(2) + 0.19999E+01) 10120, 10120, 20120 02860813
290: 10120 IVPASS = IVPASS + 1 02870813
291: WRITE (NUVI, 80002) IVTNUM 02880813
292: GO TO 0121 02890813
293: 20120 IVFAIL = IVFAIL + 1 02900813
294: ZVCORR = (2.00000000000000, -2.0000000000000) 02910813
295: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 02920813
296: 0121 CONTINUE 02930813
297: CT013* TEST 13 (-0.5,SQRT(3)/2) 02940813
298: IVTNUM = 13 02950813
299: BVC = (-0.5, -0.8660254038) 02960813
300: CVC = CSQRT(CSQRT(BVC)) 02970813
301: AVC = CVC - BVC * (0.0, 1.0) 02980813
302: IF (R2E(1) + 0.50000E-04) 20130, 40132, 40131 02990813
303: 40131 IF (R2E(1) - 0.50000E-04) 40132, 40132, 20130 03000813
304: 40132 IF (R2E(2) + 0.50000E-04) 20130, 10130, 40130 03010813
305: 40130 IF (R2E(2) - 0.50000E-04) 10130, 10130, 20130 03020813
306: 10130 IVPASS = IVPASS + 1 03030813
307: WRITE (NUVI, 80002) IVTNUM 03040813
308: GO TO 0131 03050813
309: 20130 IVFAIL = IVFAIL + 1 03060813
310: ZVCORR = (0.00000000000000, 0.00000000000000) 03070813
311: WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 03080813
312: 0131 CONTINUE 03090813
313: C***** 03100813
314: CBB** ********************** BBCSUM0 **********************************03110813
315: C**** WRITE OUT TEST SUMMARY 03120813
316: C**** 03130813
317: IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 03140813
318: WRITE (I02, 90004) 03150813
319: WRITE (I02, 90014) 03160813
320: WRITE (I02, 90004) 03170813
321: WRITE (I02, 90020) IVPASS 03180813
322: WRITE (I02, 90022) IVFAIL 03190813
323: WRITE (I02, 90024) IVDELE 03200813
324: WRITE (I02, 90026) IVINSP 03210813
325: WRITE (I02, 90028) IVTOTN, IVTOTL 03220813
326: CBE** ********************** BBCSUM0 **********************************03230813
327: CBB** ********************** BBCFOOT0 **********************************03240813
328: C**** WRITE OUT REPORT FOOTINGS 03250813
329: C**** 03260813
330: WRITE (I02,90016) ZPROG, ZPROG 03270813
331: WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 03280813
332: WRITE (I02,90019) 03290813
333: CBE** ********************** BBCFOOT0 **********************************03300813
334: CBB** ********************** BBCFMT0A **********************************03310813
335: C**** FORMATS FOR TEST DETAIL LINES 03320813
336: C**** 03330813
337: 80000 FORMAT (1H ,2X,I3,4X,7HDELETED,32X,A31) 03340813
338: 80002 FORMAT (1H ,2X,I3,4X,7H PASS ,32X,A31) 03350813
339: 80004 FORMAT (1H ,2X,I3,4X,7HINSPECT,32X,A31) 03360813
340: 80008 FORMAT (1H ,2X,I3,4X,7H FAIL ,32X,A31) 03370813
341: 80010 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,15X,10HCOMPUTED= , 03380813
342: 1I6,/,1H ,15X,10HCORRECT= ,I6) 03390813
343: 80012 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03400813
344: 1E12.5,/,1H ,16X,10HCORRECT= ,E12.5) 03410813
345: 80018 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03420813
346: 1A21,/,1H ,16X,10HCORRECT= ,A21) 03430813
347: 80020 FORMAT (1H ,16X,10HCOMPUTED= ,A21,1X,A31) 03440813
348: 80022 FORMAT (1H ,16X,10HCORRECT= ,A21,1X,A31) 03450813
349: 80024 FORMAT (1H ,16X,10HCOMPUTED= ,I6,16X,A31) 03460813
350: 80026 FORMAT (1H ,16X,10HCORRECT= ,I6,16X,A31) 03470813
351: 80028 FORMAT (1H ,16X,10HCOMPUTED= ,E12.5,10X,A31) 03480813
352: 80030 FORMAT (1H ,16X,10HCORRECT= ,E12.5,10X,A31) 03490813
353: 80050 FORMAT (1H ,48X,A31) 03500813
354: CBE** ********************** BBCFMT0A **********************************03510813
355: CBB** ********************** BBCFMAT1 **********************************03520813
356: C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 03530813
357: C**** 03540813
358: 80031 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03550813
359: 1D17.10,/,1H ,16X,10HCORRECT= ,D17.10) 03560813
360: 80033 FORMAT (1H ,16X,10HCOMPUTED= ,D17.10,10X,A31) 03570813
361: 80035 FORMAT (1H ,16X,10HCORRECT= ,D17.10,10X,A31) 03580813
362: 80037 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 03590813
363: 80039 FORMAT (1H ,16X,10HCORRECT= ,1H(,E12.5,2H, ,E12.5,1H),6X,A31) 03600813
364: 80041 FORMAT (1H ,16X,10HCOMPUTED= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 03610813
365: 80043 FORMAT (1H ,16X,10HCORRECT= ,1H(,F12.5,2H, ,F12.5,1H),6X,A31) 03620813
366: 80045 FORMAT (1H ,2X,I3,4X,7H FAIL ,/,1H ,16X,10HCOMPUTED= , 03630813
367: 11H(,F12.5,2H, ,F12.5,1H)/,1H ,16X,10HCORRECT= , 03640813
368: 21H(,F12.5,2H, ,F12.5,1H)) 03650813
369: CBE** ********************** BBCFMAT1 **********************************03660813
370: CBB** ********************** BBCFMT0B **********************************03670813
371: C**** FORMAT STATEMENTS FOR PAGE HEADERS 03680813
372: C**** 03690813
373: 90002 FORMAT (1H1) 03700813
374: 90004 FORMAT (1H ) 03710813
375: 90006 FORMAT (1H ,20X,31HFEDERAL SOFTWARE TESTING CENTER) 03720813
376: 90007 FORMAT (1H ,19X,34HFORTRAN COMPILER VALIDATION SYSTEM) 03730813
377: 90008 FORMAT (1H ,21X,A13,A17) 03740813
378: 90009 FORMAT (1H ,/,2H *,A5,6HBEGIN*,12X,15HTEST RESULTS - ,A5,/) 03750813
379: 90010 FORMAT (1H ,8X,16HTEST DATE*TIME= ,A17,15H - COMPILER= ,A20) 03760813
380: 90013 FORMAT (1H ,8H TEST ,10HPASS/FAIL ,6X,17HDISPLAYED RESULTS, 03770813
381: 1 7X,7HREMARKS,24X) 03780813
382: 90014 FORMAT (1H ,46H----------------------------------------------, 03790813
383: 1 33H---------------------------------) 03800813
384: 90015 FORMAT (1H ,48X,17HTHIS PROGRAM HAS ,I3,6H TESTS,/) 03810813
385: C**** 03820813
386: C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 03830813
387: C**** 03840813
388: 90016 FORMAT (1H ,/,2H *,A5,4HEND*,14X,14HEND OF TEST - ,A5,/) 03850813
389: 90018 FORMAT (1H ,A13,13X,A20,7H * ,A10,1H/, 03860813
390: 1 A13) 03870813
391: 90019 FORMAT (1H ,26HFOR OFFICIAL USE ONLY ,35X,15HCOPYRIGHT 1982) 03880813
392: C**** 03890813
393: C**** FORMAT STATEMENTS FOR RUN SUMMARY 03900813
394: C**** 03910813
395: 90020 FORMAT (1H ,21X,I5,13H TESTS PASSED) 03920813
396: 90022 FORMAT (1H ,21X,I5,13H TESTS FAILED) 03930813
397: 90024 FORMAT (1H ,21X,I5,14H TESTS DELETED) 03940813
398: 90026 FORMAT (1H ,21X,I5,25H TESTS REQUIRE INSPECTION) 03950813
399: 90028 FORMAT (1H ,21X,I5,4H OF ,I3,15H TESTS EXECUTED) 03960813
400: CBE** ********************** BBCFMT0B **********************************03970813
401: C***** 03980813
402: C***** END OF TEST SEGMENT 177 03990813
403: STOP 04000813
404: END 04010813
405: 04020813
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.