PROGRAM FM820 C***********************************************************************00010820 C***** FORTRAN 77 00020820 C***** FM820 00030820 C***** YCSIN - (188) 00040820 C***** 00050820 C***********************************************************************00060820 C***** GENERAL PURPOSE ANS REF 00070820 C***** TEST INTRINSIC FUNCTION CSIN 15.3 00080820 C***** INTRINSIC FUNCTION CABS ASSUMED WORKING TABLE 5 00090820 C***** 00100820 CBB** ********************** BBCCOMNT **********************************00110820 C**** 00120820 C**** 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130820 C**** VERSION 2.1 00140820 C**** 00150820 C**** 00160820 C**** SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170820 C**** NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00180820 C**** SOFTWARE STANDARDS VALIDATION GROUP 00190820 C**** BUILDING 225 RM A266 00200820 C**** GAITHERSBURG, MD 20899 00210820 C**** 00220820 C**** 00230820 C**** 00240820 CBE** ********************** BBCCOMNT **********************************00250820 C***** 00260820 C***** S P E C I F I C A T I O N S SEGMENT 188 00270820 COMPLEX AVC, BVC, ZVCORR 00280820 REAL R2E(2) 00290820 EQUIVALENCE (AVC, R2E) 00300820 C***** 00310820 CBB** ********************** BBCINITA **********************************00320820 C**** SPECIFICATION STATEMENTS 00330820 C**** 00340820 CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20, 00350820 1 ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13 00360820 CBE** ********************** BBCINITA **********************************00370820 CBB** ********************** BBCINITB **********************************00380820 C**** INITIALIZE SECTION 00390820 DATA ZVERS, ZVERSD, ZDATE 00400820 1 /'VERSION 2.1 ', '93/10/21*21.02.00', '*NO DATE*TIME'/ 00410820 DATA ZCOMPL, ZNAME, ZTAPE 00420820 1 /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/ 00430820 DATA ZPROJ, ZTAPED, ZPROG 00440820 1 /'*NO PROJECT*', '*NO TAPE DATE', 'XXXXX'/ 00450820 DATA REMRKS /' '/ 00460820 C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00470820 C**** FOR IDENTIFYING THE TEST ENVIRONMENT 00480820 C**** 00490820 CZ01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00500820 CZ02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00510820 CZ03 ZPROG = 'PROGRAM NAME' 00520820 CZ04 ZDATE = 'DATE OF TEST' 00530820 CZ05 ZCOMPL = 'COMPILER IDENTIFICATION' 00540820 CZ06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00550820 CZ07 ZNAME = 'NAME OF USER' 00560820 CZ08 ZTAPE = 'TAPE OWNER/ID' 00570820 CZ09 ZTAPED = 'DATE TAPE COPIED' 00580820 C 00590820 IVPASS = 0 00600820 IVFAIL = 0 00610820 IVDELE = 0 00620820 IVINSP = 0 00630820 IVTOTL = 0 00640820 IVTOTN = 0 00650820 ICZERO = 0 00660820 C 00670820 C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER. 00680820 I01 = 05 00690820 C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER. 00700820 I02 = 06 00710820 C 00720820 CX010 REPLACED BY FEXEC X-010 CONTROL CARD (CARD-READER UNIT NUMBER). 00730820 C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00740820 CX011 REPLACED BY FEXEC X-011 CONTROL CARD. CX011 IS FOR SYSTEMS 00750820 C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010. 00760820 C 00770820 CX020 REPLACED BY FEXEC X-020 CONTROL CARD (PRINTER UNIT NUMBER). 00780820 C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6 00790820 CX021 REPLACED BY FEXEC X-021 CONTROL CARD. CX021 IS FOR SYSTEMS 00800820 C REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020. 00810820 C 00820820 CBE** ********************** BBCINITB **********************************00830820 NUVI = I02 00840820 IVTOTL = 18 00850820 ZPROG = 'FM820' 00860820 CBB** ********************** BBCHED0A **********************************00870820 C**** 00880820 C**** WRITE REPORT TITLE 00890820 C**** 00900820 WRITE (I02, 90002) 00910820 WRITE (I02, 90006) 00920820 WRITE (I02, 90007) 00930820 WRITE (I02, 90008) ZVERS, ZVERSD 00940820 WRITE (I02, 90009) ZPROG, ZPROG 00950820 WRITE (I02, 90010) ZDATE, ZCOMPL 00960820 CBE** ********************** BBCHED0A **********************************00970820 C***** 00980820 C***** HEADER FOR SEGMENT 188 00990820 WRITE(NUVI,18800) 01000820 18800 FORMAT(" "/" YCSIN - (188) INTRINSIC FUNCTIONS" // 01010820 1 " CSIN, CCOS (COMPLEX SINE, COSINE)" // 01020820 2 " ANS REF. - 15.3" ) 01030820 CBB** ********************** BBCHED0B **********************************01040820 C**** WRITE DETAIL REPORT HEADERS 01050820 C**** 01060820 WRITE (I02,90004) 01070820 WRITE (I02,90004) 01080820 WRITE (I02,90013) 01090820 WRITE (I02,90014) 01100820 WRITE (I02,90015) IVTOTL 01110820 CBE** ********************** BBCHED0B **********************************01120820 C***** 01130820 WRITE(NUVI, 18801) 01140820 18801 FORMAT(/ 8X, "TEST OF CSIN" ) 01150820 C***** 01160820 CT001* TEST 1 TEST AT ZERO (0.0, 0.0) 01170820 IVTNUM = 1 01180820 AVC = CSIN(( 0.0, 0.0)) 01190820 IF (R2E(1) + 0.50000E-04) 20010, 40012, 40011 01200820 40011 IF (R2E(1) - 0.50000E-04) 40012, 40012, 20010 01210820 40012 IF (R2E(2) + 0.50000E-04) 20010, 10010, 40010 01220820 40010 IF (R2E(2) - 0.50000E-04) 10010, 10010, 20010 01230820 10010 IVPASS = IVPASS + 1 01240820 WRITE (NUVI, 80002) IVTNUM 01250820 GO TO 0011 01260820 20010 IVFAIL = IVFAIL + 1 01270820 ZVCORR = (0.00000000000000, 0.00000000000000) 01280820 WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 01290820 0011 CONTINUE 01300820 CT002* TEST 2 TEST SIN ON THE REAL LINE, CSIN SAME AS SIN 01310820 IVTNUM = 2 01320820 AVC = CSIN(( 2.0, 0.0)) 01330820 IF (R2E(1) - 0.90925E+00) 20020, 40022, 40021 01340820 40021 IF (R2E(1) - 0.90935E+00) 40022, 40022, 20020 01350820 40022 IF (R2E(2) + 0.50000E-04) 20020, 10020, 40020 01360820 40020 IF (R2E(2) - 0.50000E-04) 10020, 10020, 20020 01370820 10020 IVPASS = IVPASS + 1 01380820 WRITE (NUVI, 80002) IVTNUM 01390820 GO TO 0021 01400820 20020 IVFAIL = IVFAIL + 1 01410820 ZVCORR = (0.90929742682568, 0.00000000000000) 01420820 WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 01430820 0021 CONTINUE 01440820 CT003* TEST 3 TEST SIN ON THE REAL LINE, CSIN SAME AS SIN 01450820 IVTNUM = 3 01460820 AVC = CSIN(( -1000.0, 0.0)) 01470820 IF (R2E(1) + 0.82692E+00) 20030, 40032, 40031 01480820 40031 IF (R2E(1) + 0.82683E+00) 40032, 40032, 20030 01490820 40032 IF (R2E(2) + 0.50000E-04) 20030, 10030, 40030 01500820 40030 IF (R2E(2) - 0.50000E-04) 10030, 10030, 20030 01510820 10030 IVPASS = IVPASS + 1 01520820 WRITE (NUVI, 80002) IVTNUM 01530820 GO TO 0031 01540820 20030 IVFAIL = IVFAIL + 1 01550820 ZVCORR = (-0.82687954053200, 0.00000000000000) 01560820 WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 01570820 0031 CONTINUE 01580820 CT004* TEST 4 EXPRESSION PRESENTED TO CSIN 01590820 IVTNUM = 4 01600820 AVC = CSIN(( 150.0, 350.0) / (100.0, 0.0)) 01610820 IF (R2E(1) - 0.16530E+02) 20040, 40042, 40041 01620820 40041 IF (R2E(1) - 0.16533E+02) 40042, 40042, 20040 01630820 40042 IF (R2E(2) - 0.11701E+01) 20040, 10040, 40040 01640820 40040 IF (R2E(2) - 0.11703E+01) 10040, 10040, 20040 01650820 10040 IVPASS = IVPASS + 1 01660820 WRITE (NUVI, 80002) IVTNUM 01670820 GO TO 0041 01680820 20040 IVFAIL = IVFAIL + 1 01690820 ZVCORR = (16.531309523248, 1.1701791625591) 01700820 WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 01710820 0041 CONTINUE 01720820 CT005* TEST 5 VARIABLE PRESENTED TO CSIN 01730820 IVTNUM = 5 01740820 BVC = ( 4.75, 2.50) - (9.50, 1.25) 01750820 AVC = CSIN(BVC) 01760820 IF (R2E(1) - 0.18870E+01) 20050, 40052, 40051 01770820 40051 IF (R2E(1) - 0.18872E+01) 40052, 40052, 20050 01780820 40052 IF (R2E(2) - 0.60232E-01) 20050, 10050, 40050 01790820 40050 IF (R2E(2) - 0.60239E-01) 10050, 10050, 20050 01800820 10050 IVPASS = IVPASS + 1 01810820 WRITE (NUVI, 80002) IVTNUM 01820820 GO TO 0051 01830820 20050 IVFAIL = IVFAIL + 1 01840820 ZVCORR = (1.8870883629759, 0.060235606171638) 01850820 WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 01860820 0051 CONTINUE 01870820 CT006* TEST 6 VARIABLE PRESENTED TO CSIN 01880820 IVTNUM = 6 01890820 BVC = ( 0.125, 2.0) * (10.0, 0.0) 01900820 AVC = CSIN(BVC) 01910820 IF (R2E(1) - 0.23019E+09) 20060, 40062, 40061 01920820 40061 IF (R2E(1) - 0.23022E+09) 40062, 40062, 20060 01930820 40062 IF (R2E(2) - 0.76487E+08) 20060, 10060, 40060 01940820 40060 IF (R2E(2) - 0.76496E+08) 10060, 10060, 20060 01950820 10060 IVPASS = IVPASS + 1 01960820 WRITE (NUVI, 80002) IVTNUM 01970820 GO TO 0061 01980820 20060 IVFAIL = IVFAIL + 1 01990820 ZVCORR = (230207154.14527, 76491717.784289) 02000820 WRITE (NUVI, 80145) IVTNUM, AVC, ZVCORR 02010820 80145 FORMAT (" ",2X,I3,4X," FAIL ",/," ",16X,"COMPUTED: " , 02020820 1 "(",E12.5,", ",E12.5,")"/," ",16X,"CORRECT: " , 02030820 2 "(",E12.5,", ",E12.5,")") 02040820 0061 CONTINUE 02050820 CT007* TEST 7 TEST WHERE REAL IS ZERO 02060820 IVTNUM = 7 02070820 BVC = ( 0.0, 1.0) 02080820 AVC = CSIN(BVC) 02090820 IF (R2E(1) + 0.50000E-04) 20070, 40072, 40071 02100820 40071 IF (R2E(1) - 0.50000E-04) 40072, 40072, 20070 02110820 40072 IF (R2E(2) - 0.11751E+01) 20070, 10070, 40070 02120820 40070 IF (R2E(2) - 0.11753E+01) 10070, 10070, 20070 02130820 10070 IVPASS = IVPASS + 1 02140820 WRITE (NUVI, 80002) IVTNUM 02150820 GO TO 0071 02160820 20070 IVFAIL = IVFAIL + 1 02170820 ZVCORR = (0.00000000000000, 1.1752011936438) 02180820 WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 02190820 0071 CONTINUE 02200820 CT008* TEST 8 TEST WHERE REAL IS ZERO 02210820 IVTNUM = 8 02220820 BVC = ( 0.0, -4.75) 02230820 AVC = CSIN(BVC) 02240820 IF (R2E(1) + 0.50000E-04) 20080, 40082, 40081 02250820 40081 IF (R2E(1) - 0.50000E-04) 40082, 40082, 20080 02260820 40082 IF (R2E(2) + 0.57791E+02) 20080, 10080, 40080 02270820 40080 IF (R2E(2) + 0.57785E+02) 10080, 10080, 20080 02280820 10080 IVPASS = IVPASS + 1 02290820 WRITE (NUVI, 80002) IVTNUM 02300820 GO TO 0081 02310820 20080 IVFAIL = IVFAIL + 1 02320820 ZVCORR = (0.00000000000000, -57.787816415992) 02330820 WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 02340820 0081 CONTINUE 02350820 CT009* TEST 9 TEST WHERE REAL IS ZERO 02360820 IVTNUM = 9 02370820 AVC = CSIN(( 0.0, -10.0)) 02380820 IF (R2E(1) + 0.50000E-04) 20090, 40092, 40091 02390820 40091 IF (R2E(1) - 0.50000E-04) 40092, 40092, 20090 02400820 40092 IF (R2E(2) + 0.11014E+05) 20090, 10090, 40090 02410820 40090 IF (R2E(2) + 0.11012E+05) 10090, 10090, 20090 02420820 10090 IVPASS = IVPASS + 1 02430820 WRITE (NUVI, 80002) IVTNUM 02440820 GO TO 0091 02450820 20090 IVFAIL = IVFAIL + 1 02460820 ZVCORR = (0.00000000000000, -11013.232874703) 02470820 WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 02480820 0091 CONTINUE 02490820 C***** 02500820 WRITE (NUVI, 90002) 02510820 WRITE (NUVI, 90013) 02520820 WRITE (NUVI, 90014) 02530820 C***** 02540820 WRITE(NUVI, 18811) 02550820 18811 FORMAT(/ 08X, "TEST OF CCOS" ) 02560820 CT010* TEST 10 TEST FOR ZERO (0.0, 0.0) 02570820 IVTNUM = 10 02580820 AVC = CCOS(( 0.0, 0.0)) 02590820 IF (R2E(1) - 0.99995E+00) 20100, 40102, 40101 02600820 40101 IF (R2E(1) - 0.10001E+01) 40102, 40102, 20100 02610820 40102 IF (R2E(2) + 0.50000E-04) 20100, 10100, 40100 02620820 40100 IF (R2E(2) - 0.50000E-04) 10100, 10100, 20100 02630820 10100 IVPASS = IVPASS + 1 02640820 WRITE (NUVI, 80002) IVTNUM 02650820 GO TO 0101 02660820 20100 IVFAIL = IVFAIL + 1 02670820 ZVCORR = (1.00000000000000, 0.00000000000000) 02680820 WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 02690820 0101 CONTINUE 02700820 CT011* TEST 11 TEST WITH ZERO IMAGINARY, CCOS = COS 02710820 IVTNUM = 11 02720820 AVC = CCOS((3.5, 1.0) - (0.0, 1.0)) 02730820 IF (R2E(1) + 0.93651E+00) 20110, 40112, 40111 02740820 40111 IF (R2E(1) + 0.93641E+00) 40112, 40112, 20110 02750820 40112 IF (R2E(2) + 0.50000E-04) 20110, 10110, 40110 02760820 40110 IF (R2E(2) - 0.50000E-04) 10110, 10110, 20110 02770820 10110 IVPASS = IVPASS + 1 02780820 WRITE (NUVI, 80002) IVTNUM 02790820 GO TO 0111 02800820 20110 IVFAIL = IVFAIL + 1 02810820 ZVCORR = (-0.93645668729080, 0.00000000000000) 02820820 WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 02830820 0111 CONTINUE 02840820 CT013* TEST 12 EXPRESSION PRESENTED TO CCOS 02990820 IVTNUM = 12 03000820 AVC = CCOS(( 3.5, 5.5) - (2.0, 2.0)) 03010820 IF (R2E(1) - 0.11722E+01) 20130, 40132, 40131 03020820 40131 IF (R2E(1) - 0.11724E+01) 40132, 40132, 20130 03030820 40132 IF (R2E(2) + 0.16502E+02) 20130, 10130, 40130 03040820 40130 IF (R2E(2) + 0.16500E+02) 10130, 10130, 20130 03050820 10130 IVPASS = IVPASS + 1 03060820 WRITE (NUVI, 80002) IVTNUM 03070820 GO TO 0131 03080820 20130 IVFAIL = IVFAIL + 1 03090820 ZVCORR = (1.1723152409601, -16.501187784675) 03100820 WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 03110820 0131 CONTINUE 03120820 CT014* TEST 13 VARIABLE WITHIN AN EXPRESSION 03130820 IVTNUM = 13 03140820 BVC = ( 4.75, 1.25) 03150820 AVC = CCOS(BVC - (9.50, 0.0)) 03160820 IF (R2E(1) - 0.71005E-01) 20140, 40142, 40141 03170820 40141 IF (R2E(1) - 0.71013E-01) 40142, 40142, 20140 03180820 40142 IF (R2E(2) + 0.16009E+01) 20140, 10140, 40140 03190820 40140 IF (R2E(2) + 0.16007E+01) 10140, 10140, 20140 03200820 10140 IVPASS = IVPASS + 1 03210820 WRITE (NUVI, 80002) IVTNUM 03220820 GO TO 0141 03230820 20140 IVFAIL = IVFAIL + 1 03240820 ZVCORR = (0.071008803346314, -1.6007861854666) 03250820 WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 03260820 0141 CONTINUE 03270820 CT015* TEST 14 VARIABLE WITHIN AN EXPRESSION 03280820 IVTNUM = 14 03290820 BVC = ( 1.00, 10.0) 03300820 AVC = CCOS(BVC + ( 0.25, 10.0)) 03310820 IF (R2E(1) - 0.76487E+08) 20150, 40152, 40151 03320820 40151 IF (R2E(1) - 0.76496E+08) 40152, 40152, 20150 03330820 40152 IF (R2E(2) + 0.23022E+09) 20150, 10150, 40150 03340820 40150 IF (R2E(2) + 0.23019E+09) 10150, 10150, 20150 03350820 10150 IVPASS = IVPASS + 1 03360820 WRITE (NUVI, 80002) IVTNUM 03370820 GO TO 0151 03380820 20150 IVFAIL = IVFAIL + 1 03390820 ZVCORR = (76491717.784289, -230207154.14527) 03400820 WRITE (NUVI, 80145) IVTNUM, AVC, ZVCORR 03410820 0151 CONTINUE 03420820 CT016* TEST 15 TEST WITH ZERO REAL PART 03430820 IVTNUM = 15 03440820 BVC = ( 0.0, 1.0) 03450820 AVC = CCOS(BVC) 03460820 IF (R2E(1) - 0.15430E+01) 20160, 40162, 40161 03470820 40161 IF (R2E(1) - 0.15432E+01) 40162, 40162, 20160 03480820 40162 IF (R2E(2) + 0.50000E-04) 20160, 10160, 40160 03490820 40160 IF (R2E(2) - 0.50000E-04) 10160, 10160, 20160 03500820 10160 IVPASS = IVPASS + 1 03510820 WRITE (NUVI, 80002) IVTNUM 03520820 GO TO 0161 03530820 20160 IVFAIL = IVFAIL + 1 03540820 ZVCORR = (1.5430806348152, 0.00000000000000) 03550820 WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 03560820 0161 CONTINUE 03570820 CT017* TEST 16 TEST WITH ZERO REAL PART 03580820 IVTNUM = 16 03590820 BVC = ( 0.0, -4.75) 03600820 AVC = CCOS(BVC) 03610820 IF (R2E(1) - 0.57793E+02) 20170, 40172, 40171 03620820 40171 IF (R2E(1) - 0.57800E+02) 40172, 40172, 20170 03630820 40172 IF (R2E(2) + 0.50000E-04) 20170, 10170, 40170 03640820 40170 IF (R2E(2) - 0.50000E-04) 10170, 10170, 20170 03650820 10170 IVPASS = IVPASS + 1 03660820 WRITE (NUVI, 80002) IVTNUM 03670820 GO TO 0171 03680820 20170 IVFAIL = IVFAIL + 1 03690820 ZVCORR = (57.796468111195, 0.00000000000000) 03700820 WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 03710820 0171 CONTINUE 03720820 CT018* TEST 17 TEST WITH ZERO REAL PART 03730820 IVTNUM = 17 03740820 AVC = CCOS(( 0.0, -10.0)) 03750820 IF (R2E(1) - 0.11012E+05) 20180, 40182, 40181 03760820 40181 IF (R2E(1) - 0.11014E+05) 40182, 40182, 20180 03770820 40182 IF (R2E(2) + 0.50000E-04) 20180, 10180, 40180 03780820 40180 IF (R2E(2) - 0.50000E-04) 10180, 10180, 20180 03790820 10180 IVPASS = IVPASS + 1 03800820 WRITE (NUVI, 80002) IVTNUM 03810820 GO TO 0181 03820820 20180 IVFAIL = IVFAIL + 1 03830820 ZVCORR = (11013.232920103, 0.00000000000000) 03840820 WRITE (NUVI, 80045) IVTNUM, AVC, ZVCORR 03850820 0181 CONTINUE 03860820 CT019* TEST 18 THE FUNCTION TOGETHER WITH CSIN AND CABS 03870820 IVTNUM = 18 03880820 DVS = (CABS(CCOS((-2.25, 0.0))) ** 2) + 03890820 1 (CABS(CSIN((-2.25, 0.0))) ** 2) 03900820 IF (DVS - 0.99995E+00) 20190, 10190, 40190 03910820 40190 IF (DVS - 0.10001E+01) 10190, 10190, 20190 03920820 10190 IVPASS = IVPASS + 1 03930820 WRITE (NUVI, 80002) IVTNUM 03940820 GO TO 0191 03950820 20190 IVFAIL = IVFAIL + 1 03960820 RVCORR = 1.00000000000000 03970820 WRITE (NUVI, 80012) IVTNUM, DVS, RVCORR 03980820 0191 CONTINUE 03990820 C***** 04000820 CBB** ********************** BBCSUM0 **********************************04010820 C**** WRITE OUT TEST SUMMARY 04020820 C**** 04030820 IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP 04040820 WRITE (I02, 90004) 04050820 WRITE (I02, 90014) 04060820 WRITE (I02, 90004) 04070820 WRITE (I02, 90020) IVPASS 04080820 WRITE (I02, 90022) IVFAIL 04090820 WRITE (I02, 90024) IVDELE 04100820 WRITE (I02, 90026) IVINSP 04110820 WRITE (I02, 90028) IVTOTN, IVTOTL 04120820 CBE** ********************** BBCSUM0 **********************************04130820 CBB** ********************** BBCFOOT0 **********************************04140820 C**** WRITE OUT REPORT FOOTINGS 04150820 C**** 04160820 WRITE (I02,90016) ZPROG, ZPROG 04170820 WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED 04180820 WRITE (I02,90019) 04190820 CBE** ********************** BBCFOOT0 **********************************04200820 CBB** ********************** BBCFMT0A **********************************04210820 C**** FORMATS FOR TEST DETAIL LINES 04220820 C**** 04230820 80000 FORMAT (" ",2X,I3,4X,"DELETED",32X,A31) 04240820 80002 FORMAT (" ",2X,I3,4X," PASS ",32X,A31) 04250820 80004 FORMAT (" ",2X,I3,4X,"INSPECT",32X,A31) 04260820 80008 FORMAT (" ",2X,I3,4X," FAIL ",32X,A31) 04270820 80010 FORMAT (" ",2X,I3,4X," FAIL ",/," ",15X,"COMPUTED= " , 04280820 1I6,/," ",15X,"CORRECT= " ,I6) 04290820 80012 FORMAT (" ",2X,I3,4X," FAIL ",/," ",16X,"COMPUTED= " , 04300820 1E12.5,/," ",16X,"CORRECT= " ,E12.5) 04310820 80018 FORMAT (" ",2X,I3,4X," FAIL ",/," ",16X,"COMPUTED= " , 04320820 1A21,/," ",16X,"CORRECT= " ,A21) 04330820 80020 FORMAT (" ",16X,"COMPUTED= " ,A21,1X,A31) 04340820 80022 FORMAT (" ",16X,"CORRECT= " ,A21,1X,A31) 04350820 80024 FORMAT (" ",16X,"COMPUTED= " ,I6,16X,A31) 04360820 80026 FORMAT (" ",16X,"CORRECT= " ,I6,16X,A31) 04370820 80028 FORMAT (" ",16X,"COMPUTED= " ,E12.5,10X,A31) 04380820 80030 FORMAT (" ",16X,"CORRECT= " ,E12.5,10X,A31) 04390820 80050 FORMAT (" ",48X,A31) 04400820 CBE** ********************** BBCFMT0A **********************************04410820 CBB** ********************** BBCFMAT1 **********************************04420820 C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 04430820 C**** 04440820 80031 FORMAT (" ",2X,I3,4X," FAIL ",/," ",16X,"COMPUTED= " , 04450820 1D17.10,/," ",16X,"CORRECT= " ,D17.10) 04460820 80033 FORMAT (" ",16X,"COMPUTED= " ,D17.10,10X,A31) 04470820 80035 FORMAT (" ",16X,"CORRECT= " ,D17.10,10X,A31) 04480820 80037 FORMAT (" ",16X,"COMPUTED= " ,"(",E12.5,", ",E12.5,")",6X,A31) 04490820 80039 FORMAT (" ",16X,"CORRECT= " ,"(",E12.5,", ",E12.5,")",6X,A31) 04500820 80041 FORMAT (" ",16X,"COMPUTED= " ,"(",F12.5,", ",F12.5,")",6X,A31) 04510820 80043 FORMAT (" ",16X,"CORRECT= " ,"(",F12.5,", ",F12.5,")",6X,A31) 04520820 80045 FORMAT (" ",2X,I3,4X," FAIL ",/," ",16X,"COMPUTED= " , 04530820 1"(",F12.5,", ",F12.5,")"/," ",16X,"CORRECT= " , 04540820 2"(",F12.5,", ",F12.5,")") 04550820 CBE** ********************** BBCFMAT1 **********************************04560820 CBB** ********************** BBCFMT0B **********************************04570820 C**** FORMAT STATEMENTS FOR PAGE HEADERS 04580820 C**** 04590820 90002 FORMAT ("1") 04600820 90004 FORMAT (" ") 04610820 90006 FORMAT (" ",20X,"NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY" )04620820 90007 FORMAT (" ",19X,"FORTRAN COMPILER VALIDATION SYSTEM" ) 04630820 90008 FORMAT (" ",21X,A13,A17) 04640820 90009 FORMAT (" ",/," *",A5,"BEGIN*",12X,"TEST RESULTS - " ,A5,/) 04650820 90010 FORMAT (" ",8X,"TEST DATE*TIME= " ,A17," - COMPILER= " ,A20) 04660820 90013 FORMAT (" "," TEST ","PASS/FAIL " ,6X,"DISPLAYED RESULTS" , 04670820 1 7X,"REMARKS",24X) 04680820 90014 FORMAT (" ","----------------------------------------------" , 04690820 1 "---------------------------------" ) 04700820 90015 FORMAT (" ",48X,"THIS PROGRAM HAS " ,I3," TESTS",/) 04710820 C**** 04720820 C**** FORMAT STATEMENTS FOR REPORT FOOTINGS 04730820 C**** 04740820 90016 FORMAT (" ",/," *",A5,"END*",14X,"END OF TEST - " ,A5,/) 04750820 90018 FORMAT (" ",A13,13X,A20," * ",A10,"/", 04760820 1 A13) 04770820 90019 FORMAT (" ","FOR OFFICIAL USE ONLY " ,35X,"COPYRIGHT 1982" ) 04780820 C**** 04790820 C**** FORMAT STATEMENTS FOR RUN SUMMARY 04800820 C**** 04810820 90020 FORMAT (" ",21X,I5," TESTS PASSED" ) 04820820 90022 FORMAT (" ",21X,I5," TESTS FAILED" ) 04830820 90024 FORMAT (" ",21X,I5," TESTS DELETED" ) 04840820 90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" ) 04850820 90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" ) 04860820 CBE** ********************** BBCFMT0B **********************************04870820 C***** 04880820 C***** END OF TEST SEGMENT 188 04890820 STOP 04900820 END 04910820 04920820