FM819.f Source File


Contents

Source Code


Source Code

      PROGRAM FM819

C***********************************************************************00010819
C*****  FORTRAN 77                                                      00020819
C*****   FM819                                                          00030819
C*****                       YDSIN - (187)                              00040819
C*****                                                                  00050819
C***********************************************************************00060819
C*****  GENERAL PURPOSE                                         ANS REF 00070819
C*****    TEST INTRINSIC FUNCTION DSIN                           15.3   00080819
C*****                                                          TABLE 5 00090819
C*****                                                                  00100819
CBB** ********************** BBCCOMNT **********************************00110819
C****                                                                   00120819
C****            1978 FORTRAN COMPILER VALIDATION SYSTEM                00130819
C****                          VERSION 2.1                              00140819
C****                                                                   00150819
C****                                                                   00160819
C****           SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO         00170819
C****          NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY           00180819
C****               SOFTWARE STANDARDS VALIDATION GROUP                 00190819
C****                      BUILDING 225  RM A266                        00200819
C****                     GAITHERSBURG, MD  20899                       00210819
C****                                                                   00220819
C****                                                                   00230819
C****                                                                   00240819
CBE** ********************** BBCCOMNT **********************************00250819
C*****    S P E C I F I C A T I O N S SEGMENT 187                       00260819
        DOUBLE PRECISION AVD, BVD, PIVD, DVCORR                         00270819
C*****                                                                  00280819
CBB** ********************** BBCINITA **********************************00290819
C**** SPECIFICATION STATEMENTS                                          00300819
C****                                                                   00310819
      CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20,      00320819
     1          ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13      00330819
CBE** ********************** BBCINITA **********************************00340819
CBB** ********************** BBCINITB **********************************00350819
C**** INITIALIZE SECTION                                                00360819
      DATA  ZVERS,                  ZVERSD,             ZDATE           00370819
     1      /'VERSION 2.1  ',  '93/10/21*21.02.00',  '*NO DATE*TIME'/   00380819
      DATA       ZCOMPL,             ZNAME,             ZTAPE           00390819
     1      /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/      00400819
      DATA       ZPROJ,           ZTAPED,         ZPROG                 00410819
     1      /'*NO PROJECT*',   '*NO TAPE DATE',  'XXXXX'/               00420819
      DATA   REMRKS /'                               '/                 00430819
C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED   00440819
C**** FOR IDENTIFYING THE TEST ENVIRONMENT                              00450819
C****                                                                   00460819
CZ01  ZVERS  = 'VERSION OF THE COMPILER VALIDATION SYSTEM'              00470819
CZ02  ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM'   00480819
CZ03  ZPROG  = 'PROGRAM NAME'                                           00490819
CZ04  ZDATE  = 'DATE OF TEST'                                           00500819
CZ05  ZCOMPL = 'COMPILER IDENTIFICATION'                                00510819
CZ06  ZPROJ  = 'PROJECT NUMBER/IDENTIFICATION'                          00520819
CZ07  ZNAME  = 'NAME OF USER'                                           00530819
CZ08  ZTAPE  = 'TAPE OWNER/ID'                                          00540819
CZ09  ZTAPED = 'DATE TAPE COPIED'                                       00550819
C                                                                       00560819
      IVPASS = 0                                                        00570819
      IVFAIL = 0                                                        00580819
      IVDELE = 0                                                        00590819
      IVINSP = 0                                                        00600819
      IVTOTL = 0                                                        00610819
      IVTOTN = 0                                                        00620819
      ICZERO = 0                                                        00630819
C                                                                       00640819
C     I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER.         00650819
      I01 = 05                                                          00660819
C     I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER.             00670819
      I02 = 06                                                          00680819
C                                                                       00690819
CX010   REPLACED BY FEXEC X-010 CONTROL CARD (CARD-READER UNIT NUMBER). 00700819
C     THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5      00710819
CX011   REPLACED BY FEXEC X-011 CONTROL CARD.  CX011 IS FOR SYSTEMS     00720819
C     REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010.  00730819
C                                                                       00740819
CX020   REPLACED BY FEXEC X-020 CONTROL CARD (PRINTER UNIT NUMBER).     00750819
C     THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6       00760819
CX021   REPLACED BY FEXEC X-021 CONTROL CARD.  CX021 IS FOR SYSTEMS     00770819
C     REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020.  00780819
C                                                                       00790819
CBE** ********************** BBCINITB **********************************00800819
      NUVI = I02                                                        00810819
      IVTOTL = 19                                                       00820819
      ZPROG = 'FM819'                                                   00830819
CBB** ********************** BBCHED0A **********************************00840819
C****                                                                   00850819
C**** WRITE REPORT TITLE                                                00860819
C****                                                                   00870819
      WRITE (I02, 90002)                                                00880819
      WRITE (I02, 90006)                                                00890819
      WRITE (I02, 90007)                                                00900819
      WRITE (I02, 90008)  ZVERS, ZVERSD                                 00910819
      WRITE (I02, 90009)  ZPROG, ZPROG                                  00920819
      WRITE (I02, 90010)  ZDATE, ZCOMPL                                 00930819
CBE** ********************** BBCHED0A **********************************00940819
C*****                                                                  00950819
C*****    HEADER FOR SEGMENT 187                                        00960819
        WRITE(NUVI,18700)                                               00970819
18700   FORMAT(" "/" YDSIN - (187) INTRINSIC FUNCTIONS" //              00980819
     1         "  DSIN - (DOUBLE PRECISION SINE)" //                    00990819
     2         "  ANS REF. - 15.3" )                                    01000819
CBB** ********************** BBCHED0B **********************************01010819
C**** WRITE DETAIL REPORT HEADERS                                       01020819
C****                                                                   01030819
      WRITE (I02,90004)                                                 01040819
      WRITE (I02,90004)                                                 01050819
      WRITE (I02,90013)                                                 01060819
      WRITE (I02,90014)                                                 01070819
      WRITE (I02,90015) IVTOTL                                          01080819
CBE** ********************** BBCHED0B **********************************01090819
C*****                                                                  01100819
        PIVD = 3.1415926535897932384626434D0                            01110819
C*****                                                                  01120819
CT001*  TEST 1                                ZERO (0.0) SINCE SIN(0)=0 01130819
           IVTNUM = 1                                                   01140819
        BVD = 0.0D0                                                     01150819
        AVD = DSIN(BVD)                                                 01160819
           IF (AVD + 0.5000000000D-09) 20010, 10010, 40010              01170819
40010      IF (AVD - 0.5000000000D-09) 10010, 10010, 20010              01180819
10010      IVPASS = IVPASS + 1                                          01190819
           WRITE (NUVI, 80002) IVTNUM                                   01200819
           GO TO 0011                                                   01210819
20010      IVFAIL = IVFAIL + 1                                          01220819
           DVCORR = 0.00000000000000000000D+00                          01230819
           WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR                      01240819
 0011      CONTINUE                                                     01250819
CT002*  TEST 2                                                       PI 01260819
           IVTNUM = 2                                                   01270819
        AVD = DSIN(PIVD)                                                01280819
           IF (AVD + 0.5000000000D-09) 20020, 10020, 40020              01290819
40020      IF (AVD - 0.5000000000D-09) 10020, 10020, 20020              01300819
10020      IVPASS = IVPASS + 1                                          01310819
           WRITE (NUVI, 80002) IVTNUM                                   01320819
           GO TO 0021                                                   01330819
20020      IVFAIL = IVFAIL + 1                                          01340819
           DVCORR = 0.00000000000000000000D+00                          01350819
           WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR                      01360819
 0021      CONTINUE                                                     01370819
CT003*  TEST 3                                                 PI - 1/8 01380819
           IVTNUM = 3                                                   01390819
        BVD = 3.01659265358979323846D0                                  01400819
        AVD = DSIN(BVD)                                                 01410819
           IF (AVD - 0.1246747333D+00) 20030, 10030, 40030              01420819
40030      IF (AVD - 0.1246747335D+00) 10030, 10030, 20030              01430819
10030      IVPASS = IVPASS + 1                                          01440819
           WRITE (NUVI, 80002) IVTNUM                                   01450819
           GO TO 0031                                                   01460819
20030      IVFAIL = IVFAIL + 1                                          01470819
           DVCORR = 0.12467473338522768996D+00                          01480819
           WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR                      01490819
 0031      CONTINUE                                                     01500819
CT004*  TEST 4                                                PI - 1/16 01510819
           IVTNUM = 4                                                   01520819
        AVD = DSIN(3.204092653589793238D0)                              01530819
           IF (AVD + 0.6245931788D-01) 20040, 10040, 40040              01540819
40040      IF (AVD + 0.6245931781D-01) 10040, 10040, 20040              01550819
10040      IVPASS = IVPASS + 1                                          01560819
           WRITE (NUVI, 80002) IVTNUM                                   01570819
           GO TO 0041                                                   01580819
20040      IVFAIL = IVFAIL + 1                                          01590819
           DVCORR = -0.062459317842380198585D+00                        01600819
           WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR                      01610819
 0041      CONTINUE                                                     01620819
CT005*  TEST 5                                                     2*PI 01630819
           IVTNUM = 5                                                   01640819
        BVD = PIVD * 2.0D0                                              01650819
        AVD = DSIN(BVD)                                                 01660819
           IF (AVD + 0.5000000000D-09) 20050, 10050, 40050              01670819
40050      IF (AVD - 0.5000000000D-09) 10050, 10050, 20050              01680819
10050      IVPASS = IVPASS + 1                                          01690819
           WRITE (NUVI, 80002) IVTNUM                                   01700819
           GO TO 0051                                                   01710819
20050      IVFAIL = IVFAIL + 1                                          01720819
           DVCORR = 0.00000000000000000000D+00                          01730819
           WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR                      01740819
 0051      CONTINUE                                                     01750819
CT006*  TEST 6                                             2*PI - 1/128 01760819
           IVTNUM = 6                                                   01770819
        BVD = (2.0D0 * PIVD) - 1.0D0 / 128.0D0                          01780819
        AVD = DSIN(BVD)                                                 01790819
           IF (AVD + 0.7812420532D-02) 20060, 10060, 40060              01800819
40060      IF (AVD + 0.7812420523D-02) 10060, 10060, 20060              01810819
10060      IVPASS = IVPASS + 1                                          01820819
           WRITE (NUVI, 80002) IVTNUM                                   01830819
           GO TO 0061                                                   01840819
20060      IVFAIL = IVFAIL + 1                                          01850819
           DVCORR = -0.0078124205273828310472D+00                       01860819
           WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR                      01870819
 0061      CONTINUE                                                     01880819
CT007*  TEST 7                                             2*PI - 1/256 01890819
           IVTNUM = 7                                                   01900819
        BVD = (2.0D0 * PIVD) + 1.0D0 / 256.0D0                          01910819
        AVD = DSIN(BVD)                                                 01920819
           IF (AVD - 0.3906240064D-02) 20070, 10070, 40070              01930819
40070      IF (AVD - 0.3906240068D-02) 10070, 10070, 20070              01940819
10070      IVPASS = IVPASS + 1                                          01950819
           WRITE (NUVI, 80002) IVTNUM                                   01960819
           GO TO 0071                                                   01970819
20070      IVFAIL = IVFAIL + 1                                          01980819
           DVCORR = 0.0039062400659001165547D+00                        01990819
           WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR                      02000819
 0071      CONTINUE                                                     02010819
CT008*  TEST 8                           AN EXPRESSION SUPPLIED TO DSIN 02020819
           IVTNUM = 8                                                   02030819
        BVD = 2000.0D0                                                  02040819
        AVD = DSIN(BVD / 10.0D2)                                        02050819
           IF (AVD - 0.9092974263D+00) 20080, 10080, 40080              02060819
40080      IF (AVD - 0.9092974273D+00) 10080, 10080, 20080              02070819
10080      IVPASS = IVPASS + 1                                          02080819
           WRITE (NUVI, 80002) IVTNUM                                   02090819
           GO TO 0081                                                   02100819
20080      IVFAIL = IVFAIL + 1                                          02110819
           DVCORR = 0.90929742682568169540D+00                          02120819
           WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR                      02130819
 0081      CONTINUE                                                     02140819
CT009*  TEST 9                                         THE VALUE -2.0D0 02150819
           IVTNUM = 9                                                   02160819
        BVD = -2.0D0                                                    02170819
        AVD = DSIN(BVD)                                                 02180819
           IF (AVD + 0.9092974273D+00) 20090, 10090, 40090              02190819
40090      IF (AVD + 0.9092974263D+00) 10090, 10090, 20090              02200819
10090      IVPASS = IVPASS + 1                                          02210819
           WRITE (NUVI, 80002) IVTNUM                                   02220819
           GO TO 0091                                                   02230819
20090      IVFAIL = IVFAIL + 1                                          02240819
           DVCORR = -0.90929742682568169540D+00                         02250819
           WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR                      02260819
 0091      CONTINUE                                                     02270819
CT010*  TEST 10                A LARGE VALUE TO TEST ARGUMENT REDUCTION 02280819
           IVTNUM = 10                                                  02290819
        AVD = DSIN(100.0D0)                                             02300819
           IF (AVD + 0.5063656414D+00) 20100, 10100, 40100              02310819
40100      IF (AVD + 0.5063656408D+00) 10100, 10100, 20100              02320819
10100      IVPASS = IVPASS + 1                                          02330819
           WRITE (NUVI, 80002) IVTNUM                                   02340819
           GO TO 0101                                                   02350819
20100      IVFAIL = IVFAIL + 1                                          02360819
           DVCORR = -0.50636564110975879366D+00                         02370819
           WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR                      02380819
 0101      CONTINUE                                                     02390819
CT011*  TEST 11                                      A VERY LARGE VALUE 02400819
           IVTNUM = 11                                                  02410819
        AVD = DSIN(-1000.0D0)                                           02420819
           IF (AVD + 0.8268795410D+00) 20110, 10110, 40110              02430819
40110      IF (AVD + 0.8268795401D+00) 10110, 10110, 20110              02440819
10110      IVPASS = IVPASS + 1                                          02450819
           WRITE (NUVI, 80002) IVTNUM                                   02460819
           GO TO 0111                                                   02470819
20110      IVFAIL = IVFAIL + 1                                          02480819
           DVCORR = -0.82687954053200256026D+00                         02490819
           WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR                      02500819
 0111      CONTINUE                                                     02510819
CT012*  TEST 12                                                    PI/2 02520819
           IVTNUM = 12                                                  02530819
        AVD = DSIN(1.57079632679489661923D0)                            02540819
           IF (AVD - 0.9999999995D+00) 20120, 10120, 40120              02550819
40120      IF (AVD - 0.1000000001D+01) 10120, 10120, 20120              02560819
10120      IVPASS = IVPASS + 1                                          02570819
           WRITE (NUVI, 80002) IVTNUM                                   02580819
           GO TO 0121                                                   02590819
20120      IVFAIL = IVFAIL + 1                                          02600819
           DVCORR = 1.0000000000000000000D+00                           02610819
           WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR                      02620819
 0121      CONTINUE                                                     02630819
CT013*  TEST 13                                         (PI / 2) - 1/32 02640819
           IVTNUM = 13                                                  02650819
        BVD = 1.53954632679489661923D0                                  02660819
        AVD = DSIN(BVD)                                                 02670819
           IF (AVD - 0.9995117579D+00) 20130, 10130, 40130              02680819
40130      IF (AVD - 0.9995117590D+00) 10130, 10130, 20130              02690819
10130      IVPASS = IVPASS + 1                                          02700819
           WRITE (NUVI, 80002) IVTNUM                                   02710819
           GO TO 0131                                                   02720819
20130      IVFAIL = IVFAIL + 1                                          02730819
           DVCORR = 0.99951175848513636924D+00                          02740819
           WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR                      02750819
 0131      CONTINUE                                                     02760819
CT014*  TEST 14                                         (PI / 2) + 1/64 02770819
           IVTNUM = 14                                                  02780819
        BVD = 1.58642132679489661923D0                                  02790819
        AVD = DSIN(BVD)                                                 02800819
           IF (AVD - 0.9998779316D+00) 20140, 10140, 40140              02810819
40140      IF (AVD - 0.9998779327D+00) 10140, 10140, 20140              02820819
10140      IVPASS = IVPASS + 1                                          02830819
           WRITE (NUVI, 80002) IVTNUM                                   02840819
           GO TO 0141                                                   02850819
20140      IVFAIL = IVFAIL + 1                                          02860819
           DVCORR = 0.99987793217100665474D+00                          02870819
           WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR                      02880819
 0141      CONTINUE                                                     02890819
CT015*  TEST 15                                                  3*PI/2 02900819
           IVTNUM = 15                                                  02910819
        BVD = 3.0D0 * PIVD / 2.0D0                                      02920819
        AVD = DSIN(BVD)                                                 02930819
           IF (AVD + 0.1000000001D+01) 20150, 10150, 40150              02940819
40150      IF (AVD + 0.9999999995D+00) 10150, 10150, 20150              02950819
10150      IVPASS = IVPASS + 1                                          02960819
           WRITE (NUVI, 80002) IVTNUM                                   02970819
           GO TO 0151                                                   02980819
20150      IVFAIL = IVFAIL + 1                                          02990819
           DVCORR = -1.000000000000000000D+00                           03000819
           WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR                      03010819
 0151      CONTINUE                                                     03020819
CT016*  TEST 16                                           3*PI/2 - 1/16 03030819
           IVTNUM = 16                                                  03040819
        BVD = (3.0D0 * PIVD / 2.0D0) - 1.0D0 / 16.0D0                   03050819
        AVD = DSIN(BVD)                                                 03060819
           IF (AVD + 0.9980475112D+00) 20160, 10160, 40160              03070819
40160      IF (AVD + 0.9980475102D+00) 10160, 10160, 20160              03080819
10160      IVPASS = IVPASS + 1                                          03090819
           WRITE (NUVI, 80002) IVTNUM                                   03100819
           GO TO 0161                                                   03110819
20160      IVFAIL = IVFAIL + 1                                          03120819
           DVCORR = -0.99804751070009914963D+00                         03130819
           WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR                      03140819
 0161      CONTINUE                                                     03150819
CT017*  TEST 17                                            3*PI - 1/512 03160819
           IVTNUM = 17                                                  03170819
        BVD = (3.0D0 * PIVD / 2.0D0) + 1.0D0 / 512.0D0                  03180819
        AVD = DSIN(BVD)                                                 03190819
           IF (AVD + 0.9999980932D+00) 20170, 10170, 40170              03200819
40170      IF (AVD + 0.9999980921D+00) 10170, 10170, 20170              03210819
10170      IVPASS = IVPASS + 1                                          03220819
           WRITE (NUVI, 80002) IVTNUM                                   03230819
           GO TO 0171                                                   03240819
20170      IVFAIL = IVFAIL + 1                                          03250819
           DVCORR = -0.99999809265197351722D+00                         03260819
           WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR                      03270819
 0171      CONTINUE                                                     03280819
CT018*  TEST 18                               ARGUMENT OF LOW MAGNITUDE 03290819
           IVTNUM = 18                                                  03300819
        BVD = PIVD * 1.0D-17                                            03310819
        AVD = DSIN(BVD)                                                 03320819
           IF (AVD - 0.3141592652D-16) 20180, 10180, 40180              03330819
40180      IF (AVD - 0.3141592655D-16) 10180, 10180, 20180              03340819
10180      IVPASS = IVPASS + 1                                          03350819
           WRITE (NUVI, 80002) IVTNUM                                   03360819
           GO TO 0181                                                   03370819
20180      IVFAIL = IVFAIL + 1                                          03380819
           DVCORR = 3.1415926535897932385D-17                           03390819
           WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR                      03400819
 0181      CONTINUE                                                     03410819
CT019*  TEST 19                              THE FUNCTION APPLIED TWICE 03420819
           IVTNUM = 19                                                  03430819
        AVD = DSIN(PIVD / 4.0D0) * DSIN(3.0D0 * PIVD / 4.0D0)           03440819
           IF (AVD - 0.4999999997D+00) 20190, 10190, 40190              03450819
40190      IF (AVD - 0.5000000003D+00) 10190, 10190, 20190              03460819
10190      IVPASS = IVPASS + 1                                          03470819
           WRITE (NUVI, 80002) IVTNUM                                   03480819
           GO TO 0191                                                   03490819
20190      IVFAIL = IVFAIL + 1                                          03500819
           DVCORR = 0.50000000000000000000D+00                          03510819
           WRITE (NUVI, 80031) IVTNUM, AVD, DVCORR                      03520819
 0191      CONTINUE                                                     03530819
C*****                                                                  03540819
CBB** ********************** BBCSUM0  **********************************03550819
C**** WRITE OUT TEST SUMMARY                                            03560819
C****                                                                   03570819
      IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP                        03580819
      WRITE (I02, 90004)                                                03590819
      WRITE (I02, 90014)                                                03600819
      WRITE (I02, 90004)                                                03610819
      WRITE (I02, 90020) IVPASS                                         03620819
      WRITE (I02, 90022) IVFAIL                                         03630819
      WRITE (I02, 90024) IVDELE                                         03640819
      WRITE (I02, 90026) IVINSP                                         03650819
      WRITE (I02, 90028) IVTOTN, IVTOTL                                 03660819
CBE** ********************** BBCSUM0  **********************************03670819
CBB** ********************** BBCFOOT0 **********************************03680819
C**** WRITE OUT REPORT FOOTINGS                                         03690819
C****                                                                   03700819
      WRITE (I02,90016) ZPROG, ZPROG                                    03710819
      WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED                     03720819
      WRITE (I02,90019)                                                 03730819
CBE** ********************** BBCFOOT0 **********************************03740819
CBB** ********************** BBCFMT0A **********************************03750819
C**** FORMATS FOR TEST DETAIL LINES                                     03760819
C****                                                                   03770819
80000 FORMAT (" ",2X,I3,4X,"DELETED",32X,A31)                           03780819
80002 FORMAT (" ",2X,I3,4X," PASS  ",32X,A31)                           03790819
80004 FORMAT (" ",2X,I3,4X,"INSPECT",32X,A31)                           03800819
80008 FORMAT (" ",2X,I3,4X," FAIL  ",32X,A31)                           03810819
80010 FORMAT (" ",2X,I3,4X," FAIL  ",/," ",15X,"COMPUTED= " ,           03820819
     1I6,/," ",15X,"CORRECT=  " ,I6)                                    03830819
80012 FORMAT (" ",2X,I3,4X," FAIL  ",/," ",16X,"COMPUTED= " ,           03840819
     1E12.5,/," ",16X,"CORRECT=  " ,E12.5)                              03850819
80018 FORMAT (" ",2X,I3,4X," FAIL  ",/," ",16X,"COMPUTED= " ,           03860819
     1A21,/," ",16X,"CORRECT=  " ,A21)                                  03870819
80020 FORMAT (" ",16X,"COMPUTED= " ,A21,1X,A31)                         03880819
80022 FORMAT (" ",16X,"CORRECT=  " ,A21,1X,A31)                         03890819
80024 FORMAT (" ",16X,"COMPUTED= " ,I6,16X,A31)                         03900819
80026 FORMAT (" ",16X,"CORRECT=  " ,I6,16X,A31)                         03910819
80028 FORMAT (" ",16X,"COMPUTED= " ,E12.5,10X,A31)                      03920819
80030 FORMAT (" ",16X,"CORRECT=  " ,E12.5,10X,A31)                      03930819
80050 FORMAT (" ",48X,A31)                                              03940819
CBE** ********************** BBCFMT0A **********************************03950819
CBB** ********************** BBCFMAT1 **********************************03960819
C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE                     03970819
C****                                                                   03980819
80031 FORMAT (" ",2X,I3,4X," FAIL  ",/," ",16X,"COMPUTED= " ,           03990819
     1D17.10,/," ",16X,"CORRECT=  " ,D17.10)                            04000819
80033 FORMAT (" ",16X,"COMPUTED= " ,D17.10,10X,A31)                     04010819
80035 FORMAT (" ",16X,"CORRECT=  " ,D17.10,10X,A31)                     04020819
80037 FORMAT (" ",16X,"COMPUTED= " ,"(",E12.5,", ",E12.5,")",6X,A31)    04030819
80039 FORMAT (" ",16X,"CORRECT=  " ,"(",E12.5,", ",E12.5,")",6X,A31)    04040819
80041 FORMAT (" ",16X,"COMPUTED= " ,"(",F12.5,", ",F12.5,")",6X,A31)    04050819
80043 FORMAT (" ",16X,"CORRECT=  " ,"(",F12.5,", ",F12.5,")",6X,A31)    04060819
80045 FORMAT (" ",2X,I3,4X," FAIL  ",/," ",16X,"COMPUTED= " ,           04070819
     1"(",F12.5,", ",F12.5,")"/," ",16X,"CORRECT=  " ,                  04080819
     2"(",F12.5,", ",F12.5,")")                                         04090819
CBE** ********************** BBCFMAT1 **********************************04100819
CBB** ********************** BBCFMT0B **********************************04110819
C**** FORMAT STATEMENTS FOR PAGE HEADERS                                04120819
C****                                                                   04130819
90002 FORMAT ("1")                                                      04140819
90004 FORMAT (" ")                                                      04150819
90006 FORMAT (" ",20X,"NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY" )04160819
90007 FORMAT (" ",19X,"FORTRAN COMPILER VALIDATION SYSTEM" )            04170819
90008 FORMAT (" ",21X,A13,A17)                                          04180819
90009 FORMAT (" ",/," *",A5,"BEGIN*",12X,"TEST RESULTS - " ,A5,/)       04190819
90010 FORMAT (" ",8X,"TEST DATE*TIME= " ,A17,"  -  COMPILER= " ,A20)    04200819
90013 FORMAT (" "," TEST   ","PASS/FAIL " ,6X,"DISPLAYED RESULTS" ,     04210819
     1       7X,"REMARKS",24X)                                          04220819
90014 FORMAT (" ","----------------------------------------------" ,    04230819
     1        "---------------------------------" )                     04240819
90015 FORMAT (" ",48X,"THIS PROGRAM HAS " ,I3," TESTS",/)               04250819
C****                                                                   04260819
C**** FORMAT STATEMENTS FOR REPORT FOOTINGS                             04270819
C****                                                                   04280819
90016 FORMAT (" ",/," *",A5,"END*",14X,"END OF TEST - " ,A5,/)          04290819
90018 FORMAT (" ",A13,13X,A20,"   *   ",A10,"/",                        04300819
     1        A13)                                                      04310819
90019 FORMAT (" ","FOR OFFICIAL USE ONLY     " ,35X,"COPYRIGHT  1982" ) 04320819
C****                                                                   04330819
C**** FORMAT STATEMENTS FOR RUN SUMMARY                                 04340819
C****                                                                   04350819
90020 FORMAT (" ",21X,I5," TESTS PASSED" )                              04360819
90022 FORMAT (" ",21X,I5," TESTS FAILED" )                              04370819
90024 FORMAT (" ",21X,I5," TESTS DELETED" )                             04380819
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" )                  04390819
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" )                  04400819
CBE** ********************** BBCFMT0B **********************************04410819
C*****                                                                  04420819
C*****    END OF TEST SEGMENT 187                                       04430819
      STOP                                                              04440819
      END                                                               04450819
                                                                        04460819