FM915.f Source File


Contents

Source Code


Source Code

      PROGRAM FM915

C***********************************************************************00010915
C*****  FORTRAN 77                                                      00020915
C*****   FM915                                                          00030915
C*****                       INQU2 - (431)                              00040915
C*****                                                                  00050915
C***********************************************************************00060915
C*****  GENERAL PURPOSE                                         ANS REF 00070915
C*****    TEST INQUIRE ON SEQUENTIAL, UNFORMATTED FILES         12.10.3 00080915
C*****                                                                  00090915
C*****    THE TESTS IN THIS UNIT ARE ONLY PERFORMED ON A                00100915
C*****    UNIT THAT IS CONNECTED FOR SEQUENTIAL, UNFORMATTED ACCESS     00110915
C*****    (ANS REF. 12.2.4.1 AND 12.9.5.1)                              00120915
C*****    THIS TEST PERFORMS AN EXPLICIT OPEN, AND PERFORMS             00130915
C*****    A CLOSE WITH STATUS='DELETE' AT THE END OF THE SEGMENT.       00140915
C*****    THE SEGMENT TESTS THAT INQUIRE IS PERFORMED CORRECTLY         00150915
C*****    BEFORE READING OR WRITING TO A FILE, AFTER WRITING TO A FILE  00160915
C*****    AND AFTER READING FROM A FILE.                                00170915
C***********************************************************************00180915
CBB** ********************** BBCCOMNT **********************************00190915
C****                                                                   00200915
C****            1978 FORTRAN COMPILER VALIDATION SYSTEM                00210915
C****                          VERSION 2.1                              00220915
C****                                                                   00230915
C****                                                                   00240915
C****           SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO         00250915
C****          NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY           00260915
C****               SOFTWARE STANDARDS VALIDATION GROUP                 00270915
C****                      BUILDING 225  RM A266                        00280915
C****                     GAITHERSBURG, MD  20899                       00290915
C****                                                                   00300915
C****                                                                   00310915
C****                                                                   00320915
CBE** ********************** BBCCOMNT **********************************00330915
        LOGICAL AVB, BVB                                                00340915
        CHARACTER*10 B10VK, C10VK, E11VK*11, G10VK                      00350915
C*****                                                                  00360915
CBB** ********************** BBCINITA **********************************00370915
C**** SPECIFICATION STATEMENTS                                          00380915
C****                                                                   00390915
      CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20,      00400915
     1          ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13      00410915
CBE** ********************** BBCINITA **********************************00420915
CBB** ********************** BBCINITB **********************************00430915
C**** INITIALIZE SECTION                                                00440915
      DATA  ZVERS,                  ZVERSD,             ZDATE           00450915
     1      /'VERSION 2.1  ',  '93/10/21*21.02.00',  '*NO DATE*TIME'/   00460915
      DATA       ZCOMPL,             ZNAME,             ZTAPE           00470915
     1      /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/      00480915
      DATA       ZPROJ,           ZTAPED,         ZPROG                 00490915
     1      /'*NO PROJECT*',   '*NO TAPE DATE',  'XXXXX'/               00500915
      DATA   REMRKS /'                               '/                 00510915
C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED   00520915
C**** FOR IDENTIFYING THE TEST ENVIRONMENT                              00530915
C****                                                                   00540915
CZ01  ZVERS  = 'VERSION OF THE COMPILER VALIDATION SYSTEM'              00550915
CZ02  ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM'   00560915
CZ03  ZPROG  = 'PROGRAM NAME'                                           00570915
CZ04  ZDATE  = 'DATE OF TEST'                                           00580915
CZ05  ZCOMPL = 'COMPILER IDENTIFICATION'                                00590915
CZ06  ZPROJ  = 'PROJECT NUMBER/IDENTIFICATION'                          00600915
CZ07  ZNAME  = 'NAME OF USER'                                           00610915
CZ08  ZTAPE  = 'TAPE OWNER/ID'                                          00620915
CZ09  ZTAPED = 'DATE TAPE COPIED'                                       00630915
C                                                                       00640915
      IVPASS = 0                                                        00650915
      IVFAIL = 0                                                        00660915
      IVDELE = 0                                                        00670915
      IVINSP = 0                                                        00680915
      IVTOTL = 0                                                        00690915
      IVTOTN = 0                                                        00700915
      ICZERO = 0                                                        00710915
C                                                                       00720915
C     I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER.         00730915
      I01 = 05                                                          00740915
C     I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER.             00750915
      I02 = 06                                                          00760915
C                                                                       00770915
CX010   REPLACED BY FEXEC X-010 CONTROL CARD (CARD-READER UNIT NUMBER). 00780915
C     THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5      00790915
CX011   REPLACED BY FEXEC X-011 CONTROL CARD.  CX011 IS FOR SYSTEMS     00800915
C     REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010.  00810915
C                                                                       00820915
CX020   REPLACED BY FEXEC X-020 CONTROL CARD (PRINTER UNIT NUMBER).     00830915
C     THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6       00840915
CX021   REPLACED BY FEXEC X-021 CONTROL CARD.  CX021 IS FOR SYSTEMS     00850915
C     REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020.  00860915
C                                                                       00870915
CBE** ********************** BBCINITB **********************************00880915
C*****                                                                  00890915
C*****    THE FOLLOWING STATEMENT MUST BE CHANGED IF                    00900915
C*****    THE UNIT GIVEN IS NOT CAPABLE OF BEING OPENED AS A            00910915
C*****    SEQUENTIAL, UNFORMATTED FILE.                                 00920915
C     I05 CONTAINS THE UNIT NUMBER FOR A SEQUENTIAL UNFORMATTED FILE.   00930915
      I05 = 14                                                          00940915
CX050   REPLACED BY FEXEC X-050 CONTROL CARD (SEQ. FILE UNIT NUMBER).   00950915
C     SPECIFYING I05 = NN OVERRIDES THE DEFAULT I05 = 14.               00960915
C*****                                                                  00970915
      NUVI = I02                                                        00980915
      IMVI = I05                                                        00990915
      ZPROG = 'FM915'                                                   01000915
      IVTOTL = 3                                                        01010915
CBB** ********************** BBCHED0A **********************************01020915
C****                                                                   01030915
C**** WRITE REPORT TITLE                                                01040915
C****                                                                   01050915
      WRITE (I02, 90002)                                                01060915
      WRITE (I02, 90006)                                                01070915
      WRITE (I02, 90007)                                                01080915
      WRITE (I02, 90008)  ZVERS, ZVERSD                                 01090915
      WRITE (I02, 90009)  ZPROG, ZPROG                                  01100915
      WRITE (I02, 90010)  ZDATE, ZCOMPL                                 01110915
CBE** ********************** BBCHED0A **********************************01120915
C*****                                                                  01130915
        WRITE(NUVI,43100)                                               01140915
43100   FORMAT(" ", / " INQU2 - (431) INQUIRE BY UNIT" //               01150915
     1         " SEQUENTIAL UNFORMATTED FILE, CONNECTED BY OPEN" //     01160915
     2         " ANS REF. - 12.10.3" )                                  01170915
CBB** ********************** BBCHED0B **********************************01180915
C**** WRITE DETAIL REPORT HEADERS                                       01190915
C****                                                                   01200915
      WRITE (I02,90004)                                                 01210915
      WRITE (I02,90004)                                                 01220915
      WRITE (I02,90013)                                                 01230915
      WRITE (I02,90014)                                                 01240915
      WRITE (I02,90015) IVTOTL                                          01250915
CBE** ********************** BBCHED0B **********************************01260915
C*****                                                                  01270915
C*****    OPEN FILE                                                     01280915
C*****                                                                  01290915
        OPEN(UNIT=IMVI, ACCESS='SEQUENTIAL', FORM='UNFORMATTED')        01300915
CT001*  TEST 1 - FIRST INQUIRE (AFTER OPEN)                             01310915
           IVTNUM = 1                                                   01320915
        INQUIRE(UNIT=IMVI, EXIST=AVB, OPENED=BVB, NUMBER=JVI,           01330915
     1          ACCESS=B10VK, SEQUENTIAL=C10VK, FORM=E11VK,             01340915
     2          UNFORMATTED=G10VK, ERR=20014, IOSTAT=KVI)               01350915
C*****                                                                  01360915
        IF (KVI .NE. 0) GO TO 20010                                     01370915
        IF (.NOT. AVB) GO TO 20010                                      01380915
        IF (.NOT. BVB) GO TO 20010                                      01390915
        IF (JVI .NE. IMVI) GO TO 20010                                  01400915
        IF (B10VK .NE. 'SEQUENTIAL') GO TO 20010                        01410915
        IF (C10VK. NE. 'YES') GO TO 20010                               01420915
        IF (E11VK .NE. 'UNFORMATTED') GO TO 20010                       01430915
        IF (G10VK .NE. 'YES' ) GO TO 20010                              01440915
           WRITE (NUVI, 80002) IVTNUM                                   01450915
           IVPASS = IVPASS + 1                                          01460915
           GO TO 0011                                                   01470915
20014      CONTINUE                                                     01480915
           WRITE (NUVI, 20015) IVTNUM                                   01490915
20015      FORMAT (" ",2X,I3,4X," FAIL",12X,                            01500915
     1     "ERROR IN EXECUTION OF INQUIRE STATEMENT (ERR=)" /)          01510915
           GO TO 20016                                                  01520915
20010      CONTINUE                                                     01530915
           WRITE (NUVI, 20011) IVTNUM                                   01540915
20011      FORMAT(" ",2X,I3,4X," FAIL",12X,                             01550915
     1     "ERROR IN AN INQUIRE SPECIFIER" /)                           01560915
20016      IVFAIL = IVFAIL + 1                                          01570915
           WRITE (NUVI, 20012) KVI,AVB,BVB,JVI,B10VK,C10VK,E11VK,       01580915
     1                         G10VK                                    01590915
20012      FORMAT (" ",16X,"COMPUTED: " ,"IOSTAT=",I1,", EXIST=",L1,    01600915
     1             " ,OPENED=",L1,", NUMBER=",I4,","/                   01610915
     2             " ",26X,"ACCESS=",A10,", SEQUENTIAL=" ,A3,", FORM=", 01620915
     3             A11,","/" ",26X,"UNFORMATTED=" ,A3)                  01630915
           WRITE (NUVI, 20013) IMVI                                     01640915
20013      FORMAT (" ",16X,"CORRECT:  " ,"IOSTAT=0, EXIST=T, " ,        01650915
     1             "OPENED=T, NUMBER=" ,I4,","/                         01660915
     2             " ",26X,"ACCESS=SEQUENTIAL, SEQUENTIAL=YES, FORM=" , 01670915
     3             "UNFORMATTED," /" ",26X,"UNFORMATTED=YES" )          01680915
 0011   CONTINUE                                                        01690915
C*****                                                                  01700915
C*****    WRITE TO FILE                                                 01710915
C*****                                                                  01720915
        WRITE(IMVI) JVI                                                 01730915
CT002*  TEST 2 - SECOND INQUIRE (AFTER WRITE)                           01740915
           IVTNUM = 2                                                   01750915
        INQUIRE(UNIT=IMVI, EXIST=AVB, OPENED=BVB, NUMBER=JVI,           01760915
     1          ACCESS=B10VK, SEQUENTIAL=C10VK, FORM=E11VK,             01770915
     2          UNFORMATTED=G10VK, ERR=20024, IOSTAT=KVI)               01780915
C*****                                                                  01790915
        IF (KVI .NE. 0) GO TO 20020                                     01800915
        IF (.NOT. AVB) GO TO 20020                                      01810915
        IF (.NOT. BVB) GO TO 20020                                      01820915
        IF (JVI .NE. IMVI) GO TO 20020                                  01830915
        IF (B10VK .NE. 'SEQUENTIAL') GO TO 20020                        01840915
        IF (C10VK.NE. 'YES') GO TO 20020                                01850915
        IF (E11VK .NE. 'UNFORMATTED') GO TO 20020                       01860915
        IF (G10VK .NE. 'YES' ) GO TO 20020                              01870915
           WRITE (NUVI, 80002) IVTNUM                                   01880915
           IVPASS = IVPASS + 1                                          01890915
           GO TO 0021                                                   01900915
20024      CONTINUE                                                     01910915
           WRITE (NUVI, 20025) IVTNUM                                   01920915
20025      FORMAT (" ",2X,I3,4X," FAIL",12X,                            01930915
     1     "ERROR IN EXECUTION OF INQUIRE STATEMENT (ERR=)" /)          01940915
           GO TO 20026                                                  01950915
20020      CONTINUE                                                     01960915
           WRITE (NUVI, 20021) IVTNUM                                   01970915
20021      FORMAT(" ",2X,I3,4X," FAIL",12X,                             01980915
     1     "ERROR IN AN INQUIRE SPECIFIER" /)                           01990915
20026      IVFAIL = IVFAIL + 1                                          02000915
           WRITE (NUVI, 20022) KVI,AVB,BVB,JVI,B10VK,C10VK,E11VK,       02010915
     1                         G10VK                                    02020915
20022      FORMAT (" ",16X,"COMPUTED: " ,"IOSTAT=",I1,", EXIST=",L1,    02030915
     1             " ,OPENED=",L1,", NUMBER=",I4,","/                   02040915
     2             " ",26X,"ACCESS=",A10,", SEQUENTIAL=" ,A3,", FORM=", 02050915
     3             A11,","/" ",26X,"UNFORMATTED=" ,A3)                  02060915
           WRITE (NUVI, 20023) IMVI                                     02070915
20023      FORMAT (" ",16X,"CORRECT:  " ,"IOSTAT=0, EXIST=T, " ,        02080915
     1             "OPENED=T, NUMBER=" ,I4,","/                         02090915
     2             " ",26X,"ACCESS=SEQUENTIAL, SEQUENTIAL=YES, FORM=" , 02100915
     3             "UNFORMATTED," /" ",26X,"UNFORMATTED=YES" )          02110915
 0021   CONTINUE                                                        02120915
C*****                                                                  02130915
C*****  REWIND AND READ FILE                                            02140915
        REWIND IMVI                                                     02150915
        READ(IMVI) JVI                                                  02160915
        REWIND IMVI                                                     02170915
C*****                                                                  02180915
CT003*  TEST 3 - THIRD INQUIRE (AFTER READ)                             02190915
           IVTNUM = 3                                                   02200915
        INQUIRE(UNIT=IMVI, EXIST=AVB, OPENED=BVB, NUMBER=JVI,           02210915
     1          ACCESS=B10VK, SEQUENTIAL=C10VK, FORM=E11VK,             02220915
     2          UNFORMATTED=G10VK, ERR=20034,IOSTAT=KVI)                02230915
C*****                                                                  02240915
        IF (KVI .NE. 0) GO TO 20030                                     02250915
        IF (.NOT. AVB) GO TO 20030                                      02260915
        IF (.NOT. BVB) GO TO 20030                                      02270915
        IF (JVI .NE. IMVI) GO TO 20030                                  02280915
        IF (B10VK .NE. 'SEQUENTIAL') GO TO 20030                        02290915
        IF (C10VK .NE. 'YES') GO TO 20030                               02300915
        IF (E11VK .NE. 'UNFORMATTED') GO TO 20030                       02310915
        IF (G10VK .NE. 'YES' ) GO TO 20030                              02320915
           WRITE (NUVI, 80002) IVTNUM                                   02330915
           IVPASS = IVPASS + 1                                          02340915
           GO TO 0031                                                   02350915
20034      CONTINUE                                                     02360915
           WRITE (NUVI, 20035) IVTNUM                                   02370915
20035      FORMAT (" ",2X,I3,4X," FAIL",12X,                            02380915
     1     "ERROR IN EXECUTION OF INQUIRE STATEMENT (ERR=)" /)          02390915
           GO TO 20036                                                  02400915
20030      CONTINUE                                                     02410915
           WRITE (NUVI, 20031) IVTNUM                                   02420915
20031      FORMAT(" ",2X,I3,4X," FAIL",12X,                             02430915
     1     "ERROR IN AN INQUIRE SPECIFIER" /)                           02440915
20036      IVFAIL = IVFAIL + 1                                          02450915
           WRITE (NUVI, 20032) KVI,AVB,BVB,JVI,B10VK,C10VK,E11VK,       02460915
     1                         G10VK                                    02470915
20032      FORMAT (" ",16X,"COMPUTED: " ,"IOSTAT=",I1,", EXIST=",L1,    02480915
     1             " ,OPENED=",L1,", NUMBER=",I4,","/                   02490915
     2             " ",26X,"ACCESS=",A10,", SEQUENTIAL=" ,A3,", FORM=", 02500915
     3             A11,","/" ",26X,"UNFORMATTED=" ,A3)                  02510915
           WRITE (NUVI, 20033) IMVI                                     02520915
20033      FORMAT (" ",16X,"CORRECT:  " ,"IOSTAT=0, EXIST=T, " ,        02530915
     1             "OPENED=T, NUMBER=" ,I4,","/                         02540915
     2             " ",26X,"ACCESS=SEQUENTIAL, SEQUENTIAL=YES, FORM=" , 02550915
     3             "UNFORMATTED," /" ",26X,"UNFORMATTED=YES" )          02560915
 0031   CONTINUE                                                        02570915
        CLOSE(UNIT=IMVI, STATUS='DELETE')                               02580915
C*****                                                                  02590915
CBB** ********************** BBCSUM0  **********************************02600915
C**** WRITE OUT TEST SUMMARY                                            02610915
C****                                                                   02620915
      IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP                        02630915
      WRITE (I02, 90004)                                                02640915
      WRITE (I02, 90014)                                                02650915
      WRITE (I02, 90004)                                                02660915
      WRITE (I02, 90020) IVPASS                                         02670915
      WRITE (I02, 90022) IVFAIL                                         02680915
      WRITE (I02, 90024) IVDELE                                         02690915
      WRITE (I02, 90026) IVINSP                                         02700915
      WRITE (I02, 90028) IVTOTN, IVTOTL                                 02710915
CBE** ********************** BBCSUM0  **********************************02720915
CBB** ********************** BBCFOOT0 **********************************02730915
C**** WRITE OUT REPORT FOOTINGS                                         02740915
C****                                                                   02750915
      WRITE (I02,90016) ZPROG, ZPROG                                    02760915
      WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED                     02770915
      WRITE (I02,90019)                                                 02780915
CBE** ********************** BBCFOOT0 **********************************02790915
CBB** ********************** BBCFMT0A **********************************02800915
C**** FORMATS FOR TEST DETAIL LINES                                     02810915
C****                                                                   02820915
80000 FORMAT (" ",2X,I3,4X,"DELETED",32X,A31)                           02830915
80002 FORMAT (" ",2X,I3,4X," PASS  ",32X,A31)                           02840915
80004 FORMAT (" ",2X,I3,4X,"INSPECT",32X,A31)                           02850915
80008 FORMAT (" ",2X,I3,4X," FAIL  ",32X,A31)                           02860915
80010 FORMAT (" ",2X,I3,4X," FAIL  ",/," ",15X,"COMPUTED= " ,           02870915
     1I6,/," ",15X,"CORRECT=  " ,I6)                                    02880915
80012 FORMAT (" ",2X,I3,4X," FAIL  ",/," ",16X,"COMPUTED= " ,           02890915
     1E12.5,/," ",16X,"CORRECT=  " ,E12.5)                              02900915
80018 FORMAT (" ",2X,I3,4X," FAIL  ",/," ",16X,"COMPUTED= " ,           02910915
     1A21,/," ",16X,"CORRECT=  " ,A21)                                  02920915
80020 FORMAT (" ",16X,"COMPUTED= " ,A21,1X,A31)                         02930915
80022 FORMAT (" ",16X,"CORRECT=  " ,A21,1X,A31)                         02940915
80024 FORMAT (" ",16X,"COMPUTED= " ,I6,16X,A31)                         02950915
80026 FORMAT (" ",16X,"CORRECT=  " ,I6,16X,A31)                         02960915
80028 FORMAT (" ",16X,"COMPUTED= " ,E12.5,10X,A31)                      02970915
80030 FORMAT (" ",16X,"CORRECT=  " ,E12.5,10X,A31)                      02980915
80050 FORMAT (" ",48X,A31)                                              02990915
CBE** ********************** BBCFMT0A **********************************03000915
CBB** ********************** BBCFMAT1 **********************************03010915
C**** FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE                     03020915
C****                                                                   03030915
80031 FORMAT (" ",2X,I3,4X," FAIL  ",/," ",16X,"COMPUTED= " ,           03040915
     1D17.10,/," ",16X,"CORRECT=  " ,D17.10)                            03050915
80033 FORMAT (" ",16X,"COMPUTED= " ,D17.10,10X,A31)                     03060915
80035 FORMAT (" ",16X,"CORRECT=  " ,D17.10,10X,A31)                     03070915
80037 FORMAT (" ",16X,"COMPUTED= " ,"(",E12.5,", ",E12.5,")",6X,A31)    03080915
80039 FORMAT (" ",16X,"CORRECT=  " ,"(",E12.5,", ",E12.5,")",6X,A31)    03090915
80041 FORMAT (" ",16X,"COMPUTED= " ,"(",F12.5,", ",F12.5,")",6X,A31)    03100915
80043 FORMAT (" ",16X,"CORRECT=  " ,"(",F12.5,", ",F12.5,")",6X,A31)    03110915
80045 FORMAT (" ",2X,I3,4X," FAIL  ",/," ",16X,"COMPUTED= " ,           03120915
     1"(",F12.5,", ",F12.5,")"/," ",16X,"CORRECT=  " ,                  03130915
     2"(",F12.5,", ",F12.5,")")                                         03140915
CBE** ********************** BBCFMAT1 **********************************03150915
CBB** ********************** BBCFMT0B **********************************03160915
C**** FORMAT STATEMENTS FOR PAGE HEADERS                                03170915
C****                                                                   03180915
90002 FORMAT ("1")                                                      03190915
90004 FORMAT (" ")                                                      03200915
90006 FORMAT (" ",20X,"NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY" )03210915
90007 FORMAT (" ",19X,"FORTRAN COMPILER VALIDATION SYSTEM" )            03220915
90008 FORMAT (" ",21X,A13,A17)                                          03230915
90009 FORMAT (" ",/," *",A5,"BEGIN*",12X,"TEST RESULTS - " ,A5,/)       03240915
90010 FORMAT (" ",8X,"TEST DATE*TIME= " ,A17,"  -  COMPILER= " ,A20)    03250915
90013 FORMAT (" "," TEST   ","PASS/FAIL " ,6X,"DISPLAYED RESULTS" ,     03260915
     1       7X,"REMARKS",24X)                                          03270915
90014 FORMAT (" ","----------------------------------------------" ,    03280915
     1        "---------------------------------" )                     03290915
90015 FORMAT (" ",48X,"THIS PROGRAM HAS " ,I3," TESTS",/)               03300915
C****                                                                   03310915
C**** FORMAT STATEMENTS FOR REPORT FOOTINGS                             03320915
C****                                                                   03330915
90016 FORMAT (" ",/," *",A5,"END*",14X,"END OF TEST - " ,A5,/)          03340915
90018 FORMAT (" ",A13,13X,A20,"   *   ",A10,"/",                        03350915
     1        A13)                                                      03360915
90019 FORMAT (" ","FOR OFFICIAL USE ONLY     " ,35X,"COPYRIGHT  1982" ) 03370915
C****                                                                   03380915
C**** FORMAT STATEMENTS FOR RUN SUMMARY                                 03390915
C****                                                                   03400915
90020 FORMAT (" ",21X,I5," TESTS PASSED" )                              03410915
90022 FORMAT (" ",21X,I5," TESTS FAILED" )                              03420915
90024 FORMAT (" ",21X,I5," TESTS DELETED" )                             03430915
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" )                  03440915
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" )                  03450915
CBE** ********************** BBCFMT0B **********************************03460915
C*****                                                                  03470915
C*****    END OF TEST SEGMENT 431                                       03480915
        STOP                                                            03490915
        END                                                             03500915