FM256.f Source File


Contents

Source Code


Source Code

      PROGRAM FM256                                                     00010256
C                                                                       00020256
C                                                                       00030256
C                                                                       00040256
C        THIS ROUTINE IS A TEST OF THE DO STATEMENT.  THE DO IS TESTED  00050256
C     BOTH OUTSIDE AND INSIDE THE BLOCK-IF STRUCTURE.  TESTS ARE MADE OF00060256
C     THE DO-VARIABLE WHEN THE DO BECOMES INACTIVE.  OTHER TESTS CHECK  00070256
C     LOOP AND INCREMENTATION PROCESSING.  THE DO-LOOP EXECUTION        00080256
C     IS TESTED FOR THOSE CONDITIONS WHICH MAKE THE DO-LOOP INACTIVE.   00090256
C                                                                       00100256
C        AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN,       00110256
C             X3.9-1978                                                 00120256
C        SECTION 11.10,      DO STATEMENT                               00130256
C        SECTION 11.10.1,    RANGE OF A DO-LOOP                         00140256
C        SECTION 11.10.2,    ACTIVE AND INACTIVE DO-LOOPS               00150256
C        SECTION 11.10.3,    EXECUTING A DO STATEMENT                   00160256
C        SECTION 11.10.4,    LOOP CONTROL PROCESSING                    00170256
C        SECTION 11.10.5,    EXECUTION OF THE RANGE                     00180256
C        SECTION 11.10.6,    TERMINAL STATEMENT EXECUTION               00190256
C        SECTION 11.10.7,    INCREMENTATION PROCESSING                  00200256
C                                                                       00210256
C        FM012 - TESTS THE DO STATEMENT WITH THE FORTRAN 66 CONCEPTS OF 00220256
C                EXTENDED RANGE OF A DO STATEMENT.                      00230256
C                                                                       00240256
C                                                                       00250256
C                                                                       00260256
C     ******************************************************************00270256
C         A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE         00280256
C     BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN STANDARD FORTRAN   00290256
C     X3.9-1978, HAS BEEN DEVELOPED BY THE DEPARTMENT OF THE NAVY.  THE 00300256
C     FORTRAN COMPILER VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT       00310256
C     ROUTINES, THEIR RELATED DATA, AND AN EXECUTIVE SYSTEM.  EACH AUDIT00320256
C     ROUTINE IS A FORTRAN PROGRAM OR SUBPROGRAM WHICH INCLUDES TESTS   00330256
C     OF SPECIFIC LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING00340256
C     THE RESULT OF EXECUTING THESE TESTS.                              00350256
C                                                                       00360256
C     THIS PARTICULAR PROGRAM OR SUBPROGRAM CONTAINS ONLY FEATURES      00370256
C     FOUND IN THE SUBSET LEVEL OF THE STANDARD.                        00380256
C                                                                       00390256
C           SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO             00400256
C              NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY           00410256
C                   SOFTWARE STANDARDS VALIDATION GROUP                 00420256
C                          BUILDING 225  RM A266                        00430256
C                         GAITHERSBURG, MD  20899                       00440256
C     ******************************************************************00450256
C                                                                       00460256
C                                                                       00470256
      IMPLICIT LOGICAL (L)                                              00480256
      IMPLICIT CHARACTER*14 (C)                                         00490256
C                                                                       00500256
C                                                                       00510256
C                                                                       00520256
C     INITIALIZATION SECTION.                                           00530256
C                                                                       00540256
C     INITIALIZE CONSTANTS                                              00550256
C     ********************                                              00560256
C     I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER          00570256
      I01 = 5                                                           00580256
C     I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER              00590256
      I02 = 6                                                           00600256
C     SYSTEM ENVIRONMENT SECTION                                        00610256
C                                                                       00620256
CX010     THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-010 CONTROL CARD.00630256
C     THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5      00640256
C     (UNIT NUMBER FOR CARD READER).                                    00650256
CX011      THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD00660256
C     THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL            00670256
C     FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE.         00680256
C                                                                       00690256
CX020     THIS CARD IS PEPLACED BY CONTENTS OF FEXEC X-020 CONTROL CARD.00700256
C     THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6      00710256
C     (UNIT NUMBER FOR PRINTER).                                        00720256
CX021     THIS CARD IS PEPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD.00730256
C     THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL            00740256
C     FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE.         00750256
C                                                                       00760256
      IVPASS = 0                                                        00770256
      IVFAIL = 0                                                        00780256
      IVDELE = 0                                                        00790256
      ICZERO = 0                                                        00800256
C                                                                       00810256
C     WRITE OUT PAGE HEADERS                                            00820256
C                                                                       00830256
      WRITE (I02,90002)                                                 00840256
      WRITE (I02,90006)                                                 00850256
      WRITE (I02,90008)                                                 00860256
      WRITE (I02,90004)                                                 00870256
      WRITE (I02,90010)                                                 00880256
      WRITE (I02,90004)                                                 00890256
      WRITE (I02,90016)                                                 00900256
      WRITE (I02,90001)                                                 00910256
      WRITE (I02,90004)                                                 00920256
      WRITE (I02,90012)                                                 00930256
      WRITE (I02,90014)                                                 00940256
      WRITE (I02,90004)                                                 00950256
C                                                                       00960256
C                                                                       00970256
C     ****  FCVS PROGRAM 256  -  TEST 001  ****                         00980256
C                                                                       00990256
C        TEST 001 CHECKS THE SIMPLE DO STATEMENT WITH THE OPTIONAL      01000256
C     COMMAS AND ALL DO PARAMETERS SPECIFIED.  THE LOOP IS ACTIVE FOR   01010256
C     TEN COUNTS.  THE FINAL VALUE OF THE INTEGER COUNTER SHOULD BE     01020256
C     EQUAL TO TEN (10).  THE FORM OF THE DO STATEMENT USED IN THIS TEST01030256
C     IS SHOWN BELOW -                                                  01040256
C                                                                       01050256
C        DO S, I = E1, E2, E3                                           01060256
C                                                                       01070256
C                                                                       01080256
      IVTNUM =   1                                                      01090256
      IF (ICZERO) 30010, 0010, 30010                                    01100256
 0010 CONTINUE                                                          01110256
      IVCOMP = 0                                                        01120256
      DO 0012, IVON01 = 1, 10, 1                                        01130256
      IVCOMP = IVCOMP + 1                                               01140256
 0012 CONTINUE                                                          01150256
      IVCORR = 10                                                       01160256
40010 IF ( IVCOMP - 10 )  20010, 10010, 20010                           01170256
30010 IVDELE = IVDELE + 1                                               01180256
      WRITE (I02,80000) IVTNUM                                          01190256
      IF (ICZERO) 10010, 0021, 20010                                    01200256
10010 IVPASS = IVPASS + 1                                               01210256
      WRITE (I02,80002) IVTNUM                                          01220256
      GO TO 0021                                                        01230256
20010 IVFAIL = IVFAIL + 1                                               01240256
      WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR                          01250256
 0021 CONTINUE                                                          01260256
C                                                                       01270256
C     ****  FCVS PROGRAM 256  -  TEST 002  ****                         01280256
C                                                                       01290256
C        TEST 002 IS SIMILAR TO THE PREVIOUS TEST EXCEPT THAT THE COMMAS01300256
C     THAT ARE OPTIONAL HAVE BEEN DELETED AS A SYNTAX CHECK.            01310256
C                                                                       01320256
C        THE INCREMENTATION PARAMETER IS OPTIONAL AND NOT PRESENT IN    01330256
C     THIS TEST.    ACCORDING TO SECTION 11.10.3,  IF E3 DOES NOT APPEAR01340256
C     THEN M3 HAS A VALUE OF ONE.  THE DO STATEMENT FOR THIS TEST IS OF 01350256
C     THE FORM SHOWN BELOW -                                            01360256
C                                                                       01370256
C        DO S I = E1, E2                                                01380256
C                                                                       01390256
C                                                                       01400256
      IVTNUM =   2                                                      01410256
      IF (ICZERO) 30020, 0020, 30020                                    01420256
 0020 CONTINUE                                                          01430256
      IVCOMP = 0                                                        01440256
      DO 0022 IVON01 = 1, 10                                            01450256
      IVCOMP = IVCOMP + 1                                               01460256
 0022 CONTINUE                                                          01470256
      IVCORR = 10                                                       01480256
40020 IF ( IVCOMP - 10 )  20020, 10020, 20020                           01490256
30020 IVDELE = IVDELE + 1                                               01500256
      WRITE (I02,80000) IVTNUM                                          01510256
      IF (ICZERO) 10020, 0031, 20020                                    01520256
10020 IVPASS = IVPASS + 1                                               01530256
      WRITE (I02,80002) IVTNUM                                          01540256
      GO TO 0031                                                        01550256
20020 IVFAIL = IVFAIL + 1                                               01560256
      WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR                          01570256
 0031 CONTINUE                                                          01580256
C                                                                       01590256
C     ****  FCVS PROGRAM 256  -  TEST 003  ****                         01600256
C                                                                       01610256
C        TEST 003 HAS A DO STATEMENT INSIDE A BLOCKED IF STRUCTURE.     01620256
C     THE LOGICAL EXPRESSION IS TRUE SO THE DO-LOOP SHOULD BE EXECUTED  01630256
C     A TOTAL OF TEN TIMES.                                             01640256
C                                                                       01650256
C                                                                       01660256
      IVTNUM =   3                                                      01670256
      IF (ICZERO) 30030, 0030, 30030                                    01680256
 0030 CONTINUE                                                          01690256
      IVCOMP = 0                                                        01700256
      LVON01 = .TRUE.                                                   01710256
      IF ( LVON01 )  THEN                                               01720256
           DO 0032, IVON01 = 1, 10, 1                                   01730256
           IVCOMP = IVCOMP + 1                                          01740256
 0032      CONTINUE                                                     01750256
      END IF                                                            01760256
      IVCORR = 10                                                       01770256
40030 IF ( IVCOMP - 10 )  20030, 10030, 20030                           01780256
30030 IVDELE = IVDELE + 1                                               01790256
      WRITE (I02,80000) IVTNUM                                          01800256
      IF (ICZERO) 10030, 0041, 20030                                    01810256
10030 IVPASS = IVPASS + 1                                               01820256
      WRITE (I02,80002) IVTNUM                                          01830256
      GO TO 0041                                                        01840256
20030 IVFAIL = IVFAIL + 1                                               01850256
      WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR                          01860256
 0041 CONTINUE                                                          01870256
C                                                                       01880256
C     ****  FCVS PROGRAM 256  -  TEST 004  ****                         01890256
C                                                                       01900256
C        TEST 004 IS SIMILAR TO THE PREVIOUS TEST EXCEPT THAT THE DO    01910256
C     STATEMENT IS LOCATED IN AN ELSE IF-BLOCK.  THE DO-LOOP SHOULD BE  01920256
C     EXECUTED FIVE (5) TIMES.                                          01930256
C                                                                       01940256
C                                                                       01950256
      IVTNUM =   4                                                      01960256
      IF (ICZERO) 30040, 0040, 30040                                    01970256
 0040 CONTINUE                                                          01980256
      IVCOMP = 0                                                        01990256
      LVON01 = .FALSE.                                                  02000256
      LVON02 = .TRUE.                                                   02010256
      IF ( LVON01 )  THEN                                               02020256
           IVCOMP = 32000                                               02030256
      ELSE IF ( LVON02 )  THEN                                          02040256
           DO 0042 IVON01 = 1, 5                                        02050256
           IVCOMP = IVCOMP + 1                                          02060256
 0042      CONTINUE                                                     02070256
      END IF                                                            02080256
      IVCORR = 5                                                        02090256
40040 IF ( IVCOMP - 5 )  20040, 10040, 20040                            02100256
30040 IVDELE = IVDELE + 1                                               02110256
      WRITE (I02,80000) IVTNUM                                          02120256
      IF (ICZERO) 10040, 0051, 20040                                    02130256
10040 IVPASS = IVPASS + 1                                               02140256
      WRITE (I02,80002) IVTNUM                                          02150256
      GO TO 0051                                                        02160256
20040 IVFAIL = IVFAIL + 1                                               02170256
      WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR                          02180256
 0051 CONTINUE                                                          02190256
C                                                                       02200256
C     ****  FCVS PROGRAM 256  -  TEST 005  ****                         02210256
C                                                                       02220256
C        TEST 005 IS SIMILAR TO THE PREVIOUS TWO TESTS EXCEPT THAT THE  02230256
C     DO STATEMENT IS CONTAINED IN AN ELSE-BLOCK.  THE DO-LOOP SHOULD BE02240256
C     EXECUTED A TOTAL OF 3 TIMES.                                      02250256
C                                                                       02260256
C                                                                       02270256
      IVTNUM =   5                                                      02280256
      IF (ICZERO) 30050, 0050, 30050                                    02290256
 0050 CONTINUE                                                          02300256
      IVCOMP = 0                                                        02310256
      LVON01 = .FALSE.                                                  02320256
      LVON02 = .FALSE.                                                  02330256
      IF ( LVON01 )  THEN                                               02340256
           IVCOMP = 100                                                 02350256
      ELSE IF ( LVON02 )  THEN                                          02360256
           IVCOMP = 1000                                                02370256
      ELSE                                                              02380256
           DO 0052, IVON01 = 1, 3                                       02390256
           IVCOMP = IVCOMP + 1                                          02400256
 0052      CONTINUE                                                     02410256
      END IF                                                            02420256
      IVCORR = 3                                                        02430256
40050 IF ( IVCOMP - 3 )  20050, 10050, 20050                            02440256
30050 IVDELE = IVDELE + 1                                               02450256
      WRITE (I02,80000) IVTNUM                                          02460256
      IF (ICZERO) 10050, 0061, 20050                                    02470256
10050 IVPASS = IVPASS + 1                                               02480256
      WRITE (I02,80002) IVTNUM                                          02490256
      GO TO 0061                                                        02500256
20050 IVFAIL = IVFAIL + 1                                               02510256
      WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR                          02520256
 0061 CONTINUE                                                          02530256
C                                                                       02540256
C     ****  FCVS PROGRAM 256  -  TEST 006  ****                         02550256
C                                                                       02560256
C        TEST 006 HAS A BLOCKED IF STRUCTURE INSIDE A DO-LOOP.          02570256
C     THE LOOP IS EXECUTED THREE (3) TIMES.  ALL THREE PARTS OF THE     02580256
C     BLOCK-IF STRUCTURE SHOULD BE EXECUTED.                            02590256
C                                                                       02600256
C                                                                       02610256
      IVTNUM =   6                                                      02620256
      IF (ICZERO) 30060, 0060, 30060                                    02630256
 0060 CONTINUE                                                          02640256
      IVCOMP = 1                                                        02650256
      DO 0062, IVON01 = 3, 5, 1                                         02660256
      IF ( IVON01 .LE. 3 )  THEN                                        02670256
           IVCOMP = IVCOMP * 2                                          02680256
      ELSE IF ( IVON01 .GT. 3 .AND. IVON01 .LT. 5 )  THEN               02690256
           IVCOMP = IVCOMP * 3                                          02700256
      ELSE                                                              02710256
           IVCOMP = IVCOMP * 5                                          02720256
      END IF                                                            02730256
 0062 CONTINUE                                                          02740256
C                                                                       02750256
C        **** IVCOMP IS DETERMINED BY IVCOMP = 30 = 1 * 2 * 3 * 5   ****02760256
C                                                                       02770256
      IVCORR = 30                                                       02780256
40060 IF ( IVCOMP - 30 )  20060, 10060, 20060                           02790256
30060 IVDELE = IVDELE + 1                                               02800256
      WRITE (I02,80000) IVTNUM                                          02810256
      IF (ICZERO) 10060, 0071, 20060                                    02820256
10060 IVPASS = IVPASS + 1                                               02830256
      WRITE (I02,80002) IVTNUM                                          02840256
      GO TO 0071                                                        02850256
20060 IVFAIL = IVFAIL + 1                                               02860256
      WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR                          02870256
 0071 CONTINUE                                                          02880256
C                                                                       02890256
C                                                                       02900256
C        THE FOLLOWING SERIES OF TESTS CHECK THE DO-VARIABLE WHEN THE   02910256
C     DO-LOOP BECOMES INACTIVE.  ACCORDING TO SECTION 11.10.2,  WHEN A  02920256
C     DO-LOOP BECOMES INACTIVE, THE DO-VARIABLE OF THE DO-LOOP RETAINS  02930256
C     ITS LAST DEFINED VALUE.                                           02940256
C                                                                       02950256
C                                                                       02960256
C                                                                       02970256
C     ****  FCVS PROGRAM 256  -  TEST 007  ****                         02980256
C                                                                       02990256
C        TEST 007 CHECKS THAT THE DO-VARIABLE CONTAINS ITS LAST DEFINED 03000256
C     VALUE WHEN THE ITERATION COUNT IS ZERO.                           03010256
C                                                                       03020256
C                                                                       03030256
      IVTNUM =   7                                                      03040256
      IF (ICZERO) 30070, 0070, 30070                                    03050256
 0070 CONTINUE                                                          03060256
      IVCOMP = 0                                                        03070256
      IVON02 = 0                                                        03080256
      DO 0072 IVON01 = 100, 105, 2                                      03090256
      IVON02 = IVON02 + 1                                               03100256
 0072 CONTINUE                                                          03110256
      IVCOMP = IVON01                                                   03120256
      IVCORR = 106                                                      03130256
40070 IF ( IVCOMP - 106 )  20070, 10070, 20070                          03140256
30070 IVDELE = IVDELE + 1                                               03150256
      WRITE (I02,80000) IVTNUM                                          03160256
      IF (ICZERO) 10070, 0081, 20070                                    03170256
10070 IVPASS = IVPASS + 1                                               03180256
      WRITE (I02,80002) IVTNUM                                          03190256
      GO TO 0081                                                        03200256
20070 IVFAIL = IVFAIL + 1                                               03210256
      WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR                          03220256
 0081 CONTINUE                                                          03230256
C                                                                       03240256
C     ****  FCVS PROGRAM 256  -  TEST 008  ****                         03250256
C                                                                       03260256
C        TEST 008 CHECKS THAT THE LOOP COUNTER IN THE PREVIOUS TEST HAD 03270256
C     A VALUE OF THREE TO SHOW THAT THE DO-LOOP WAS EXECUTED THREE TIMES03280256
C     BEFORE TERMINATING ( BECOMMING INACTIVE ).                        03290256
C                                                                       03300256
C                                                                       03310256
      IVTNUM =   8                                                      03320256
      IF (ICZERO) 30080, 0080, 30080                                    03330256
 0080 CONTINUE                                                          03340256
      IVCOMP = 0                                                        03350256
      IVCOMP = IVON02                                                   03360256
      IVCORR = 3                                                        03370256
40080 IF ( IVCOMP - 3 )  20080, 10080, 20080                            03380256
30080 IVDELE = IVDELE + 1                                               03390256
      WRITE (I02,80000) IVTNUM                                          03400256
      IF (ICZERO) 10080, 0091, 20080                                    03410256
10080 IVPASS = IVPASS + 1                                               03420256
      WRITE (I02,80002) IVTNUM                                          03430256
      GO TO 0091                                                        03440256
20080 IVFAIL = IVFAIL + 1                                               03450256
      WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR                          03460256
 0091 CONTINUE                                                          03470256
C                                                                       03480256
C     ****  FCVS PROGRAM 256  -  TEST 009  ****                         03490256
C                                                                       03500256
C        TEST 009 CHECKS THAT A DO-LOOP BECOMES INACTIVE IF THERE IS A  03510256
C     TRANSFER OF CONTROL OUTSIDE THE RANGE OF THE DO-LOOP.  THE TRANS- 03520256
C     FER MUST BE INSIDE OF THE SAME PROGRAM UNIT - NOT A CALL OR       03530256
C     FUNCTION REFERENCE TO A SUBPROGRAM.                               03540256
C                                                                       03550256
C        THIS IS A SIGNIFICANT DIFFERENCE BETWEEN FORTRAN 66 AND FORTRAN03560256
C     77.  FORTRAN 66 HAD AN EXTENDED RANGE OF THE DO FEATURE WHICH     03570256
C     ALLOWED FOR A TRANSFER OUTSIDE THE RANGE OF A DO-LOOP WITHOUT     03580256
C     MAKING THE DO-LOOP INACTIVE.                                      03590256
C                                                                       03600256
C                                                                       03610256
      IVTNUM =   9                                                      03620256
      IF (ICZERO) 30090, 0090, 30090                                    03630256
 0090 CONTINUE                                                          03640256
      IVCOMP = 0                                                        03650256
      DO 0092 IVON01 = 1, 7                                             03660256
      IF ( IVON01 .GE. 3 )  GO TO 0093                                  03670256
 0092 CONTINUE                                                          03680256
 0093 IVCOMP = IVON01                                                   03690256
      IVCORR = 3                                                        03700256
40090 IF ( IVCOMP - 3 )  20090, 10090, 20090                            03710256
30090 IVDELE = IVDELE + 1                                               03720256
      WRITE (I02,80000) IVTNUM                                          03730256
      IF (ICZERO) 10090, 0101, 20090                                    03740256
10090 IVPASS = IVPASS + 1                                               03750256
      WRITE (I02,80002) IVTNUM                                          03760256
      GO TO 0101                                                        03770256
20090 IVFAIL = IVFAIL + 1                                               03780256
      WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR                          03790256
 0101 CONTINUE                                                          03800256
C                                                                       03810256
C     ****  FCVS PROGRAM 256  -  TEST 010  ****                         03820256
C                                                                       03830256
C        TEST 010 CHECKS FOR AN INITIAL COUNT EQUAL TO ZERO BECAUSE     03840256
C     M1 IS GREATER THAN M2 AND M3 IS GREATER THAN ZERO - SEE SECTION   03850256
C     11.10.3 FOR CONDITIONS WHICH MAKE THE ITERATION COUNT ZERO.       03860256
C     THE LOOP SHOULD NOT BE EXECUTED AT ALL.                           03870256
C                                                                       03880256
C                                                                       03890256
      IVTNUM =  10                                                      03900256
      IF (ICZERO) 30100, 0100, 30100                                    03910256
 0100 CONTINUE                                                          03920256
      IVCOMP = 0                                                        03930256
      DO 0102, IVON01 = 100, 10, 3                                      03940256
      IVCOMP = IVCOMP + 1                                               03950256
 0102 CONTINUE                                                          03960256
      IVCORR = 0                                                        03970256
40100 IF ( IVCOMP )  20100, 10100, 20100                                03980256
30100 IVDELE = IVDELE + 1                                               03990256
      WRITE (I02,80000) IVTNUM                                          04000256
      IF (ICZERO) 10100, 0111, 20100                                    04010256
10100 IVPASS = IVPASS + 1                                               04020256
      WRITE (I02,80002) IVTNUM                                          04030256
      GO TO 0111                                                        04040256
20100 IVFAIL = IVFAIL + 1                                               04050256
      WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR                          04060256
 0111 CONTINUE                                                          04070256
C                                                                       04080256
C     ****  FCVS PROGRAM 256  -  TEST 011  ****                         04090256
C                                                                       04100256
C        TEST 011 CHECKS FOR THE PROPER EXECUTION OF THE STEPS AS SHOWN 04110256
C     IN SECTION 11.10.3 - EXECUTING A DO STATEMENT.  THE VARIABLE IVON004120256
C     SHOULD HAVE BEEN SET TO 100.  THE ITERATION COUNT IS ZERO BY THE  04130256
C     FORMULA IN 11.10.3(3). AS DESCRIBED IN SECTION 11.10.4 - THE      04140256
C     ITERATION COUNT IS TESTED.  IF IT IS NOT ZERO, EXECUTION OF THE   04150256
C     FIRST STATEMENT IN THE RANGE OF THE DO-LOOP BEGINS.  IF THE       04160256
C     ITERATION COUNT IS ZERO, THE DO-LOOP BECOMES INACTIVE.            04170256
C                                                                       04180256
C                                                                       04190256
      IVTNUM =  11                                                      04200256
      IF (ICZERO) 30110, 0110, 30110                                    04210256
 0110 CONTINUE                                                          04220256
      IVCOMP = 0                                                        04230256
      IVCOMP = IVON01                                                   04240256
      IVCORR = 100                                                      04250256
40110 IF ( IVCOMP - 100 )  20110, 10110, 20110                          04260256
30110 IVDELE = IVDELE + 1                                               04270256
      WRITE (I02,80000) IVTNUM                                          04280256
      IF (ICZERO) 10110, 0121, 20110                                    04290256
10110 IVPASS = IVPASS + 1                                               04300256
      WRITE (I02,80002) IVTNUM                                          04310256
      GO TO 0121                                                        04320256
20110 IVFAIL = IVFAIL + 1                                               04330256
      WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR                          04340256
 0121 CONTINUE                                                          04350256
C                                                                       04360256
C                                                                       04370256
C        THE FOLLOWING TWO TESTS ARE SIMILAR TO THE PREVIOUS TWO TESTS  04380256
C     IN THAT THE PARAMETERS OF THE DO STATEMENT MAKE THE ITERATION     04390256
C     COUNT ZERO WHEN THE DO STATEMENT IS EXECUTED.                     04400256
C                                                                       04410256
C                                                                       04420256
C                                                                       04430256
C     ****  FCVS PROGRAM 256  -  TEST 012  ****                         04440256
C                                                                       04450256
C        TEST 012 HAS M1 LESS THAN M2, BUT M3 IS NEGATIVE.  THE LOOP    04460256
C     SHOULD NOT BE EXECUTED AT ALL.                                    04470256
C                                                                       04480256
C                                                                       04490256
      IVTNUM =  12                                                      04500256
      IF (ICZERO) 30120, 0120, 30120                                    04510256
 0120 CONTINUE                                                          04520256
      IVCOMP = 0                                                        04530256
      DO 0122 IVON01 = 10, 100, -3                                      04540256
      IVCOMP = IVCOMP + 1                                               04550256
 0122 CONTINUE                                                          04560256
      IVCORR = 0                                                        04570256
40120 IF ( IVCOMP )  20120, 10120, 20120                                04580256
30120 IVDELE = IVDELE + 1                                               04590256
      WRITE (I02,80000) IVTNUM                                          04600256
      IF (ICZERO) 10120, 0131, 20120                                    04610256
10120 IVPASS = IVPASS + 1                                               04620256
      WRITE (I02,80002) IVTNUM                                          04630256
      GO TO 0131                                                        04640256
20120 IVFAIL = IVFAIL + 1                                               04650256
      WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR                          04660256
 0131 CONTINUE                                                          04670256
C                                                                       04680256
C     ****  FCVS PROGRAM 256  -  TEST 013  ****                         04690256
C                                                                       04700256
C        TEST 013 CHECKS THAT THE VALUE RETAINED FOR THE DO-VARIABLE    04710256
C     IN THE PREVIOUS TEST IS EQUAL TO THE INITIAL PARAMETER VALUE - M3.04720256
C                                                                       04730256
C                                                                       04740256
      IVTNUM =  13                                                      04750256
      IF (ICZERO) 30130, 0130, 30130                                    04760256
 0130 CONTINUE                                                          04770256
      IVCOMP = 0                                                        04780256
      IVCOMP = IVON01                                                   04790256
      IVCORR = 10                                                       04800256
40130 IF ( IVCOMP - 10 )  20130, 10130, 20130                           04810256
30130 IVDELE = IVDELE + 1                                               04820256
      WRITE (I02,80000) IVTNUM                                          04830256
      IF (ICZERO) 10130, 0141, 20130                                    04840256
10130 IVPASS = IVPASS + 1                                               04850256
      WRITE (I02,80002) IVTNUM                                          04860256
      GO TO 0141                                                        04870256
20130 IVFAIL = IVFAIL + 1                                               04880256
      WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR                          04890256
 0141 CONTINUE                                                          04900256
C                                                                       04910256
C     ****  FCVS PROGRAM 256  -  TEST 014  ****                         04920256
C                                                                       04930256
C        TEST 014 CHECKS FOR ONE EXECUTION OF THE RANGE OF A DO-LOOP    04940256
C     ACCORDING TO THE FORMULA SHOWN IN 11.10.3(3) WITH M1 = M2.        04950256
C                                                                       04960256
C        THE DO-LOOPS IN THIS TEST ARE A NEST OF THREE EACH WITH ITS    04970256
C     OWN TERMINAL STATEMENT.                                           04980256
C                                                                       04990256
C                                                                       05000256
      IVTNUM =  14                                                      05010256
      IF (ICZERO) 30140, 0140, 30140                                    05020256
 0140 CONTINUE                                                          05030256
      IVCOMP = 1                                                        05040256
      DO 0144 IVON01 = 1, 1, 1                                          05050256
           IVCOMP = IVCOMP * 2                                          05060256
           DO 0143 IVON02 = 10,10,10                                    05070256
                IVCOMP = IVCOMP * 3                                     05080256
                DO 0142, IVON03 = 100, 100, -2                          05090256
                     IVCOMP = IVCOMP * 5                                05100256
 0142           CONTINUE                                                05110256
 0143      CONTINUE                                                     05120256
 0144 CONTINUE                                                          05130256
C                                                                       05140256
C        **** IVCOMP IS DETERMINED BY IVCOMP = 30 = 1 * 2 * 3 * 5    ***05150256
C                                                                       05160256
      IVCORR = 30                                                       05170256
40140 IF ( IVCOMP - 30 )  20140, 10140, 20140                           05180256
30140 IVDELE = IVDELE + 1                                               05190256
      WRITE (I02,80000) IVTNUM                                          05200256
      IF (ICZERO) 10140, 0151, 20140                                    05210256
10140 IVPASS = IVPASS + 1                                               05220256
      WRITE (I02,80002) IVTNUM                                          05230256
      GO TO 0151                                                        05240256
20140 IVFAIL = IVFAIL + 1                                               05250256
      WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR                          05260256
 0151 CONTINUE                                                          05270256
C                                                                       05280256
C     ****  FCVS PROGRAM 256  -  TEST 015  ****                         05290256
C                                                                       05300256
C        TEST 015 IS A CHECK ON THE FIRST EXAMPLE SHOWN IN SECTION      05310256
C     11.10.7.  THIS IS A TEST OF INCREMENTATION PROCESSING OF TWO NEST 05320256
C     DO-LOOPS HAVING THE SAME TERMINAL STATEMENT.                      05330256
C                                                                       05340256
C        THIS IS A TEST OF A DO-LOOP THAT BECOMES ACTIVE INSIDE AN      05350256
C     ALREADY ACTIVE DO-LOOP.                                           05360256
C                                                                       05370256
C                                                                       05380256
      IVTNUM =  15                                                      05390256
      IF (ICZERO) 30150, 0150, 30150                                    05400256
 0150 CONTINUE                                                          05410256
      IVCOMP = 0                                                        05420256
      IVON01 = 0                                                        05430256
      DO 0152 IVON02 = 1, 10                                            05440256
      IVON03 = IVON02                                                   05450256
      DO 0152 IVON04 = 1, 5                                             05460256
      IVON05 = IVON04                                                   05470256
 0152 IVON01 = IVON01 + 1                                               05480256
 0153 CONTINUE                                                          05490256
      IVCOMP = IVON02                                                   05500256
C     THIS IS THE VALUE FOR I IN THE EXAMPLE.                           05510256
      IVCORR = 11                                                       05520256
40150 IF ( IVCOMP - 11 )  20150, 10150, 20150                           05530256
30150 IVDELE = IVDELE + 1                                               05540256
      WRITE (I02,80000) IVTNUM                                          05550256
      IF (ICZERO) 10150, 0161, 20150                                    05560256
10150 IVPASS = IVPASS + 1                                               05570256
      WRITE (I02,80002) IVTNUM                                          05580256
      GO TO 0161                                                        05590256
20150 IVFAIL = IVFAIL + 1                                               05600256
      WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR                          05610256
 0161 CONTINUE                                                          05620256
C                                                                       05630256
C     ****  FCVS PROGRAM 256  -  TEST 016  ****                         05640256
C                                                                       05650256
C        TEST 016 CHECKS THE VALUE OF J (IVON03) IN THE FIRST EXAMPLE.  05660256
C                                                                       05670256
C                                                                       05680256
      IVTNUM =  16                                                      05690256
      IF (ICZERO) 30160, 0160, 30160                                    05700256
 0160 CONTINUE                                                          05710256
      IVCOMP = 0                                                        05720256
      IVCOMP = IVON03                                                   05730256
      IVCORR = 10                                                       05740256
40160 IF ( IVCOMP - 10 )  20160, 10160, 20160                           05750256
30160 IVDELE = IVDELE + 1                                               05760256
      WRITE (I02,80000) IVTNUM                                          05770256
      IF (ICZERO) 10160, 0171, 20160                                    05780256
10160 IVPASS = IVPASS + 1                                               05790256
      WRITE (I02,80002) IVTNUM                                          05800256
      GO TO 0171                                                        05810256
20160 IVFAIL = IVFAIL + 1                                               05820256
      WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR                          05830256
 0171 CONTINUE                                                          05840256
C                                                                       05850256
C     ****  FCVS PROGRAM 256  -  TEST 017  ****                         05860256
C                                                                       05870256
C        TEST 017 CHECKS THE VALUE OF K (IVON04) IN THE FIRST EXAMPLE.  05880256
C                                                                       05890256
C                                                                       05900256
      IVTNUM =  17                                                      05910256
      IF (ICZERO) 30170, 0170, 30170                                    05920256
 0170 CONTINUE                                                          05930256
      IVCOMP = 0                                                        05940256
      IVCOMP = IVON04                                                   05950256
      IVCORR = 6                                                        05960256
40170 IF ( IVCOMP - 6  )  20170, 10170, 20170                           05970256
30170 IVDELE = IVDELE + 1                                               05980256
      WRITE (I02,80000) IVTNUM                                          05990256
      IF (ICZERO) 10170, 0181, 20170                                    06000256
10170 IVPASS = IVPASS + 1                                               06010256
      WRITE (I02,80002) IVTNUM                                          06020256
      GO TO 0181                                                        06030256
20170 IVFAIL = IVFAIL + 1                                               06040256
      WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR                          06050256
 0181 CONTINUE                                                          06060256
C                                                                       06070256
C     ****  FCVS PROGRAM 256  -  TEST 018  ****                         06080256
C                                                                       06090256
C        TEST 018 CHECKS THE VALUE OF L (IVON05) IN THE FIRST EXAMPLE.  06100256
C                                                                       06110256
C                                                                       06120256
      IVTNUM =  18                                                      06130256
      IF (ICZERO) 30180, 0180, 30180                                    06140256
 0180 CONTINUE                                                          06150256
      IVCOMP = 0                                                        06160256
      IVCOMP = IVON05                                                   06170256
      IVCORR = 5                                                        06180256
40180 IF ( IVCOMP - 5  )  20180, 10180, 20180                           06190256
30180 IVDELE = IVDELE + 1                                               06200256
      WRITE (I02,80000) IVTNUM                                          06210256
      IF (ICZERO) 10180, 0191, 20180                                    06220256
10180 IVPASS = IVPASS + 1                                               06230256
      WRITE (I02,80002) IVTNUM                                          06240256
      GO TO 0191                                                        06250256
20180 IVFAIL = IVFAIL + 1                                               06260256
      WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR                          06270256
 0191 CONTINUE                                                          06280256
C                                                                       06290256
C     ****  FCVS PROGRAM 256  -  TEST 019  ****                         06300256
C                                                                       06310256
C        TEST 019 CHECKS THE VALUE OF N (IVON01) IN THE FIRST EXAMPLE.  06320256
C                                                                       06330256
C                                                                       06340256
      IVTNUM =  19                                                      06350256
      IF (ICZERO) 30190, 0190, 30190                                    06360256
 0190 CONTINUE                                                          06370256
      IVCOMP = 0                                                        06380256
      IVCOMP = IVON01                                                   06390256
      IVCORR = 50                                                       06400256
40190 IF ( IVCOMP - 50 )  20190, 10190, 20190                           06410256
30190 IVDELE = IVDELE + 1                                               06420256
      WRITE (I02,80000) IVTNUM                                          06430256
      IF (ICZERO) 10190, 0201, 20190                                    06440256
10190 IVPASS = IVPASS + 1                                               06450256
      WRITE (I02,80002) IVTNUM                                          06460256
      GO TO 0201                                                        06470256
20190 IVFAIL = IVFAIL + 1                                               06480256
      WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR                          06490256
 0201 CONTINUE                                                          06500256
C                                                                       06510256
C     ****  FCVS PROGRAM 256  -  TEST 020  ****                         06520256
C                                                                       06530256
C        TEST 020 IS A CHECK ON THE SECOND EXAMPLE IN SECTION 11.10.7.  06540256
C     IN THIS EXAMPLE, THE INNER DO-LOOP BECOMES ACTIVE AND THEN        06550256
C     IMMEDIATELY INACTIVE INSIDE AN ALREADY ACTIVE OUTER DO-LOOP.      06560256
C                                                                       06570256
C        ALTHOUGH IN SOME WAYS SIMILAR TO THE FIRST EXAMPLE, THE SECOND 06580256
C     EXAMPLE SHOULD HAVE DIFFERENT FINAL VALUES ON THE INTEGER COUNTERS06590256
C     AND THE VALUE OF L (IVON10) WILL NOT BE TESTED BECAUSE IT IS NOT  06600256
C     DEFINED DURING THE RANGE OF THE DO-LOOP INVOLVED.                 06610256
C                                                                       06620256
C                                                                       06630256
      IVTNUM =  20                                                      06640256
      IF (ICZERO) 30200, 0200, 30200                                    06650256
 0200 CONTINUE                                                          06660256
      IVCOMP = 0                                                        06670256
      IVON06 = 0                                                        06680256
      DO 0202 IVON07 = 1, 10                                            06690256
      IVON08 = IVON07                                                   06700256
      DO 0202 IVON09 = 5, 1                                             06710256
      IVON10 = IVON09                                                   06720256
 0202 IVON06 = IVON06 + 1                                               06730256
 0203 CONTINUE                                                          06740256
      IVCOMP = IVON07                                                   06750256
C     THIS IS THE VALUE FOR I IN THE SECOND EXAMPLE.                    06760256
      IVCORR = 11                                                       06770256
40200 IF ( IVCOMP - 11 )  20200, 10200, 20200                           06780256
30200 IVDELE = IVDELE + 1                                               06790256
      WRITE (I02,80000) IVTNUM                                          06800256
      IF (ICZERO) 10200, 0211, 20200                                    06810256
10200 IVPASS = IVPASS + 1                                               06820256
      WRITE (I02,80002) IVTNUM                                          06830256
      GO TO 0211                                                        06840256
20200 IVFAIL = IVFAIL + 1                                               06850256
      WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR                          06860256
 0211 CONTINUE                                                          06870256
C                                                                       06880256
C     ****  FCVS PROGRAM 256  -  TEST 021  ****                         06890256
C                                                                       06900256
C        TEST 021 CHECKS THE VALUE OF J (IVON08) IN THE SECOND EXAMPLE. 06910256
C                                                                       06920256
C                                                                       06930256
      IVTNUM =  21                                                      06940256
      IF (ICZERO) 30210, 0210, 30210                                    06950256
 0210 CONTINUE                                                          06960256
      IVCOMP = 0                                                        06970256
      IVCOMP = IVON08                                                   06980256
      IVCORR = 10                                                       06990256
40210 IF ( IVCOMP - 10 )  20210, 10210, 20210                           07000256
30210 IVDELE = IVDELE + 1                                               07010256
      WRITE (I02,80000) IVTNUM                                          07020256
      IF (ICZERO) 10210, 0221, 20210                                    07030256
10210 IVPASS = IVPASS + 1                                               07040256
      WRITE (I02,80002) IVTNUM                                          07050256
      GO TO 0221                                                        07060256
20210 IVFAIL = IVFAIL + 1                                               07070256
      WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR                          07080256
 0221 CONTINUE                                                          07090256
C                                                                       07100256
C     ****  FCVS PROGRAM 256  -  TEST 022  ****                         07110256
C                                                                       07120256
C        TEST 022 CHECKS THE VALUE OF K (IVON09) IN THE SECOND EXAMPLE. 07130256
C                                                                       07140256
C                                                                       07150256
      IVTNUM =  22                                                      07160256
      IF (ICZERO) 30220, 0220, 30220                                    07170256
 0220 CONTINUE                                                          07180256
      IVCOMP = 0                                                        07190256
      IVCOMP = IVON09                                                   07200256
      IVCORR = 5                                                        07210256
40220 IF ( IVCOMP - 5  )  20220, 10220, 20220                           07220256
30220 IVDELE = IVDELE + 1                                               07230256
      WRITE (I02,80000) IVTNUM                                          07240256
      IF (ICZERO) 10220, 0231, 20220                                    07250256
10220 IVPASS = IVPASS + 1                                               07260256
      WRITE (I02,80002) IVTNUM                                          07270256
      GO TO 0231                                                        07280256
20220 IVFAIL = IVFAIL + 1                                               07290256
      WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR                          07300256
 0231 CONTINUE                                                          07310256
C                                                                       07320256
C     ****  FCVS PROGRAM 256  -  TEST 023  ****                         07330256
C                                                                       07340256
C        TEST 023 CHECKS THE VALUE OF N (IVON06) IN THE SECOND EXAMPLE. 07350256
C                                                                       07360256
C                                                                       07370256
      IVTNUM =  23                                                      07380256
      IF (ICZERO) 30230, 0230, 30230                                    07390256
 0230 CONTINUE                                                          07400256
      IVCOMP = 0                                                        07410256
      IVCOMP = IVON06                                                   07420256
      IVCORR = 0                                                        07430256
40230 IF ( IVCOMP - 0  )  20230, 10230, 20230                           07440256
30230 IVDELE = IVDELE + 1                                               07450256
      WRITE (I02,80000) IVTNUM                                          07460256
      IF (ICZERO) 10230, 0241, 20230                                    07470256
10230 IVPASS = IVPASS + 1                                               07480256
      WRITE (I02,80002) IVTNUM                                          07490256
      GO TO 0241                                                        07500256
20230 IVFAIL = IVFAIL + 1                                               07510256
      WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR                          07520256
 0241 CONTINUE                                                          07530256
C                                                                       07540256
C     ****  FCVS PROGRAM 256  -  TEST 024  ****                         07550256
C                                                                       07560256
C        TEST 024 IS A CHECK ON USING A LOGICAL IF STATEMENT AS THE     07570256
C     TERMINAL STATEMENT IN THE RANGE OF A DO-LOOP.  THE LOGICAL IF     07580256
C     STATEMENT HAS AN UNCONDITIONAL GO TO STATEMENT AS ITS EXECUTABLE  07590256
C     STATEMENT  AS ALLOWED IN SECTION 11.10.                           07600256
C                                                                       07610256
C                                                                       07620256
      IVTNUM =  24                                                      07630256
      IF (ICZERO) 30240, 0240, 30240                                    07640256
 0240 CONTINUE                                                          07650256
      IVCOMP = 0                                                        07660256
      DO 0242 IVON01 = 1, 10                                            07670256
      IVCOMP = IVCOMP + 1                                               07680256
 0242 IF ( IVON01 .GE. 5 )  GO TO 0243                                  07690256
C                                                                       07700256
C                                                                       07710256
C     IF THE LOGIC DOES NOT BRANCH OUT OF THE RANGE OF THE DO-LOOP WHEN 07720256
C     THE DO-VARIABLE (IVON01) IS EQUAL TO FIVE (5), THEN IVCOMP WILL BE07730256
C     SET BACK TO THE VALUE OF ZERO.                                    07740256
C                                                                       07750256
      IVCOMP = 0                                                        07760256
C                                                                       07770256
C                                                                       07780256
 0243 IVCORR = 5                                                        07790256
40240 IF ( IVCOMP - 5 )  20240, 10240, 20240                            07800256
30240 IVDELE = IVDELE + 1                                               07810256
      WRITE (I02,80000) IVTNUM                                          07820256
      IF (ICZERO) 10240, 0251, 20240                                    07830256
10240 IVPASS = IVPASS + 1                                               07840256
      WRITE (I02,80002) IVTNUM                                          07850256
      GO TO 0251                                                        07860256
20240 IVFAIL = IVFAIL + 1                                               07870256
      WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR                          07880256
 0251 CONTINUE                                                          07890256
C                                                                       07900256
C                                                                       07910256
C     WRITE OUT TEST SUMMARY                                            07920256
C                                                                       07930256
      WRITE (I02,90004)                                                 07940256
      WRITE (I02,90014)                                                 07950256
      WRITE (I02,90004)                                                 07960256
      WRITE (I02,90000)                                                 07970256
      WRITE (I02,90004)                                                 07980256
      WRITE (I02,90020) IVFAIL                                          07990256
      WRITE (I02,90022) IVPASS                                          08000256
      WRITE (I02,90024) IVDELE                                          08010256
      STOP                                                              08020256
90001 FORMAT (" ",24X,"FM256")                                          08030256
90000 FORMAT (" ",20X,"END OF PROGRAM FM256" )                          08040256
C                                                                       08050256
C     FORMATS FOR TEST DETAIL LINES                                     08060256
C                                                                       08070256
80000 FORMAT (" ",4X,I5,6X,"DELETED")                                   08080256
80002 FORMAT (" ",4X,I5,7X,"PASS")                                      08090256
80010 FORMAT (" ",4X,I5,7X,"FAIL",10X,I6,9X,I6)                         08100256
80012 FORMAT (" ",4X,I5,7X,"FAIL",4X,E12.5,3X,E12.5)                    08110256
80018 FORMAT (" ",4X,I5,7X,"FAIL",2X,A14,1X,A14)                        08120256
C                                                                       08130256
C     FORMAT STATEMENTS FOR PAGE HEADERS                                08140256
C                                                                       08150256
90002 FORMAT ("1")                                                      08160256
90004 FORMAT (" ")                                                      08170256
90006 FORMAT (" ",10X,"FORTRAN COMPILER VALIDATION SYSTEM" )            08180256
90008 FORMAT (" ",21X,"VERSION 2.1" )                                   08190256
90010 FORMAT (" ",8X,"FOR OFFICIAL USE ONLY - COPYRIGHT 1978" )         08200256
90012 FORMAT (" ",5X,"TEST",5X,"PASS/FAIL",5X,"COMPUTED",8X,"CORRECT")  08210256
90014 FORMAT (" ",5X,"----------------------------------------------" ) 08220256
90016 FORMAT (" ",18X,"SUBSET LEVEL TEST" )                             08230256
C                                                                       08240256
C     FORMAT STATEMENTS FOR RUN SUMMARY                                 08250256
C                                                                       08260256
90020 FORMAT (" ",19X,I5," TESTS FAILED" )                              08270256
90022 FORMAT (" ",19X,I5," TESTS PASSED" )                              08280256
90024 FORMAT (" ",19X,I5," TESTS DELETED" )                             08290256
      END                                                               08300256