FM923.f Source File


Contents

Source Code


Source Code

      PROGRAM FM923

C***********************************************************************00010923
C*****  FORTRAN 77                                                      00020923
C*****   FM923                                                          00030923
C*****                       LSTDI1 - (370)                             00040923
C*****                                                                  00050923
C***********************************************************************00060923
C*****  GENERAL PURPOSE                                         ANS REF 00070923
C*****    TEST LIST DIRECTED INPUT ON                           13.6    00080923
C*****    INTEGER REAL, LOGICAL, AND CHARACTER DATA TYPES.      12.4    00090923
C*****                                                                  00100923
CBB** ********************** BBCCOMNT **********************************00110923
C****                                                                   00120923
C****            1978 FORTRAN COMPILER VALIDATION SYSTEM                00130923
C****                          VERSION 2.1                              00140923
C****                                                                   00150923
C****                                                                   00160923
C****           SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO         00170923
C****          NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY           00180923
C****               SOFTWARE STANDARDS VALIDATION GROUP                 00190923
C****                      BUILDING 225  RM A266                        00200923
C****                     GAITHERSBURG, MD  20899                       00210923
C****                                                                   00220923
C****                                                                   00230923
C****                                                                   00240923
CBE** ********************** BBCCOMNT **********************************00250923
C  INPUT DATA TO THIS SEGMENT CONSISTS OF 34 CARD IMAGES IN COL. 1-80   00260923
COL.      1----------------------------------------------------------61 00270923
CARD 1    25                                                            00280923
CARD 2    10.75                                                         00290923
CARD 3    12.875E01                                                     00300923
CARD 4    T                                                             00310923
CARD 5    'ABCDEF'                                                      00320923
CARD 6    10 15 22 40                                                   00330923
CARD 7    100.5 0.25E-1 -1.625E2                                        00340923
CARD 8    T F F T F                                                     00350923
CARD 9    'AB' 'ABCD' 'ABCDEF'                                          00360923
CARD 10   '123456' T 17.5 -11 2.5E0                                     00370923
CARD 11   -5,'2468',T,15.0                                              00380923
CARD 12   F    'CHAR' -1                0.25                            00390923
CARD 13   5 10 15                                                       00400923
CARD 14   -1.25E1  F  T  -6   '-6'                                      00410923
CARD 15   F 'ZYXW' 'DCBA'  15.5                                         00420923
CARD 16   'ONE ',,3,F                                                   00430923
CARD 17   'TWO ', 2, , 2.0                                              00440923
CARD 18   ,4, 1*, 8, ,, 14                                              00450923
CARD 19   5, -0.25E1, 4*, 'TEST', F                                     00460923
CARD 20   1 2 3 4 5                                                     00470923
CARD 21   6 7 8/ 9 10                                                   00480923
CARD 22   12045,12 45                                                   00490923
CARD 23   12045                                                         00500923
COL.    62---------------80                                             00510923
CARD 23                  12                                             00520923
COL.      1----------------------------------------------------------61 00530923
CARD 24   45                                                            00540923
CARD 25   'CAN''T, AND/OR   WON''T'                                     00600923
CARD 26   '1234567890' '12345678' '1234567890123'                       00610923
CARD 27   TRUCK .FOUR .FALSE. .TWIN. F12. F7.2 .TRUE. .T=3+4            00620923
CARD 28   T T T T T                                                     00630923
CARD 29   F F/F F F                                                     00640923
CARD 30   / 10 20 30                                                    00650923
CARD 31   1 2 3 4                                                       00660923
CARD 32   5 6 7 8                                                       00670923
C*****                                                                  00680923
C*****  S P E C I F I C A T I O N S  SEGMENT 370                        00690923
        INTEGER J1I(3)                                                  00700923
        LOGICAL AVB, BVB, CVB, DVB, EVB, FVB, GVB, HVB                  00710923
        CHARACTER A2VK*2, A4VK*4, B4VK*4, A6VK*6, B6VK*6                00720923
        CHARACTER A8VK*8, A9VK*9, A15VK*15, A21VK*21                    00730923
        CHARACTER CVNX06*6, CVNY06*6, CVNX21*21                         00740923
C*****                                                                  00750923
CBB** ********************** BBCINITA **********************************00760923
C**** SPECIFICATION STATEMENTS                                          00770923
C****                                                                   00780923
      CHARACTER ZVERS*13, ZVERSD*17, ZDATE*17, ZPROG*5, ZCOMPL*20,      00790923
     1          ZNAME*20, ZTAPE*10, ZPROJ*13, REMRKS*31, ZTAPED*13      00800923
CBE** ********************** BBCINITA **********************************00810923
CBB** ********************** BBCINITB **********************************00820923
C**** INITIALIZE SECTION                                                00830923
      DATA  ZVERS,                  ZVERSD,             ZDATE           00840923
     1      /'VERSION 2.1  ',  '93/10/21*21.02.00',  '*NO DATE*TIME'/   00850923
      DATA       ZCOMPL,             ZNAME,             ZTAPE           00860923
     1      /'*NONE SPECIFIED*', '*NO COMPANY NAME*', '*NO TAPE*'/      00870923
      DATA       ZPROJ,           ZTAPED,         ZPROG                 00880923
     1      /'*NO PROJECT*',   '*NO TAPE DATE',  'XXXXX'/               00890923
      DATA   REMRKS /'                               '/                 00900923
C**** THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED   00910923
C**** FOR IDENTIFYING THE TEST ENVIRONMENT                              00920923
C****                                                                   00930923
CZ01  ZVERS  = 'VERSION OF THE COMPILER VALIDATION SYSTEM'              00940923
CZ02  ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM'   00950923
CZ03  ZPROG  = 'PROGRAM NAME'                                           00960923
CZ04  ZDATE  = 'DATE OF TEST'                                           00970923
CZ05  ZCOMPL = 'COMPILER IDENTIFICATION'                                00980923
CZ06  ZPROJ  = 'PROJECT NUMBER/IDENTIFICATION'                          00990923
CZ07  ZNAME  = 'NAME OF USER'                                           01000923
CZ08  ZTAPE  = 'TAPE OWNER/ID'                                          01010923
CZ09  ZTAPED = 'DATE TAPE COPIED'                                       01020923
C                                                                       01030923
      IVPASS = 0                                                        01040923
      IVFAIL = 0                                                        01050923
      IVDELE = 0                                                        01060923
      IVINSP = 0                                                        01070923
      IVTOTL = 0                                                        01080923
      IVTOTN = 0                                                        01090923
      ICZERO = 0                                                        01100923
C                                                                       01110923
C     I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER.         01120923
      I01 = 05                                                          01130923
C     I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER.             01140923
      I02 = 06                                                          01150923
C                                                                       01160923
CX010   REPLACED BY FEXEC X-010 CONTROL CARD (CARD-READER UNIT NUMBER). 01170923
C     THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5      01180923
CX011   REPLACED BY FEXEC X-011 CONTROL CARD.  CX011 IS FOR SYSTEMS     01190923
C     REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX010.  01200923
C                                                                       01210923
CX020   REPLACED BY FEXEC X-020 CONTROL CARD (PRINTER UNIT NUMBER).     01220923
C     THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02= 6       01230923
CX021   REPLACED BY FEXEC X-021 CONTROL CARD.  CX021 IS FOR SYSTEMS     01240923
C     REQUIRING ADDITIONAL STATEMENTS FOR FILES ASSOCIATED WITH CX020.  01250923
C                                                                       01260923
CBE** ********************** BBCINITB **********************************01270923
      IRVI = I01                                                        01280923
      NUVI = I02                                                        01290923
      ZPROG = 'FM923'                                                   01300923
      IVTOTL = 27                                                       01310923
CBB** ********************** BBCHED0A **********************************01320923
C****                                                                   01330923
C**** WRITE REPORT TITLE                                                01340923
C****                                                                   01350923
      WRITE (I02, 90002)                                                01360923
      WRITE (I02, 90006)                                                01370923
      WRITE (I02, 90007)                                                01380923
      WRITE (I02, 90008)  ZVERS, ZVERSD                                 01390923
      WRITE (I02, 90009)  ZPROG, ZPROG                                  01400923
      WRITE (I02, 90010)  ZDATE, ZCOMPL                                 01410923
CBE** ********************** BBCHED0A **********************************01420923
C*****                                                                  01430923
C*****  REAL NUMBER APPROXIMATION CRITERIA                              01440923
        DVS = 0.0001                                                    01450923
        IVCORR=0                                                        01460923
        RVCORR=0                                                        01470923
C*****                                                                  01480923
C*****  HEADING FOR SEGMENT 370                                         01490923
        WRITE(NUVI,37000)                                               01500923
37000   FORMAT(/2X, " LSTDI1 - (370) " ,                                01510923
     1         " LIST DIRECTED INPUT FOR SUBSET DATA TYPES" //          01520923
     2      3X," ANS REF. - 13.6  12.4" )                               01530923
CBB** ********************** BBCHED0B **********************************01540923
C**** WRITE DETAIL REPORT HEADERS                                       01550923
C****                                                                   01560923
      WRITE (I02,90004)                                                 01570923
      WRITE (I02,90004)                                                 01580923
      WRITE (I02,90013)                                                 01590923
      WRITE (I02,90014)                                                 01600923
      WRITE (I02,90015) IVTOTL                                          01610923
CBE** ********************** BBCHED0B **********************************01620923
C*****                                                                  01630923
CT001*  TEST 1 - CARD 1    INTEGER                                      01640923
           IVTNUM = 1                                                   01650923
        READ(IRVI, *) IVI                                               01660923
C*****     TO DELETE TEST THE READ STATEMENTS MUST BE PERFORMED         01670923
C*****     FIRST. THEN INCLUDE THE FOLLOWING 2 STATEMENTS               01680923
C*****     IVDELE=IVDELE+1                                              01690923
C*****     WRITE (NUVI,80000) IVTNUM                                    01700923
C*****     AND COMMENT OUT REMAINING LINES UNTIL NEXT TEST              01710923
           IVCORR=25                                                    01720923
           IF (IVI - 25) 20010,10010,20010                              01730923
10010      IVPASS=IVPASS+1                                              01740923
           WRITE (NUVI,80002) IVTNUM                                    01750923
           GO TO 0011                                                   01760923
20010      IVFAIL=IVFAIL+1                                              01770923
           WRITE (NUVI,80008) IVTNUM                                    01780923
           WRITE (NUVI,80024) IVI                                       01790923
           WRITE (NUVI,80026) IVCORR                                    01800923
 0011      CONTINUE                                                     01810923
CT002*  TEST 2 - CARD 2    REAL                                         01820923
           IVTNUM = 2                                                   01830923
        READ(IRVI, *) AVS                                               01840923
C*****     TO DELETE TEST SEE NOTES FOR TEST 1                          01850923
           RVCORR=10.75                                                 01860923
        AAVS = AVS - 10.75                                              01870923
           IF (AAVS + .00005) 20020,10020,40020                         01880923
40020      IF (AAVS - .00005) 10020,10020,20020                         01890923
10020      IVPASS=IVPASS+1                                              01900923
           WRITE (NUVI,80002) IVTNUM                                    01910923
           GO TO 0021                                                   01920923
20020      IVFAIL=IVFAIL+1                                              01930923
           WRITE (NUVI,80008) IVTNUM                                    01940923
           WRITE (NUVI,80028) AVS                                       01950923
           WRITE (NUVI,80030) RVCORR                                    01960923
 0021      CONTINUE                                                     01970923
CT003*  TEST 3 - CARD 3    REAL, EXPONENT                               01980923
           IVTNUM = 3                                                   01990923
        READ(IRVI, *) AVS                                               02000923
C*****     TO DELETE TEST SEE NOTES FOR TEST 1                          02010923
           RVCORR=128.75                                                02020923
        AAVS = AVS - 128.75                                             02030923
           IF (AAVS + .00005) 20030,10030,40030                         02040923
40030      IF (AAVS - .00005) 10030,10030,20030                         02050923
10030      IVPASS=IVPASS+1                                              02060923
           WRITE (NUVI,80002) IVTNUM                                    02070923
           GO TO 0031                                                   02080923
20030      IVFAIL=IVFAIL+1                                              02090923
           WRITE (NUVI,80008) IVTNUM                                    02100923
           WRITE (NUVI,80028) AVS                                       02110923
           WRITE (NUVI,80030) RVCORR                                    02120923
 0031      CONTINUE                                                     02130923
CT004*  TEST 4 - CARD 4    LOGICAL                                      02140923
           IVTNUM = 4                                                   02150923
        READ(IRVI, *) AVB                                               02160923
C*****     TO DELETE TEST SEE NOTES TEST 1                              02170923
           IVCOMP=0                                                     02180923
           IF (AVB) IVCOMP = 1                                          02190923
           IF (IVCOMP - 1) 20040,10040,20040                            02200923
10040      IVPASS=IVPASS+1                                              02210923
           WRITE (NUVI,80002) IVTNUM                                    02220923
           GO TO 0041                                                   02230923
20040      IVFAIL=IVFAIL+1                                              02240923
           WRITE (NUVI,80008) IVTNUM                                    02250923
70040      FORMAT (" ",16X,"COMPUTED: " ,1X,L1)                         02260923
           WRITE (NUVI,70040) AVB                                       02270923
70041      FORMAT (" ",16X,"CORRECT:  " ," T")                          02280923
           WRITE (NUVI,70041)                                           02290923
 0041      CONTINUE                                                     02300923
CT005*  TEST 5 - CARD 5    CHARACTER                                    02310923
           IVTNUM = 5                                                   02320923
        READ(IRVI, *) A6VK                                              02330923
C*****     TO DELETE TEST SEE NOTES FOR TEST 1                          02340923
           CVNX06='ABCDEF'                                              02350923
           IVCOMP=0                                                     02360923
           IF (A6VK .EQ. 'ABCDEF') IVCOMP = 1                           02370923
           IF (IVCOMP - 1) 20050,10050,20050                            02380923
10050      IVPASS=IVPASS+1                                              02390923
           WRITE (NUVI,80002) IVTNUM                                    02400923
           GO TO 0051                                                   02410923
20050      IVFAIL=IVFAIL+1                                              02420923
           WRITE (NUVI,80008) IVTNUM                                    02430923
           WRITE (NUVI,80020) A6VK                                      02440923
           WRITE (NUVI,80022) CVNX06                                    02450923
 0051      CONTINUE                                                     02460923
CT006*  TEST 6 - CARD 6    SEVERAL INTEGER                              02470923
           IVTNUM = 6                                                   02480923
        READ(IRVI, *) IVI, JVI, KVI, LVI                                02490923
C*****     TO DELETE TEST SEE NOTES FOR TEST 1                          02500923
           IF (IVI - 10) 20060,40060,20060                              02510923
40060      IF (JVI - 15) 20060,40061,20060                              02520923
40061      IF (KVI - 22) 20060,40062,20060                              02530923
40062      IF (LVI - 40) 20060,10060,20060                              02540923
10060      IVPASS=IVPASS+1                                              02550923
           WRITE (NUVI,80002) IVTNUM                                    02560923
           GO TO 0061                                                   02570923
20060      IVFAIL=IVFAIL+1                                              02580923
           WRITE (NUVI,80008) IVTNUM                                    02590923
70060      FORMAT (" ",16X,"COMPUTED: " ,I5,3(2X,I5))                   02600923
           WRITE (NUVI,70060) IVI,JVI,KVI,LVI                           02610923
70061      FORMAT (" ",16X,"CORRECT:  " ,                               02620923
     1       "   10",2X,"   15",2X,"   22",2X,"   40")                  02630923
           WRITE (NUVI,70061)                                           02640923
 0061      CONTINUE                                                     02650923
CT007*  TEST 7 - CARD 7    SEVERAL REAL                                 02660923
           IVTNUM = 7                                                   02670923
        READ(IRVI, *) AVS, BVS, CVS                                     02680923
C*******   TO DELETE TEST SEE NOTES FOR TEST 1                          02690923
        AAVS = AVS - 100.5                                              02700923
        BBVS = BVS - 0.025                                              02710923
        CCVS = CVS - (-162.5)                                           02720923
           IF (AAVS + .00005) 20070,40071,40070                         02730923
40070      IF (AAVS - .00005) 40071,40071,20070                         02740923
40071      IF (BBVS + .00005) 20070,40073,40072                         02750923
40072      IF (BBVS - .00005) 40073,40073,20070                         02760923
40073      IF (CCVS + .00005) 20070,10070,40074                         02770923
40074      IF (CCVS - .00005) 10070,10070,20070                         02780923
10070      IVPASS=IVPASS+1                                              02790923
           WRITE (NUVI,80002) IVTNUM                                    02800923
           GO TO 0071                                                   02810923
20070      IVFAIL=IVFAIL+1                                              02820923
           WRITE (NUVI,80008) IVTNUM                                    02830923
70071      FORMAT (" ",16X,"COMPUTED: " ,F6.2,2X,F6.4,2X,F7.2)          02840923
           WRITE (NUVI,70071) AVS,BVS,CVS                               02850923
70072      FORMAT (" ",16X,"CORRECT:  " ,"100.50",2X,"0.0250",          02860923
     1     2X,"-162.50")                                                02870923
           WRITE(NUVI,70072)                                            02880923
 0071      CONTINUE                                                     02890923
CT008*  TEST 8 - CARD 8    SEVERAL LOGICAL                              02900923
           IVTNUM = 8                                                   02910923
        READ(IRVI, *) AVB, BVB, CVB, DVB, EVB                           02920923
C****      TO DELETE TEST SEE NOTES FOR TEST 1                          02930923
           IF (AVB .AND. .NOT. BVB .AND. .NOT. CVB .AND. DVB .AND.      02940923
     1     .NOT. EVB) GO TO 37008                                       02950923
           IVFAIL=IVFAIL+1                                              02960923
           WRITE (NUVI,80008) IVTNUM                                    02970923
70081      FORMAT (" ",16X,"COMPUTED: " ,L1,4(2X,L1))                   02980923
           WRITE (NUVI,70081) AVB,BVB,CVB,DVB,EVB                       02990923
70082      FORMAT (" ",16X,"CORRECT:  " ,"T",2X,"F",2X,"F",2X,"T",2X,   03000923
     1       "F")                                                       03010923
           WRITE (NUVI,70082)                                           03020923
           GO TO 37010                                                  03030923
37008      CONTINUE                                                     03040923
           IVPASS=IVPASS+1                                              03050923
           WRITE (NUVI,80002) IVTNUM                                    03060923
37010      CONTINUE                                                     03070923
CT009*  TEST 9 - CARD 9    SEVERAL CHARACTER STRINGS                    03080923
           IVTNUM = 9                                                   03090923
        READ(IRVI, *) A2VK, A4VK, A6VK                                  03100923
C*****     TO DELETE CODE SEE NOTES FOR TEST 1                          03110923
           IF (A2VK .EQ. 'AB' .AND. A4VK .EQ. 'ABCD' .AND.              03120923
     1     A6VK .EQ. 'ABCDEF') GO TO 37011                              03130923
           IVFAIL=IVFAIL+1                                              03140923
           WRITE (NUVI,80008) IVTNUM                                    03150923
70090      FORMAT (" ",16X,"COMPUTED: " ,A2,2X,A4,2X,A6)                03160923
           WRITE (NUVI,70090) A2VK,A4VK,A6VK                            03170923
70091      FORMAT (" ",16X,"CORRECT:  " ,"AB",2X,"ABCD",2X,"ABCDEF")    03180923
           WRITE (NUVI,70091)                                           03190923
           GO TO 37013                                                  03200923
37011      CONTINUE                                                     03210923
           IVPASS=IVPASS+1                                              03220923
           WRITE (NUVI,80002) IVTNUM                                    03230923
37013      CONTINUE                                                     03240923
CT010*  TEST 10 - CARD 10    MIXED TYPES                                03250923
           IVTNUM = 10                                                  03260923
        READ(IRVI, *) A6VK, AVB, AVS, IVI, BVS                          03270923
C****      TO DELETE TEST SEE NOTES FOR TEST 1                          03280923
           IF (A6VK .EQ. '123456' .AND. AVB .AND. AVS .GE. (17.5 - DVS) 03290923
     1     .AND. AVS .LE. (17.5 + DVS) .AND. IVI .EQ. -11 .AND.         03300923
     2     BVS .GE. (2.5 - DVS) .AND. BVS .LE. (2.5 + DVS))             03310923
     3     GO TO 37014                                                  03320923
           IVFAIL=IVFAIL+1                                              03330923
70100      FORMAT (" ",2X,I3,4X," FAIL  ",32X,                          03340923
     1     "COMPLEX IF - SEE SOURCE CODE" )                             03350923
           WRITE (NUVI,70100) IVTNUM                                    03360923
70101      FORMAT (" ",16X,"COMPUTED: " ,                               03370923
     2     A6,2X,L1,2X,F5.2,2X,I5,2X,E12.5)                             03380923
           WRITE (NUVI,70101) A6VK,AVB,AVS,IVI,BVS                      03390923
70102      FORMAT (" ",16X,"CORRECT:  " ,                               03400923
     1     "123456  T  17.50    -11" ,2X," 0.25000E+01 OR .25000+001" ) 03410923
           WRITE (NUVI,70102)                                           03420923
           GO TO 37016                                                  03430923
37014      CONTINUE                                                     03440923
           IVPASS=IVPASS+1                                              03450923
           WRITE (NUVI,80002) IVTNUM                                    03460923
37016      CONTINUE                                                     03470923
CT011*  TEST 11 - CARD 11    MIXED TYPES SEPARATED BY COMMAS            03480923
           IVTNUM = 11                                                  03490923
        READ(IRVI, *) IVI, A4VK, AVB, AVS                               03500923
C*****     TO DELETE TEST SEE NOTES FOR TEST 1                          03510923
           IF (IVI .EQ. -5 .AND. A4VK .EQ. '2468' .AND. AVB .AND.       03520923
     1     AVS .GE. (15.0 - DVS) .AND. AVS .LE. (15.0 + DVS))           03530923
     2     GO TO 37017                                                  03540923
           IVFAIL=IVFAIL+1                                              03550923
70110      FORMAT (" ",2X,I3,4X," FAIL  ","MIXED DATA TYPES" ,16X,      03560923
     1     "COMPLEX IF - SEE SOURCE CODE" )                             03570923
           WRITE (NUVI,70110) IVTNUM                                    03580923
70111      FORMAT (" ",16X,"COMPUTED: " ,                               03590923
     1     I5,2X,A4,2X,L1,2X,F5.2)                                      03600923
           WRITE (NUVI,70111) IVI,A4VK,AVB,AVS                          03610923
70112      FORMAT (" ",16X,"CORRECT:  " ,                               03620923
     1     "   -5",2X,"2468",2X,"T",2X,"15.00")                         03630923
           WRITE (NUVI,70112)                                           03640923
           GO TO 37019                                                  03650923
37017      CONTINUE                                                     03660923
           IVPASS=IVPASS+1                                              03670923
           WRITE (NUVI,80002) IVTNUM                                    03680923
37019      CONTINUE                                                     03690923
CT012*  TEST 12 - CARD 12    MIXED TYPES, VARYING NUMBER OF             03700923
C*****                               BLANKS SEPARATING VALUES           03710923
            IVTNUM = 12                                                 03720923
        READ(IRVI, *) AVB, A4VK, IVI, AVS                               03730923
C*****      TO DELETE TEST SEE NOTES FOR TEST 1                         03740923
            IF (.NOT. AVB .AND. A4VK .EQ. 'CHAR' .AND. IVI .EQ. -1 .AND.03750923
     1      AVS .GE. (0.25 - DVS) .AND. AVS .LE. (0.25 + DVS))          03760923
     2      GO TO 37020                                                 03770923
            IVFAIL=IVFAIL+1                                             03780923
70120       FORMAT (" ",2X,I3,4X," FAIL  ","MIXED DATA TYPES" ,16X,     03790923
     1        "COMPLEX IF - SEE SOURCE CODE" )                          03800923
            WRITE (NUVI,70120) IVTNUM                                   03810923
70121       FORMAT (" ",16X,"COMPUTED: " ,                              03820923
     1      L1,2X,A4,2X,I5,2X,F4.2)                                     03830923
            WRITE (NUVI,70121) AVB,A4VK,IVI,AVS                         03840923
70122       FORMAT (" ",16X,"CORRECT:  " ,                              03850923
     2      "F  ","CHAR",2X,"   -5",2X,"0.25")                          03860923
            WRITE (NUVI,70122)                                          03870923
            GO TO 37022                                                 03880923
37020       CONTINUE                                                    03890923
            IVPASS=IVPASS+1                                             03900923
            WRITE (NUVI,80002) IVTNUM                                   03910923
37022       CONTINUE                                                    03920923
CT013*  TEST 13 - CARD 13    READ VALUES INTO ARRAY BY USING            03930923
C*****                       AN IMPLICIT DO-LOOP                        03940923
            IVTNUM = 13                                                 03950923
        READ(IRVI, *) (J1I(IIVI), IIVI=1,3)                             03960923
C****      TO DELETE TEST SEE NOTES FOR TEST 1                          03970923
           IF (J1I(1) - 5) 20130,40130,20130                            03980923
40130      IF (J1I(2) - 10) 20130,40131,20130                           03990923
40131      IF (J1I(3) - 15) 20130,10130,20130                           04000923
10130      IVPASS=IVPASS+1                                              04010923
           WRITE (NUVI,80002) IVTNUM                                    04020923
           GO TO 0131                                                   04030923
20130      IVFAIL=IVFAIL+1                                              04040923
           WRITE (NUVI,80008) IVTNUM                                    04050923
70130      FORMAT (" ",16X,"COMPUTED: " ,I5,2X,I5,2X,I5)                04060923
           WRITE (NUVI,70130) J1I(1),J1I(2),J1I(3)                      04070923
70131      FORMAT (" ",16X,"CORRECT:  " ,                               04080923
     1       "    5",2X,"   10",2X,"   15")                             04090923
           WRITE (NUVI,70131)                                           04100923
 0131      CONTINUE                                                     04110923
CT014*  TEST 14 - CARDS 14-15    LIST EXTENDING OVER 2 RECORDS          04120923
           IVTNUM = 14                                                  04130923
        READ(IRVI, *) AVS, AVB, BVB, IVI, A2VK, CVB, A4VK, B4VK, BVS    04140923
C*****     TO DELETE CODE SEE NOTES FOR TEST 1                          04150923
           IF (AVS .GE. (-1.25E1 - DVS) .AND. AVS .LE. (-1.25E1 + DVS)  04160923
     1     .AND. .NOT. AVB .AND. BVB .AND.                              04170923
     2     IVI .EQ. -6 .AND. A2VK .EQ. '-6' .AND. .NOT. CVB .AND.       04180923
     3     A4VK .EQ. 'ZYXW' .AND. B4VK .EQ. 'DCBA' .AND.                04190923
     4     BVS .GE. (15.5 - DVS) .AND. BVS .LE. (15.5 + DVS))           04200923
     5     GO TO 37024                                                  04210923
           IVFAIL=IVFAIL+1                                              04220923
70140      FORMAT (" ",2X,I3,4X," FAIL  ","MIXED DATA TYPES" ,16X,      04230923
     1     "COMPLEX IF - SEE SOURCE CODE" )                             04240923
           WRITE (NUVI,70140) IVTNUM                                    04250923
70141      FORMAT (" ",16X,"COMPUTED: " ,E12.5,2X,L1,2X,L1,2X,I5,       04260923
     1     /27X,A2,2X,L1,2X,A4,2X,A4,2X,F5.2)                           04270923
           WRITE (NUVI,70141) AVS,AVB,BVB,IVI,A2VK,CVB,A4VK,B4VK,BVS    04280923
70142      FORMAT (" ",16X,"CORRECT:  " ,                               04290923
     1     " -.12500E+01" ,2X,"F",2X,"T",2X,"   -6",                    04300923
     2     /27X,"-6",2X,"F",2X,"ZYXW",2X,"DCBA",2X,"15.50")             04310923
           WRITE (NUVI,70142)                                           04320923
           GO TO 37026                                                  04330923
37024      CONTINUE                                                     04340923
           IVPASS=IVPASS+1                                              04350923
           WRITE (NUVI,80002) IVTNUM                                    04360923
37026      CONTINUE                                                     04370923
CT015*  TEST 15 - CARD 16    NULL VALUE REPRESENTED AS ,,               04380923
           IVTNUM = 15                                                  04390923
        AVS = 2.0                                                       04400923
        READ(IRVI, *) A4VK, AVS, IVI, AVB                               04410923
C*****     TO DELETE TEST SEE NOTES FOR TEST 1                          04420923
           IF (A4VK .EQ. 'ONE ' .AND. AVS .GE. (2.0 - DVS) .AND.        04430923
     1     AVS .LE. (2.0 + DVS) .AND. IVI .EQ. 3 .AND. .NOT. AVB)       04440923
     2     GO TO 37027                                                  04450923
           IVFAIL=IVFAIL+1                                              04460923
           WRITE (NUVI,70150) IVTNUM                                    04470923
70150      FORMAT (" ",2X,I3,4X," FAIL  ",32X,                          04480923
     1     "COMPLEX IF - SEE SOURCE CODE" )                             04490923
70151      FORMAT (" ",16X,"COMPUTED: " ,A4,2X,F4.1,2X,I5,2X,L1)        04500923
           WRITE (NUVI,70151) A4VK,AVS,IVI,AVB                          04510923
70152      FORMAT (" ",16X,"CORRECT:  " ,                               04520923
     1     "ONE    2.0      3  F" )                                     04530923
           WRITE (NUVI,70152)                                           04540923
           GO TO 37029                                                  04550923
37027      CONTINUE                                                     04560923
           IVPASS=IVPASS+1                                              04570923
           WRITE (NUVI,80002) IVTNUM                                    04580923
37029      CONTINUE                                                     04590923
CT016*  TEST 16 - CARD 17    NULL VALUE REPRESENTED AS ' '              04600923
           IVTNUM = 16                                                  04610923
        AVB = .TRUE.                                                    04620923
        READ(IRVI, *) A4VK, IVI, AVB, AVS                               04630923
C*****     TO DELETE TEST SEE NOTES FOR TEST 1                          04640923
           IF (A4VK .EQ. 'TWO ' .AND. IVI .EQ. 2 .AND. AVB .AND.        04650923
     1     AVS .GE. (2.0 - DVS) .AND. AVS .LE. (2.0 + DVS))             04660923
     2     GO TO 37030                                                  04670923
           IVFAIL=IVFAIL+1                                              04680923
           WRITE (NUVI,80008) IVTNUM                                    04690923
70160      FORMAT (" ",16X,"COMPUTED: " ,A4,2X,I5,2X,L1,2X,F4.1)        04700923
           WRITE (NUVI,70160) A4VK,IVI,AVB,AVS                          04710923
70161      FORMAT (" ",16X,"CORRECT:  " ,                               04720923
     1     "TWO       2  T   2.0" )                                     04730923
           WRITE (NUVI,70161)                                           04740923
           GO TO 37032                                                  04750923
37030      CONTINUE                                                     04760923
           IVPASS=IVPASS+1                                              04770923
           WRITE (NUVI,80002) IVTNUM                                    04780923
37032      CONTINUE                                                     04790923
CT017*  TEST 17 - CARD 18    VARIOUS NULL REPRESENTATIONS               04800923
           IVTNUM = 17                                                  04810923
        IVI = 2                                                         04820923
        JVI = 6                                                         04830923
        KVI = 10                                                        04840923
        KKVI = 12                                                       04850923
        READ(IRVI, *) IVI, IIVI, JVI, JJVI, KVI, KKVI, LVI              04860923
C****      TO DELETE TEST SEE NOTES FOR TEST 1                          04870923
           IF (IVI .EQ. 2 .AND. IIVI .EQ. 4 .AND. JVI .EQ. 6 .AND.      04880923
     1     JJVI .EQ. 8 .AND. KVI .EQ. 10 .AND. KKVI .EQ. 12 .AND.       04890923
     2     LVI .EQ. 14) GO TO 37033                                     04900923
           IVFAIL=IVFAIL+1                                              04910923
           WRITE (NUVI,70170) IVTNUM                                    04920923
70170      FORMAT (" ",2X,I3,4X," FAIL  ",32X,                          04930923
     1     "COMPLEX IF - SEE SOURCE CODE" )                             04940923
70171      FORMAT (" ",16X,"COMPUTED: " ,                               04950923
     1     I5,6(2X,I5))                                                 04960923
           WRITE (NUVI,70171) IVI,IIVI,JVI,JJVI,KVI,KKVI,LVI            04970923
70172      FORMAT (" ",16X,"CORRECT:  " ,                               04980923
     1     "    2      4      6      8     10     12     14" )          04990923
           WRITE (NUVI,70172)                                           05000923
           GO TO 37035                                                  05010923
37033      CONTINUE                                                     05020923
           IVPASS=IVPASS+1                                              05030923
           WRITE (NUVI,80002) IVTNUM                                    05040923
37035      CONTINUE                                                     05050923
CT018*  TEST 18 - CARD 19    NULL VALUE USING REPETITION FACTOR         05060923
           IVTNUM = 18                                                  05070923
        IVI = 1                                                         05080923
        AVB = .TRUE.                                                    05090923
        AVS = 1.0                                                       05100923
        A4VK = 'TRUE'                                                   05110923
        READ (IRVI, *) JVI, BVS, IVI, AVB, AVS, A4VK, B4VK, BVB         05120923
C*****     TO DELETE TEST SEE NOTES FOR TEST 1                          05130923
           IF (JVI .EQ. 5 .AND. BVS .GE. (-2.5 - DVS) .AND.             05140923
     1     BVS .LE. (-2.5 + DVS) .AND. IVI .EQ. 1 .AND. AVB .AND.       05150923
     2     AVS .GE. (1.0 - DVS) .AND.  AVS .LE. (1.0 + DVS) .AND.       05160923
     3     A4VK .EQ. 'TRUE' .AND. B4VK .EQ. 'TEST' .AND. .NOT. BVB)     05170923
     4     GO TO 37036                                                  05180923
           IVFAIL=IVFAIL+1                                              05190923
           WRITE (NUVI,70180) IVTNUM                                    05200923
70180      FORMAT (" ",2X,I3,4X," FAIL  ",32X,                          05210923
     1     "COMPLEX IF - SEE SOURCE CODE" )                             05220923
70181      FORMAT (" ",16X,"COMPUTED: " ,                               05230923
     1     I5,2X,F4.1,2X,I5,2X,L1,2X,F4.1,2X,A4,2X,                     05240923
     2     A4,2X,L1)                                                    05250923
           WRITE (NUVI,70181) JVI,BVS,IVI,AVB,AVS,A4VK,B4VK,BVB         05260923
70182      FORMAT (" ",16X,"CORRECT:  " ,                               05270923
     1     "    5",2X,"-2.5",2X,"    1",2X,"T",2X," 1.0",2X,"TRUE",2X,  05280923
     2     "TEST",2X,"F")                                               05290923
           WRITE (NUVI,70182)                                           05300923
           GO TO 37038                                                  05310923
37036      CONTINUE                                                     05320923
           IVPASS=IVPASS+1                                              05330923
           WRITE (NUVI,80002) IVTNUM                                    05340923
37038      CONTINUE                                                     05350923
CT019*  TEST 19 - CARDS 20-21    TERMINATOR SLASH (/)                   05360923
           IVTNUM = 19                                                  05370923
        READ(IRVI, *) IVI, JVI, KVI, LVI, MVI                           05380923
        READ(IRVI, *) IVI, JVI, KVI, LVI, MVI                           05390923
C****      TO DELETE TEST SEE NOTES FOR TEST 1                          05400923
           IF (IVI - 6) 20190,40190,20190                               05410923
40190      IF (JVI - 7) 20190,40191,20190                               05420923
40191      IF (KVI - 8) 20190,40192,20190                               05430923
40192      IF (LVI - 4) 20190,40193,20190                               05440923
40193      IF (MVI - 5) 20190,10190,20190                               05450923
10190      IVPASS=IVPASS+1                                              05460923
           WRITE (NUVI,80002) IVTNUM                                    05470923
           GO TO 0191                                                   05480923
20190      IVFAIL=IVFAIL+1                                              05490923
           WRITE (NUVI,80008) IVTNUM                                    05500923
70190      FORMAT (" ",16X,"COMPUTED: " ,I5,4(2X,I5))                   05510923
           WRITE (NUVI,70190) IVI,JVI,KVI,LVI,MVI                       05520923
70191      FORMAT (" ",16X,"CORRECT:  " ,                               05530923
     1     "    6",2X,"    7",2X,"    8",2X,"    4",2X,"    5")         05540923
           WRITE (NUVI,70191)                                           05550923
 0191      CONTINUE                                                     05560923
CT020*  TEST 20 - CARD 22    VERIFY THAT BLANKS ARE NOT                 05570923
C*****                       INTERPRETED AS ZEROS                       05580923
           IVTNUM = 20                                                  05590923
        READ(IRVI, *) IVI, JVI, KVI                                     05600923
C****      TO DELETE TEST SEE NOTES FOR TEST 1                          05610923
           IF (IVI - 12045) 20200,40200,20200                           05620923
40200      IF (JVI - 12) 20200,40201,20200                              05630923
40201      IF (KVI - 45) 20200,10200,20200                              05640923
10200      IVPASS=IVPASS+1                                              05650923
           WRITE (NUVI,80002) IVTNUM                                    05660923
           GO TO 0201                                                   05670923
20200      IVFAIL=IVFAIL+1                                              05680923
           WRITE (NUVI,80008) IVTNUM                                    05690923
70200      FORMAT (" ",16X,"COMPUTED: " ,I5,2X,I5,2X,I5)                05700923
           WRITE (NUVI,70200) IVI,JVI,KVI                               05710923
70201      FORMAT (" ",16X,"CORRECT:  " ,                               05720923
     1     "12045",2X,"   12",2X,"   45")                               05730923
           WRITE (NUVI,70201)                                           05740923
 0201      CONTINUE                                                     05750923
CT021*  TEST 21 - CARDS 23-24    VERIFY THAT END-OF-RECORD IS           05760923
C*****                                   TREATED AS A BLANK WHEN IT     05770923
C*****                                   SEPARATES TWO INTEGERS         05780923
           IVTNUM = 21                                                  05790923
        READ(IRVI, *) IVI, JVI, KVI                                     05800923
C****      TO DELETE TEST SEE NOTES FOR TEST 1                          05810923
           IF (IVI - 12045) 20210,40210,20210                           05820923
40210      IF (JVI - 12) 20210,40211,20210                              05830923
40211      IF (KVI - 45) 20210,10210,20210                              05840923
10210      IVPASS=IVPASS+1                                              05850923
           WRITE (NUVI,80002) IVTNUM                                    05860923
           GO TO 0211                                                   05870923
20210      IVFAIL=IVFAIL+1                                              05880923
           WRITE (NUVI,80008) IVTNUM                                    05890923
70210      FORMAT (" ",16X,"COMPUTED: " ,I5,2X,I5,2X,I5)                05900923
           WRITE (NUVI,70210) IVI,JVI,KVI                               05910923
70211      FORMAT (" ",16X,"CORRECT:  " ,                               05920923
     1     "12045",2X,"   12",2X,"   45")                               05930923
           WRITE (NUVI,70211)                                           05940923
 0211      CONTINUE                                                     05950923
CT023*  TEST 22 - CARD 25    QUOTES, BLANKS, COMMAS AND SLASHES         06130923
C*****                       EMBEDDED IN CHARACTER STRINGS              06140923
           IVTNUM = 22                                                  06150923
        READ(IRVI, *) A21VK                                             06160923
C****      TO DELETE TEST SEE NOTES FOR TEST 1                          06170923
           CVNX21='CAN''T, AND/OR   WON''T'                             06180923
           IF (A21VK .EQ. 'CAN''T, AND/OR   WON''T') GO TO 37044        06190923
           IVFAIL=IVFAIL+1                                              06200923
           WRITE (NUVI,80008) IVTNUM                                    06210923
           WRITE (NUVI,80020) A21VK                                     06220923
           WRITE (NUVI,80022) CVNX21                                    06230923
           GO TO 0231                                                   06240923
37044      CONTINUE                                                     06250923
           IVPASS=IVPASS+1                                              06260923
           WRITE (NUVI,80002) IVTNUM                                    06270923
 0231      CONTINUE                                                     06280923
CT024*  TEST 23 - CARD 26    CHARACTER STRINGS THAT ARE READ IN         06290923
C*****                       VARIABLES OF DIFFERENT LENGTHS             06300923
           IVTNUM = 23                                                  06310923
        READ(IRVI, *) A15VK, A8VK, A9VK                                 06320923
C****      TO DELETE TEST SEE NOTES FOR TEST 1                          06330923
           IF (A15VK .EQ. '1234567890     ' .AND.                       06340923
     1     A8VK .EQ. '12345678' .AND.                                   06350923
     2     A9VK .EQ. '123456789') GO TO 37047                           06360923
           IVFAIL=IVFAIL+1                                              06370923
           WRITE (NUVI,80008) IVTNUM                                    06380923
70240      FORMAT (" ",16X,"COMPUTED: " ,A15,2X,A8,2X,A9)               06390923
           WRITE (NUVI,70240) A15VK,A8VK,A9VK                           06400923
70241      FORMAT (" ",16X,"CORRECT:  " ,                               06410923
     1     "1234567890     " ,2X,"12345678",2X,"123456789")             06420923
           WRITE (NUVI,70241)                                           06430923
           GO TO 37049                                                  06440923
37047      CONTINUE                                                     06450923
           IVPASS=IVPASS+1                                              06460923
           WRITE (NUVI,80002) IVTNUM                                    06470923
37049      CONTINUE                                                     06480923
CT025*  TEST 24 - CARD 27    LOGICAL VALUES IN DIFFERENT                06490923
C*****                               REPRESENTATIONS                    06500923
           IVTNUM = 24                                                  06510923
        READ(IRVI, *) AVB, BVB, CVB, DVB, EVB, FVB, GVB, HVB            06520923
C*****     TO DELETE CODE SEE NOTES FOR TEST 1                          06530923
           IF (AVB .AND. .NOT. BVB .AND. .NOT. CVB .AND. DVB .AND.      06540923
     1     .NOT. EVB .AND. .NOT. EVB .AND. GVB .AND. HVB)               06550923
     2      GO TO 37050                                                 06560923
           IVFAIL=IVFAIL+1                                              06570923
           WRITE (NUVI,70250) IVTNUM                                    06580923
70250      FORMAT (" ",2X,I3,4X," FAIL  ",32X,                          06590923
     1     "COMPLEX IF - SEE SOURCE CODE" )                             06600923
70251      FORMAT (" ",16X,"COMPUTED: " ,L1,7(2X,L1))                   06610923
           WRITE (NUVI,70251) AVB,BVB,CVB,DVB,EVB,FVB,GVB,HVB           06620923
70252      FORMAT (" ",16X,"CORRECT:  " ,"T  F  F  T  F  F  T  T" )     06630923
           WRITE (NUVI,70252)                                           06640923
           GO TO 37052                                                  06650923
37050      CONTINUE                                                     06660923
           IVPASS=IVPASS+1                                              06670923
           WRITE (NUVI,80002) IVTNUM                                    06680923
37052      CONTINUE                                                     06690923
CT026*  TEST 25 - CARDS 28-29    SLASH TERMINATOR                       06700923
           IVTNUM = 25                                                  06710923
        READ(IRVI, *) AVB, BVB, CVB, DVB, EVB                           06720923
        READ(IRVI, *) AVB, BVB, CVB, DVB, EVB                           06730923
C*****     TO DELETE CODE SEE NOTES FOR TEST 1                          06740923
           IF (.NOT. AVB .AND. .NOT. BVB .AND. CVB .AND.                06750923
     1     DVB .AND. EVB) GO TO 37053                                   06760923
           IVFAIL=IVFAIL+1                                              06770923
           WRITE (NUVI,80008) IVTNUM                                    06780923
70260      FORMAT (" ",16X,"COMPUTED: " , L1,4(2X,L1))                  06790923
           WRITE (NUVI,70260) AVB,BVB,CVB,DVB,EVB                       06800923
70261      FORMAT (" ",16X,"CORRECT:  " ,"F  F  T  T  T" )              06810923
           WRITE (NUVI,70261)                                           06820923
           GO TO 37055                                                  06830923
37053      CONTINUE                                                     06840923
           IVPASS=IVPASS+1                                              06850923
           WRITE (NUVI,80002) IVTNUM                                    06860923
37055      CONTINUE                                                     06870923
CT027*  TEST 26 - CARD 30    SLASH TERMINATING IMPLIED-DO LOOP          06880923
           IVTNUM = 26                                                  06890923
        J1I(1) = 1                                                      06900923
        READ(IRVI,*) (J1I(IVI), IVI=1,3)                                06910923
C****      TO DELETE CODE SEE NOTES FOR TEST 1                          06920923
           IVCORR=1                                                     06930923
           IF (J1I(1) - 1) 20270,10270,20270                            06940923
10270      IVPASS=IVPASS+1                                              06950923
           WRITE (NUVI,80002) IVTNUM                                    06960923
           GO TO 0271                                                   06970923
20270      IVFAIL=IVFAIL+1                                              06980923
           WRITE (NUVI,80008) IVTNUM                                    06990923
           WRITE(NUVI, 80024) J1I(1)                                    07000923
           WRITE (NUVI,80026) IVCORR                                    07010923
 0271      CONTINUE                                                     07020923
CT028*  TEST 27 - CARDS 31-32   SECOND READ SHOULD CAUSE VALUES         07030923
C*****                                  TO BE READ FROM SECOND CARD     07040923
           IVTNUM = 27                                                  07050923
        READ(IRVI,*) IVI, JVI                                           07060923
        READ(IRVI,*) IVI, JVI                                           07070923
C****      TO DELETE TEST SEE NOTES FOR TEST 1                          07080923
           IF (IVI - 5) 20280,40280,20280                               07090923
40280      IF (JVI - 6) 20280,10280,20280                               07100923
10280      IVPASS=IVPASS+1                                              07110923
           WRITE (NUVI,80002) IVTNUM                                    07120923
           GO TO 0281                                                   07130923
20280      IVFAIL=IVFAIL+1                                              07140923
           WRITE (NUVI,80008) IVTNUM                                    07150923
70280      FORMAT (" ",16X,"COMPUTED: " ,I5,2X,I5)                      07160923
           WRITE (NUVI,70280) IVI,JVI                                   07170923
70281      FORMAT (" ",16X,"CORRECT:  " ,"    5",2X,"    6")            07180923
           WRITE (NUVI,70281)                                           07190923
 0281      CONTINUE                                                     07200923
C*****                                                                  07210923
CBB** ********************** BBCSUM0  **********************************07220923
C**** WRITE OUT TEST SUMMARY                                            07230923
C****                                                                   07240923
      IVTOTN = IVPASS + IVFAIL + IVDELE + IVINSP                        07250923
      WRITE (I02, 90004)                                                07260923
      WRITE (I02, 90014)                                                07270923
      WRITE (I02, 90004)                                                07280923
      WRITE (I02, 90020) IVPASS                                         07290923
      WRITE (I02, 90022) IVFAIL                                         07300923
      WRITE (I02, 90024) IVDELE                                         07310923
      WRITE (I02, 90026) IVINSP                                         07320923
      WRITE (I02, 90028) IVTOTN, IVTOTL                                 07330923
CBE** ********************** BBCSUM0  **********************************07340923
CBB** ********************** BBCFOOT0 **********************************07350923
C**** WRITE OUT REPORT FOOTINGS                                         07360923
C****                                                                   07370923
      WRITE (I02,90016) ZPROG, ZPROG                                    07380923
      WRITE (I02,90018) ZPROJ, ZNAME, ZTAPE, ZTAPED                     07390923
      WRITE (I02,90019)                                                 07400923
CBE** ********************** BBCFOOT0 **********************************07410923
CBB** ********************** BBCFMT0A **********************************07420923
C**** FORMATS FOR TEST DETAIL LINES                                     07430923
C****                                                                   07440923
80000 FORMAT (" ",2X,I3,4X,"DELETED",32X,A31)                           07450923
80002 FORMAT (" ",2X,I3,4X," PASS  ",32X,A31)                           07460923
80004 FORMAT (" ",2X,I3,4X,"INSPECT",32X,A31)                           07470923
80008 FORMAT (" ",2X,I3,4X," FAIL  ",32X,A31)                           07480923
80010 FORMAT (" ",2X,I3,4X," FAIL  ",/," ",15X,"COMPUTED= " ,           07490923
     1I6,/," ",15X,"CORRECT=  " ,I6)                                    07500923
80012 FORMAT (" ",2X,I3,4X," FAIL  ",/," ",16X,"COMPUTED= " ,           07510923
     1E12.5,/," ",16X,"CORRECT=  " ,E12.5)                              07520923
80018 FORMAT (" ",2X,I3,4X," FAIL  ",/," ",16X,"COMPUTED= " ,           07530923
     1A21,/," ",16X,"CORRECT=  " ,A21)                                  07540923
80020 FORMAT (" ",16X,"COMPUTED= " ,A21,1X,A31)                         07550923
80022 FORMAT (" ",16X,"CORRECT=  " ,A21,1X,A31)                         07560923
80024 FORMAT (" ",16X,"COMPUTED= " ,I6,16X,A31)                         07570923
80026 FORMAT (" ",16X,"CORRECT=  " ,I6,16X,A31)                         07580923
80028 FORMAT (" ",16X,"COMPUTED= " ,E12.5,10X,A31)                      07590923
80030 FORMAT (" ",16X,"CORRECT=  " ,E12.5,10X,A31)                      07600923
80050 FORMAT (" ",48X,A31)                                              07610923
CBE** ********************** BBCFMT0A **********************************07620923
CBB** ********************** BBCFMT0B **********************************07630923
C**** FORMAT STATEMENTS FOR PAGE HEADERS                                07640923
C****                                                                   07650923
90002 FORMAT ("1")                                                      07660923
90004 FORMAT (" ")                                                      07670923
90006 FORMAT (" ",20X,"NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY" )07680923
90007 FORMAT (" ",19X,"FORTRAN COMPILER VALIDATION SYSTEM" )            07690923
90008 FORMAT (" ",21X,A13,A17)                                          07700923
90009 FORMAT (" ",/," *",A5,"BEGIN*",12X,"TEST RESULTS   " ,A5,/)       07710923
90010 FORMAT (" ",8X,"TEST DATE*TIME= " ,A17,"     COMPILER= " ,A20)    07720923
90013 FORMAT (" "," TEST   ","PASS/FAIL " ,6X,"DISPLAYED RESULTS" ,     07730923
     1       7X,"REMARKS",24X)                                          07740923
90014 FORMAT (" ","----------------------------------------------" ,    07750923
     1        "---------------------------------" )                     07760923
90015 FORMAT (" ",48X,"THIS PROGRAM HAS " ,I3," TESTS",/)               07770923
C****                                                                   07780923
C**** FORMAT STATEMENTS FOR REPORT FOOTINGS                             07790923
C****                                                                   07800923
90016 FORMAT (" ",/," *",A5,"END*",14X,"END OF TEST - " ,A5,/)          07810923
90018 FORMAT (" ",A13,13X,A20,"   *   ",A10,"/",                        07820923
     1        A13)                                                      07830923
90019 FORMAT (" ","FOR OFFICIAL USE ONLY     " ,35X,"COPYRIGHT  1982" ) 07840923
C****                                                                   07850923
C**** FORMAT STATEMENTS FOR RUN SUMMARY                                 07860923
C****                                                                   07870923
90020 FORMAT (" ",21X,I5," TESTS PASSED" )                              07880923
90022 FORMAT (" ",21X,I5," TESTS FAILED" )                              07890923
90024 FORMAT (" ",21X,I5," TESTS DELETED" )                             07900923
90026 FORMAT (" ",21X,I5," TESTS REQUIRE INSPECTION" )                  07910923
90028 FORMAT (" ",21X,I5," OF ",I3," TESTS EXECUTED" )                  07920923
CBE** ********************** BBCFMT0B **********************************07930923
C*****    END OF TEST SEGMENT 370                                       07940923
        STOP                                                            07950923
        END                                                             07960923