FM364.f Source File


Contents

Source Code


Source Code

      PROGRAM FM364

C***********************************************************************00010364
C*****  FORTRAN 77                                                      00020364
C*****   FM364               XRMNX - (172)                              00030364
C*****                                                                  00040364
C***********************************************************************00050364
C*****  GENERAL PURPOSE                                      SUBSET REF 00060364
C*****    TESTS THE USE OF MIXED MODE ARITHMETIC                15.10   00070364
C*****    EXPRESSIONS CONTAINING REFERENCES TO THE              15.3    00080364
C*****    INTRINSIC FUNCTIONS                                   6.1.4   00090364
C*****                                                                  00100364
C*****  GENERAL COMMENTS                                                00110364
C*****    SEGMENTS TESTING XINT, XREAL, XAINT, XABS, XAMOD,             00120364
C*****    XSIGN, XDIM, XMAX, XMIN ASSUMED WORKING                       00130364
C*****                                                                  00140364
CBB** ********************** BBCCOMNT **********************************00150364
C****                                                                   00160364
C****            1978 FORTRAN COMPILER VALIDATION SYSTEM                00170364
C****                          VERSION 2.1                              00180364
C****                                                                   00190364
C****                                                                   00200364
C****           SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO         00210364
C****          NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY           00220364
C****               SOFTWARE STANDARDS VALIDATION GROUP                 00230364
C****                      BUILDING 225  RM A266                        00240364
C****                     GAITHERSBURG, MD  20899                       00250364
C****                                                                   00260364
C****                                                                   00270364
C****                                                                   00280364
CBE** ********************** BBCCOMNT **********************************00290364
CBB** ********************** BBCINITA **********************************00300364
C**** SPECIFICATION STATEMENTS                                          00310364
C****                                                                   00320364
      CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20,      00330364
     1          ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13      00340364
CBE** ********************** BBCINITA **********************************00350364
CBB** ********************** BBCINITB **********************************00360364
C**** INITIALIZE SECTION                                                00370364
      DATA  ZVERS,                  ZVERSD,             ZDATE           00380364
     1      /'VERSION 2.1  ',  '93/10/21*21.02.00',  '*NO DATE*TIME'/   00390364
      DATA       ZCOMPL,             ZNAME,             ZTAPE           00400364
     1      /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/      00410364
      DATA       ZPROJ,           ZTAPED,         ZPROG                 00420364
     1      /'*NO PROJECT*',   '*NO TAPE DATE',  'XXXXX'/               00430364
      DATA   REMRKS /'                               '/                 00440364
C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED   00450364
C**** FOR IDENTIFYING THE TEST ENVIRONMENT                              00460364
C****                                                                   00470364
CZ01  ZVERS  = 'VERSION OF THE COMPILER VALIDATION SYSTEM'              00480364
CZ02  ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM'   00490364
CZ03  ZPROG  = 'PROGRAM NAME'                                           00500364
CZ04  ZDATE  = 'DATE OF TEST'                                           00510364
CZ05  ZCOMPL = 'COMPILER IDENTIFICATION'                                00520364
CZ06  ZPROJ  = 'PROJECT NUMBER/IDENTIFICATION'                          00530364
CZ07  ZNAME  = 'NAME OF USER'                                           00540364
CZ08  ZTAPE  = 'TAPE OWNER/ID'                                          00550364
CZ09  ZTAPED = 'DATE TAPE COPIED'                                       00560364
C                                                                       00570364
      IVPASS = 0                                                        00580364
      IVFAIL = 0                                                        00590364
      IVDELE = 0                                                        00600364
      IVINSP = 0                                                        00610364
      IVTOTL = 0                                                        00620364
      IVTOTN = 0                                                        00630364
      ICZERO = 0                                                        00640364
C                                                                       00650364
C     I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER.         00660364
      I01 = 05                                                          00670364
C     I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER.             00680364
      I02 = 06                                                          00690364
C                                                                       00700364
CX010   REPLACED BY FEXEC X-010 CONTROL CARD (CARD-READER UNIT NUMBER). 00710364
C     THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5      00720364
CX011   REPLACED BY FEXEC X-011 CONTROL CARD.  CX011 IS FOR SYSTEMS     00730364
C     REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010.  00740364
C                                                                       00750364
CX020   REPLACED BY FEXEC X-020 CONTROL CARD (PRINTER UNIT NUMBER).     00760364
C     THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6       00770364
CX021   REPLACED BY FEXEC X-021 CONTROL CARD.  CX021 IS FOR SYSTEMS     00780364
C     REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020.  00790364
C                                                                       00800364
CBE** ********************** BBCINITB **********************************00810364
C*****    O U T P U T  T A P E  ASSIGNMENT STATEMENT.  NO INPUT TAPE.   00820364
      NUVI = I02                                                        00830364
      IVTOTL = 14                                                       00840364
      ZPROG = 'FM364'                                                   00850364
C*****                                                                  00860364
CBB** ********************** BBCHED0A **********************************00870364
C****                                                                   00880364
C**** WRITE REPORT TITLE                                                00890364
C****                                                                   00900364
      WRITE (I02, 90002)                                                00910364
      WRITE (I02, 90006)                                                00920364
      WRITE (I02, 90007)                                                00930364
      WRITE (I02, 90008)  ZVERS, ZVERSD                                 00940364
      WRITE (I02, 90009)  ZPROG, ZPROG                                  00950364
      WRITE (I02, 90010)  ZDATE, ZCOMPL                                 00960364
CBE** ********************** BBCHED0A **********************************00970364
C*****    HEADER FOR SEGMENT 172 WRITTEN                                00980364
        WRITE (NUVI,17201)                                              00990364
17201   FORMAT(/" XRMNX - (172) SUBSET INTRINSIC FUNCTIONS" /           01000364
     1      15X,"IN MIXED MODE EXPRESSIONS"  //,                        01010364
     2      " SUBSET REF. - 15.10, 15.3, 6.1.4" )                       01020364
C*****                                                                  01030364
CBB** ********************** BBCHED0B **********************************01040364
C**** WRITE DETAIL REPORT HEADERS                                       01050364
C****                                                                   01060364
      WRITE (I02,90004)                                                 01070364
      WRITE (I02,90004)                                                 01080364
      WRITE (I02,90013)                                                 01090364
      WRITE (I02,90014)                                                 01100364
      WRITE (I02,90015) IVTOTL                                          01110364
CBE** ********************** BBCHED0B **********************************01120364
CT001*  TEST 1                                                          01130364
        IVTNUM = 1                                                      01140364
        RKBVS = 3.2                                                     01150364
        RKDVS = 3.8                                                     01160364
        RKAVS = 3.5 + INT(RKBVS) + IFIX(RKDVS)                          01170364
        RKCVS = RKAVS - 9.5                                             01180364
           IF (RKCVS + .00005) 20010, 10010, 40010                      01190364
40010      IF (RKCVS - .00005) 10010, 10010, 20010                      01200364
10010      IVPASS = IVPASS + 1                                          01210364
           WRITE (NUVI, 80002) IVTNUM                                   01220364
           GO TO 0011                                                   01230364
20010      IVFAIL = IVFAIL + 1                                          01240364
           RVCORR = 0.0                                                 01250364
           WRITE (NUVI, 80012) IVTNUM, RKCVS, RVCORR                    01260364
 0011      CONTINUE                                                     01270364
CT002*  TEST 2                                                          01280364
        IVTNUM = 2                                                      01290364
        IKBVI = 3                                                       01300364
        IKDVI = 6                                                       01310364
        RKAVS = FLOAT(IKBVI) - 3 + REAL(IKDVI)                          01320364
        RKCVS = RKAVS - 6.0                                             01330364
           IF (RKCVS + .00005) 20020, 10020, 40020                      01340364
40020      IF (RKCVS - .00005) 10020, 10020, 20020                      01350364
10020      IVPASS = IVPASS + 1                                          01360364
           WRITE (NUVI, 80002) IVTNUM                                   01370364
           GO TO 0021                                                   01380364
20020      IVFAIL = IVFAIL + 1                                          01390364
           RVCORR = 0.0                                                 01400364
           WRITE (NUVI, 80012) IVTNUM, RKCVS, RVCORR                    01410364
 0021      CONTINUE                                                     01420364
CT003*  TEST 3                                                          01430364
        IVTNUM = 3                                                      01440364
        IKAVI = 3                                                       01450364
        RKBVS = 5.25                                                    01460364
        RKAVS = ANINT(RKBVS) * IKAVI                                    01470364
        RKCVS = RKAVS - 15.0                                            01480364
           IF (RKCVS + .00005) 20030, 10030, 40030                      01490364
40030      IF (RKCVS - .00005) 10030, 10030, 20030                      01500364
10030      IVPASS = IVPASS + 1                                          01510364
           WRITE (NUVI, 80002) IVTNUM                                   01520364
           GO TO 0031                                                   01530364
20030      IVFAIL = IVFAIL + 1                                          01540364
           RVCORR = 0.0                                                 01550364
           WRITE (NUVI, 80012) IVTNUM, RKCVS, RVCORR                    01560364
 0031      CONTINUE                                                     01570364
CT004*  TEST 4                                                          01580364
        IVTNUM = 4                                                      01590364
        RKBVS = 5.25                                                    01600364
        RKAVS = AINT(RKBVS) * IKAVI                                     01610364
        RKCVS = RKAVS - 15.0                                            01620364
           IF (RKCVS + .00005) 20040, 10040, 40040                      01630364
40040      IF (RKCVS - .00005) 10040, 10040, 20040                      01640364
10040      IVPASS = IVPASS + 1                                          01650364
           WRITE (NUVI, 80002) IVTNUM                                   01660364
           GO TO 0041                                                   01670364
20040      IVFAIL = IVFAIL + 1                                          01680364
           RVCORR = 0.0                                                 01690364
           WRITE (NUVI, 80012) IVTNUM, RKCVS, RVCORR                    01700364
 0041      CONTINUE                                                     01710364
CT005*  TEST 5                                                          01720364
        IVTNUM = 5                                                      01730364
        RKBVS = -5.5                                                    01740364
        RKAVS = ABS(RKBVS) / 2                                          01750364
        RKCVS = RKAVS - 2.75                                            01760364
           IF (RKCVS + .00005) 20050, 10050, 40050                      01770364
40050      IF (RKCVS - .00005) 10050, 10050, 20050                      01780364
10050      IVPASS = IVPASS + 1                                          01790364
           WRITE (NUVI, 80002) IVTNUM                                   01800364
           GO TO 0051                                                   01810364
20050      IVFAIL = IVFAIL + 1                                          01820364
           RVCORR = 0.0                                                 01830364
           WRITE (NUVI, 80012) IVTNUM, RKCVS, RVCORR                    01840364
 0051      CONTINUE                                                     01850364
CT006*  TEST 6                                                          01860364
        IVTNUM = 6                                                      01870364
        RKDVS = 5.0                                                     01880364
        IKBVI = -5                                                      01890364
        RKAVS = RKDVS / IABS(IKBVI)                                     01900364
        RKCVS = RKAVS - 1.0                                             01910364
           IF (RKCVS + .00005) 20060, 10060, 40060                      01920364
40060      IF (RKCVS - .00005) 10060, 10060, 20060                      01930364
10060      IVPASS = IVPASS + 1                                          01940364
           WRITE (NUVI, 80002) IVTNUM                                   01950364
           GO TO 0061                                                   01960364
20060      IVFAIL = IVFAIL + 1                                          01970364
           RVCORR = 0.0                                                 01980364
           WRITE (NUVI, 80012) IVTNUM, RKCVS, RVCORR                    01990364
 0061      CONTINUE                                                     02000364
CT007*  TEST 7                                                          02010364
        IVTNUM = 7                                                      02020364
        RKDVS = -2.0                                                    02030364
        IKAVI = -2                                                      02040364
        IKBVI = 5                                                       02050364
        IKCVI = 2                                                       02060364
        RKAVS = RKDVS / (IABS(IKAVI) * MOD(IKBVI, IKCVI))               02070364
        RKCVS = RKAVS + 1.0                                             02080364
           IF (RKCVS + .00005) 20070, 10070, 40070                      02090364
40070      IF (RKCVS - .00005) 10070, 10070, 20070                      02100364
10070      IVPASS = IVPASS + 1                                          02110364
           WRITE (NUVI, 80002) IVTNUM                                   02120364
           GO TO 0071                                                   02130364
20070      IVFAIL = IVFAIL + 1                                          02140364
           RVCORR = 0.0                                                 02150364
           WRITE (NUVI, 80012) IVTNUM, RKCVS, RVCORR                    02160364
 0071      CONTINUE                                                     02170364
CT008*  TEST 8                                                          02180364
        IVTNUM = 8                                                      02190364
        IKAVI = -2                                                      02200364
        IKBVI = 2                                                       02210364
        RKAVS = 3 * ISIGN(IKAVI, IKBVI)                                 02220364
        RKCVS = RKAVS - 6.0                                             02230364
           IF (RKCVS + .00005) 20080, 10080, 40080                      02240364
40080      IF (RKCVS - .00005) 10080, 10080, 20080                      02250364
10080      IVPASS = IVPASS + 1                                          02260364
           WRITE (NUVI, 80002) IVTNUM                                   02270364
           GO TO 0081                                                   02280364
20080      IVFAIL = IVFAIL + 1                                          02290364
           RVCORR = 0.0                                                 02300364
           WRITE (NUVI, 80012) IVTNUM, RKCVS, RVCORR                    02310364
 0081      CONTINUE                                                     02320364
CT009*  TEST 9                                                          02330364
        IVTNUM = 9                                                      02340364
        RKBVS = 5.25                                                    02350364
        RKDVS = 3.25                                                    02360364
        RKEVS = 2.25                                                    02370364
        RKAVS = AMOD(RKBVS, RKDVS) * NINT(RKEVS)                        02380364
        RKCVS = RKAVS - 4.0                                             02390364
           IF (RKCVS + .00005) 20090, 10090, 40090                      02400364
40090      IF (RKCVS - .00005) 10090, 10090, 20090                      02410364
10090      IVPASS = IVPASS + 1                                          02420364
           WRITE (NUVI, 80002) IVTNUM                                   02430364
           GO TO 0091                                                   02440364
20090      IVFAIL = IVFAIL + 1                                          02450364
           RVCORR = 0.0                                                 02460364
           WRITE (NUVI, 80012) IVTNUM, RKCVS, RVCORR                    02470364
 0091      CONTINUE                                                     02480364
CT010*  TEST 10                                                         02490364
        IVTNUM = 10                                                     02500364
        IKAVI = 2                                                       02510364
        RKDVS = -4.5                                                    02520364
        RKBVS = 1.0                                                     02530364
        RKAVS = (IKAVI + SIGN(RKDVS, RKBVS)) * 1.5                      02540364
        RKCVS = RKAVS - 9.75                                            02550364
           IF (RKCVS + .00005) 20100, 10100, 40100                      02560364
40100      IF (RKCVS - .00005) 10100, 10100, 20100                      02570364
10100      IVPASS = IVPASS + 1                                          02580364
           WRITE (NUVI, 80002) IVTNUM                                   02590364
           GO TO 0101                                                   02600364
20100      IVFAIL = IVFAIL + 1                                          02610364
           RVCORR = 0.0                                                 02620364
           WRITE (NUVI, 80012) IVTNUM, RKCVS, RVCORR                    02630364
 0101      CONTINUE                                                     02640364
CT011*  TEST 11                                                         02650364
        RKDVS = 6.0                                                     02660364
        IKAVI = 5                                                       02670364
        IKBVI = 2                                                       02680364
        IKCVI = 1                                                       02690364
        RKAVS = (IDIM(IKAVI, IKBVI) / RKDVS) ** MAX0(IKCVI, IKBVI)      02700364
        RKCVS = RKAVS - 0.25                                            02710364
           IF (RKCVS + .00005) 20110, 10110, 40110                      02720364
40110      IF (RKCVS - .00005) 10110, 10110, 20110                      02730364
10110      IVPASS = IVPASS + 1                                          02740364
           WRITE (NUVI, 80002) IVTNUM                                   02750364
           GO TO 0111                                                   02760364
20110      IVFAIL = IVFAIL + 1                                          02770364
           RVCORR = 0.0                                                 02780364
           WRITE (NUVI, 80012) IVTNUM, RKCVS, RVCORR                    02790364
 0111      CONTINUE                                                     02800364
CT012*  TEST 12                                                         02810364
        IVTNUM = 12                                                     02820364
        IKAVI = 12                                                      02830364
        RKBVS = 5.5                                                     02840364
        RKDVS = 3.25                                                    02850364
        IKBVI = 2                                                       02860364
        IKCVI = 3                                                       02870364
        RKAVS = 2 * DIM(RKBVS, RKDVS) + AMAX0(IKBVI, IKCVI) / IKAVI     02880364
        RKCVS = RKAVS - 4.75                                            02890364
           IF (RKCVS + .00005) 20120, 10120, 40120                      02900364
40120      IF (RKCVS - .00005) 10120, 10120, 20120                      02910364
10120      IVPASS = IVPASS + 1                                          02920364
           WRITE (NUVI, 80002) IVTNUM                                   02930364
           GO TO 0121                                                   02940364
20120      IVFAIL = IVFAIL + 1                                          02950364
           RVCORR = 0.0                                                 02960364
           WRITE (NUVI, 80012) IVTNUM, RKCVS, RVCORR                    02970364
 0121      CONTINUE                                                     02980364
CT013*  TEST 13                                                         02990364
        IVTNUM = 13                                                     03000364
        IKAVI = 5                                                       03010364
        RKBVS = 4.5                                                     03020364
        RKDVS = 3.5                                                     03030364
        IKBVI = 2                                                       03040364
        IKCVI = 3                                                       03050364
        RKAVS = (AMAX1(RKBVS, RKDVS) * MIN0(IKBVI, IKCVI)) + (IKAVI -   03060364
     1  ANINT(RKDVS))                                                   03070364
        RKCVS = RKAVS - 10.0                                            03080364
           IF (RKCVS + .00005) 20130, 10130, 40130                      03090364
40130      IF (RKCVS - .00005) 10130, 10130, 20130                      03100364
10130      IVPASS = IVPASS + 1                                          03110364
           WRITE (NUVI, 80002) IVTNUM                                   03120364
           GO TO 0131                                                   03130364
20130      IVFAIL = IVFAIL + 1                                          03140364
           RVCORR = 0.0                                                 03150364
           WRITE (NUVI, 80012) IVTNUM, RKCVS, RVCORR                    03160364
 0131      CONTINUE                                                     03170364
CT014*  TEST 14                                                         03180364
        IVTNUM = 14                                                     03190364
        IKAVI = 2                                                       03200364
        RKBVS = 4.5                                                     03210364
        RKDVS = 3.5                                                     03220364
        RKEVS = 2.5                                                     03230364
        RKFVS = 1.5                                                     03240364
        IKBVI = 5                                                       03250364
        IKCVI = 2                                                       03260364
        RKAVS = (FLOAT(MAX1(RKBVS, RKDVS)) ** (AMIN1(RKEVS, RKDVS) -    03270364
     1  IKAVI) + AMIN0(IKBVI, IKCVI)) / MIN1(RKFVS, RKEVS)              03280364
        RKCVS = RKAVS - 4.0                                             03290364
           IF (RKCVS + .00005) 20140, 10140, 40140                      03300364
40140      IF (RKCVS - .00005) 10140, 10140, 20140                      03310364
10140      IVPASS = IVPASS + 1                                          03320364
           WRITE (NUVI, 80002) IVTNUM                                   03330364
           GO TO 0141                                                   03340364
20140      IVFAIL = IVFAIL + 1                                          03350364
           RVCORR = 0.0                                                 03360364
           WRITE (NUVI, 80012) IVTNUM, RKCVS, RVCORR                    03370364
 0141      CONTINUE                                                     03380364
C*****                                                                  03390364
CBB** ********************** BBCSUM0  **********************************03400364
C**** WRITE OUT TEST SUMMARY                                            03410364
C****                                                                   03420364
      IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP                        03430364
      WRITE (I02, 90004)                                                03440364
      WRITE (I02, 90014)                                                03450364
      WRITE (I02, 90004)                                                03460364
      WRITE (I02, 90020) IVPASS                                         03470364
      WRITE (I02, 90022) IVFAIL                                         03480364
      WRITE (I02, 90024) IVDELE                                         03490364
      WRITE (I02, 90026) IVINSP                                         03500364
      WRITE (I02, 90028) IVTOTN, IVTOTL                                 03510364
CBE** ********************** BBCSUM0  **********************************03520364
CBB** ********************** BBCFOOT0 **********************************03530364
C**** WRITE OUT REPORT FOOTINGS                                         03540364
C****                                                                   03550364
      WRITE (I02,90016) ZPROG, ZPROG                                    03560364
      WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED                     03570364
      WRITE (I02,90019)                                                 03580364
CBE** ********************** BBCFOOT0 **********************************03590364
CBB** ********************** BBCFMT0A **********************************03600364
C**** FORMATS FOR TEST DETAIL LINES                                     03610364
C****                                                                   03620364
80000 FORMAT (" ",2X,I3,4X,"DELETED",32X,A31)                           03630364
80002 FORMAT (" ",2X,I3,4X," PASS  ",32X,A31)                           03640364
80004 FORMAT (" ",2X,I3,4X,"INSPECT",32X,A31)                           03650364
80008 FORMAT (" ",2X,I3,4X," FAIL  ",32X,A31)                           03660364
80010 FORMAT (" ",2X,I3,4X," FAIL  ",/," ",15X,"COMPUTED= " ,           03670364
     1I6,/," ",15X,"CORRECT=  " ,I6)                                    03680364
80012 FORMAT (" ",2X,I3,4X," FAIL  ",/," ",16X,"COMPUTED= " ,           03690364
     1E12.5,/," ",16X,"CORRECT=  " ,E12.5)                              03700364
80018 FORMAT (" ",2X,I3,4X," FAIL  ",/," ",16X,"COMPUTED= " ,           03710364
     1A21,/," ",16X,"CORRECT=  " ,A21)                                  03720364
80020 FORMAT (" ",16X,"COMPUTED= " ,A21,1X,A31)                         03730364
80022 FORMAT (" ",16X,"CORRECT=  " ,A21,1X,A31)                         03740364
80024 FORMAT (" ",16X,"COMPUTED= " ,I6,16X,A31)                         03750364
80026 FORMAT (" ",16X,"CORRECT=  " ,I6,16X,A31)                         03760364
80028 FORMAT (" ",16X,"COMPUTED= " ,E12.5,10X,A31)                      03770364
80030 FORMAT (" ",16X,"CORRECT=  " ,E12.5,10X,A31)                      03780364
80050 FORMAT (" ",48X,A31)                                              03790364
CBE** ********************** BBCFMT0A **********************************03800364
CBB** ********************** BBCFMT0B **********************************03810364
C**** FORMAT STATEMENTS FOR PAGE HEADERS                                03820364
C****                                                                   03830364
90002 FORMAT ("1")                                                      03840364
90004 FORMAT (" ")                                                      03850364
90006 FORMAT (" ",20X,"NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY" )03860364
90007 FORMAT (" ",19X,"FORTRAN COMPILER VALIDATION SYSTEM" )            03870364
90008 FORMAT (" ",21X,A13,A17)                                          03880364
90009 FORMAT (" ",/," *",A5,"BEGIN*",12X,"TEST RESULTS - " ,A5,/)       03890364
90010 FORMAT (" ",8X,"TEST DATE*TIME= " ,A17,"  -  COMPILER= " ,A20)    03900364
90013 FORMAT (" "," TEST   ","PASS/FAIL " ,6X,"DISPLAYED RESULTS" ,     03910364
     1       7X,"REMARKS",24X)                                          03920364
90014 FORMAT (" ","----------------------------------------------" ,    03930364
     1        "---------------------------------" )                     03940364
90015 FORMAT (" ",48X,"THIS PROGRAM HAS " ,I3," TESTS",/)               03950364
C****                                                                   03960364
C**** FORMAT STATEMENTS FOR REPORT FOOTINGS                             03970364
C****                                                                   03980364
90016 FORMAT (" ",/," *",A5,"END*",14X,"END OF TEST - " ,A5,/)          03990364
90018 FORMAT (" ",A13,13X,A20,"   *   ",A10,"/",                        04000364
     1        A13)                                                      04010364
90019 FORMAT (" ","FOR OFFICIAL USE ONLY     " ,35X,"COPYRIGHT  1982" ) 04020364
C****                                                                   04030364
C**** FORMAT STATEMENTS FOR RUN SUMMARY                                 04040364
C****                                                                   04050364
90020 FORMAT (" ",21X,I5," TESTS PASSED" )                              04060364
90022 FORMAT (" ",21X,I5," TESTS FAILED" )                              04070364
90024 FORMAT (" ",21X,I5," TESTS DELETED" )                             04080364
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" )                  04090364
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" )                  04100364
CBE** ********************** BBCFMT0B **********************************04110364
C*****                                                                  04120364
C*****    END OF TEST SEGMENT 172                                       04130364
        STOP                                                            04140364
        END                                                             04150364