C
C     COMMENT SECTION.
C
C     FM012N
C
C             THIS ROUTINE TESTS THE FORTRAN DO - STATEMENT FROM ITS
C     SIMPLIST FORMAT TO THE MORE ABBREVIATED FORMS.  VARIOUS INCREMENTS0
C     ARE USED AND BRANCHING BY VARIOUS METHODS IS TESTED FOR PASSINGN
C     CONTROL OUT OF THE DO RANGE AND RETURNING (EXTENDED RANGE).S
C     NESTED DO STATEMENTS USING VARIOUS TERMINATING STATEMENTS ARE ALSO0
C     TESTED BY THIS ROUTINE.I
C
C      REFERENCESH
C        AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN,R
C              X3.9-1978A
C
C        SECTION 11.10, DO STATEMENTP
C        SECTION 11.10.3, EXECUTES A DO LOOPI
C        SECTION 11.11, CONTINUE STATEMENTO
C
C
C      **********************************************************R
C
C         A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE*
C     BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN NATIONAL STANDARDS
C     PROGRAMMING LANGUAGE FORTRAN X3.9-1978, HAS BEEN DEVELOPED BY THEO
C     FEDERAL COBOL COMPILER TESTING SERVICE.  THE FORTRAN COMPILER
C     VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT ROUTINES, THEIR RELATED0
C     DATA, AND AN EXECUTIVE SYSTEM.  EACH AUDIT ROUTINE IS A FORTRANT
C     PROGRAM, SUBPROGRAM OR FUNCTION WHICH INCLUDES TESTS OF SPECIFICE
C     LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING THE RESULTD
C     OF EXECUTING THESE TESTS.P
C
C         THIS PARTICULAR PROGRAM/SUBPROGRAM/FUNCTION CONTAINS FEATURESD
C     FOUND ONLY IN THE SUBSET AS DEFINED IN X3.9-1978.O
C
C         SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO -I
C
C                  DEPARTMENT OF THE NAVY
C                  FEDERAL COBOL COMPILER TESTING SERVICE
C                  WASHINGTON, D.C.  20376T
C
C      **********************************************************A
C
C
C
C     INITIALIZATION SECTION*
C
C     INITIALIZE CONSTANTSO
C      **************T
C     I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER.*
      I01 = 5T
C     I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER.D
      I02 = 6T
C     SYSTEM ENVIRONMENT SECTIONN
C
CX010    THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-010 CONTROL CARD.D
C     THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5C
C     (UNIT NUMBER FOR CARD READER).N
CX011    THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD.D
C     THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONALN
C     FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE.O
C
CX020    THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-020 CONTROL CARD.D
C     THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6C
C     (UNIT NUMBER FOR PRINTER).R
CX021    THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD.D
C     THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONALN
C     FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE.O
C
      IVPASS=0S
      IVFAIL=0S
      IVDELE=0S
      ICZERO=0S
C
C     WRITE PAGE HEADERS
      WRITE (I02,90000)S
      WRITE (I02,90001)S
      WRITE (I02,90002)S
      WRITE (I02, 90002)
      WRITE (I02,90003))
      WRITE (I02,90002))
      WRITE (I02,90004))
      WRITE (I02,90002))
      WRITE (I02,90011))
      WRITE (I02,90002))
      WRITE (I02,90002))
      WRITE (I02,90005))
      WRITE (I02,90006))
      WRITE (I02,90002))
      IVTNUM = 1100
C
C     TEST 110  -  DO STATEMENT WITH THE COMPLETE FORMAT, INCREMENT OF 10
C           THE LOOP SHOULD BE EXECUTED TEN (10) TIMES THUS THE LOOPO
C           COUNTER SHOULD HAVE A VALUE OF TEN AT THE COMPLETION OF THE1
C           DO-LOOP.S
C
C
      IF (ICZERO) 31100, 1100, 31100L
 1100 CONTINUER
      IVON01=0R
      DO 1102 I=1,10,10
      IVON01=IVON01+11
 1102 CONTINUEV
      GO TO 411000
31100 IVDELE = IVDELE + 11
      WRITE (I02,80003) IVTNUM
      IF (ICZERO) 41100, 1111, 41100L
41100 IF(IVON01-10) 21100,11100,21100U
11100 IVPASS = IVPASS + 1,
      WRITE (I02,80001) IVTNUM0
      GO TO 1111,
21100 IVFAIL = IVFAIL + 1V
      IVCOMP=IVON01I
      IVCORR=10O
      WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR
 1111 CONTINUE0
      IVTNUM = 1110
C
C     TEST 111  -  SAME DO TEST AS IN TEST 110 EXCEPT THAT NO INCREMENT1
C           IS GIVEN.  THE INCREMENT SHOULD BE 1 AND THE LOOP PERFORMED1
C           TEN (10) TIMES AS BEFORE.S
C
C
      IF (ICZERO) 31110, 1110, 31110.
 1110 CONTINUER
      IVON01=0R
      DO 1112 J=1,101
      IVON01=IVON01+11
 1112 CONTINUEV
      GO TO 411100
31110 IVDELE = IVDELE + 11
      WRITE (I02,80003) IVTNUM
      IF (ICZERO) 41110, 1121, 41110.
41110 IF(IVON01-10)  21110, 11110, 21110U
11110 IVPASS = IVPASS + 10
      WRITE (I02,80001) IVTNUM1
      GO TO 1121,
21110 IVFAIL = IVFAIL + 1V
      IVCOMP=IVON01I
      IVCORR=10O
      WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR
 1121 CONTINUE0
      IVTNUM = 1120
C
C     TEST 112  -  DO STATEMENT WITH AN INCREMENT OTHER THAN ONE (1).E
C           THE DO - LOOP SHOULD BE EXECUTED FIVE (5) TIMES THUS
C           THE VALUE OF THE LOOP COUNTER SHOULD BE FIVE (5) AT THE)
C           END OF THE DO - LOOP.
C
C
      IF (ICZERO) 31120, 1120, 31120U
 1120 CONTINUER
      IVON01=0R
      DO 1122 K = 1, 10, 21
      IVON01=IVON01+11
 1122 CONTINUEV
      GO TO 411200
31120 IVDELE = IVDELE + 12
      WRITE (I02,80003) IVTNUM
      IF (ICZERO) 41120, 1131, 41120U
41120 IF (IVON01 - 5 )  21120, 11120, 21120H
11120 IVPASS = IVPASS + 11
      WRITE (I02,80001) IVTNUM
      GO TO 1131,
21120 IVFAIL = IVFAIL + 1V
      IVCOMP=IVON01I
      IVCORR=5V
      WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORRL
 1131 CONTINUE0
      IVTNUM = 1130
C
C     TEST 113  -  DO STATEMENT WITH THE INITIAL VALUE EQUAL TO THE)
C           TERMINAL VALUE.  THE DO - LOOP SHOULD BE EXECUTED ONE (1)E
C           TIME THUS THE VALUE OF THE LOOP COUNTER SHOULD BE ONE (1).D
C
C
      IF (ICZERO) 31130, 1130, 31130H
 1130 CONTINUER
      IVON01=0R
      DO 1132 L = 2, 20
      IVON01=IVON01+12
 1132 CONTINUEV
      GO TO 411300
31130 IVDELE = IVDELE + 11
      WRITE (I02,80003) IVTNUM
      IF (ICZERO) 41130, 1141, 41130H
41130 IF ( IVON01 - 1 )  21130, 11130, 21130C
11130 IVPASS = IVPASS + 12
      WRITE (I02,80001) IVTNUM,
      GO TO 1141,
21130 IVFAIL = IVFAIL + 1V
      IVCOMP=IVON01I
      IVCORR=1V
      WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORRU
 1141 CONTINUE0
      IVTNUM = 1140
C
C     TEST 114  -  THIS TESTS THE UNCONDITIONAL BRANCH OUT OF THE
C           RANGE OF THE DO USING THE GO TO STATEMENT.  THE DO INDEX)
C           SHOULD RETAIN THE VALUE IT HAD WHEN THE UNCONDITIONAL BRANCH0
C           WAS MADE.  SINCE THE DO LOOP ONLY CONTAINS AN UNCONDITIONALH
C           BRANCH, THE VALUE OF THE DO INDEX SHOULD BE ITS INITIALO
C           VALUE.  IN THIS CASE THE VALUE SHOULD BE ONE (1).N
C           SEE SECTION 11.10.S
C
C
      IF (ICZERO) 31140, 1140, 31140
 1140 CONTINUER
      DO 1142 M=1,101
      GO TO 11431
 1142 CONTINUE4
 1143 CONTINUE4
      GO TO 41140,
31140 IVDELE = IVDELE + 11
      WRITE (I02,80003) IVTNUM
      IF (ICZERO) 41140, 1151, 41140
41140 IF ( M - 1 )  21140, 11140, 21140L
11140 IVPASS = IVPASS + 1,
      WRITE (I02,80001) IVTNUM4
      GO TO 1151,
21140 IVFAIL = IVFAIL + 1V
      IVCOMP=M
      IVCORR=1
      WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORRU
 1151 CONTINUE0
      IVTNUM = 1150
C
C     TEST 115  -  THIS TEST IS SIMILAR TO TEST 114 IN THAT THE DOL
C           RANGE HAS ONLY AN UNCONDITIONAL BRANCH OUTSIDE OF THE RANGE.0
C           THE DO INDEX SHOULD AGAIN RETAIN ITS VALUE, IN THIS CASEN
C           ITS INITIAL VALUE OF ONE (1).A
C           SEE SECTION 11.10.O
C
C
      IF (ICZERO) 31150, 1150, 31150
 1150 CONTINUER
      DO 1152 N = 1, 10,
      IF ( N - 1 )  1152, 1153, 1152
 1152 CONTINUE
 1153 CONTINUE
      GO TO 41150)
31150 IVDELE = IVDELE + 1
      WRITE (I02,80003) IVTNUM,
      IF (ICZERO) 41150, 1161, 41150
41150 IF (N - 1 )  21150, 11150, 211501
11150 IVPASS = IVPASS + 1
      WRITE (I02,80001) IVTNUM0
      GO TO 1161,
21150 IVFAIL = IVFAIL + 1V
      IVCOMP=N
      IVCORR=1
      WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORRT
 1161 CONTINUE0
      IVTNUM = 1160
C
C     TEST 116  -  THIS IS A TEST OF A NEST OF TWO DO RANGES.  TWOS
C           SEPARATE CONTINUE STATEMENTS ARE USED AS TERMINAL STATEMENTS0
C           FOR THE TWO RESPECTIVE DO RANGES.  THE OUTER LOOP SHOULD BES
C           PERFORMED TEN (10) TIMES AND THE INNER LOOP SHOULD BEU
C           PERFORMED TWICE FOR EACH EXECUTION OF THE OUTER LOOP.  THEE
C           LOOP COUNTER SHOULD HAVE A VALUE OF TWENTY (20) SINCE ITH
C           IS INCREMENTED IN THE INNER DO - LOOP.E
C           SEE SECTION 11.10.3.E
C
C
      IF (ICZERO) 31160, 1160, 31160N
 1160 CONTINUER
      IVON01=0R
      DO 1163 I=1,10,10
      DO 1162 J=1,2,11
      IVON01=IVON01+11
 1162 CONTINUEV
 1163 CONTINUEV
      GO TO 411600
31160 IVDELE = IVDELE + 11
      WRITE (I02,80003) IVTNUM
      IF (ICZERO) 41160, 1171, 41160N
41160 IF ( IVON01 - 20 )  21160, 11160, 21160L
11160 IVPASS = IVPASS + 1
      WRITE (I02,80001) IVTNUM0
      GO TO 1171,
21160 IVFAIL = IVFAIL + 1V
      IVCOMP=IVON01I
      IVCORR=20O
      WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORRO
 1171 CONTINUE0
      IVTNUM = 1170
C
C     TEST 117  -  THIS IS BASICALLY THE SAME AS TEST 116 EXCEPT THATE
C           ONLY ONE CONTINUE STATEMENT IS USED AS THE TERMINATINGH
C           STATEMENT FOR BOTH OF THE DO RANGES.  THE VALUE OF THEH
C           LOOP COUNTER SHOULD AGAIN BE TWENTY (20).
C
C
      IF (ICZERO) 31170, 1170, 31170N
 1170 CONTINUER
      IVON01=0R
      DO 1172 K=1,10,10
      DO 1172 L=1,2,11
      IVON01=IVON01+11
 1172 CONTINUEV
      GO TO 411700
31170 IVDELE = IVDELE + 11
      WRITE (I02,80003) IVTNUM
      IF (ICZERO) 41170, 1181, 41170N
41170 IF (IVON01 - 20 )  21170, 11170, 21170N
11170 IVPASS = IVPASS + 12
      WRITE (I02,80001) IVTNUM,
      GO TO 1181,
21170 IVFAIL = IVFAIL + 1V
      IVCOMP=IVON01I
      IVCORR=20O
      WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORRY
 1181 CONTINUE0
      IVTNUM = 1180
C
C     TEST 118  -  THIS IS BASICALLY THE SAME TEST AS 116 EXCEPTH
C           THAT THE LOOP COUNTER INCREMENT IS THE TERMINATING STATEMENT0
C           OF BOTH OF THE DO RANGES.  THE VALUE OF THE LOOP COUNTERM
C           SHOULD BE TWENTY (20), BUT THE NUMBER OF EXECUTIONS OFE
C           THE OUTER LOOP IS NOW TWO (2) AND THE INNER LOOP EXECUTESE
C           TEN (10) TIMES FOR EVERY EXECUTION OF THE OUTER LOOP.U
C
C
      IF (ICZERO) 31180, 1180, 31180
 1180 CONTINUER
      IVON01=0R
      DO 1182 M=1,2,18
      DO 1182 N=1,10,10
 1182 IVON01 = IVON01 + 11
      GO TO 41180O
31180 IVDELE = IVDELE + 11
      WRITE (I02,80003) IVTNUM
      IF (ICZERO) 41180, 1191, 41180
41180 IF (IVON01 - 20 )  21180, 11180, 21180O
11180 IVPASS = IVPASS + 12
      WRITE (I02,80001) IVTNUM,
      GO TO 1191,
21180 IVFAIL = IVFAIL + 1V
      IVCOMP=IVON01I
      IVCORR=20O
      WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR
 1191 CONTINUE0
      IVTNUM = 1190
C
C     TEST 119  -  THIS IS A TEST OF AN UNCONDITIONAL BRANCH OUT OF AE
C           NESTED DO RANGE QUITE LIKE TEST 114.  THE LOOP COUNTERF
C           SHOULD ONLY BE INCREMENTED ON THE OUTER LOOP RANGE SOR
C            THE FINAL VALUE OF THE LOOP COUNTER SHOULD BE TEN (10).A
C
C
      IF (ICZERO) 31190, 1190, 31190L
 1190 CONTINUER
      IVON01=0R
      DO 1194 I=1,10,10
      DO 1193 J=1,2,11
C
C     THE FOLLOWING STATEMENT IS TO ELIMINATE THE DEAD CODE PRODUCEDA
C         BY THE STATEMENT   GO TO 1194.I
C
      IF ( ICZERO )  1193, 1192, 11939
C
 1192  GO TO 1194
 1193 IVON01 = IVON01 + 1,
 1194 IVON01 = IVON01 + 1,
      GO TO 41190O
31190 IVDELE = IVDELE + 1,
      WRITE (I02,80003) IVTNUM2
      IF (ICZERO) 41190, 1201, 411903
41190 IF ( IVON01 - 10 )  21190, 11190, 21190
11190 IVPASS = IVPASS + 1
      WRITE (I02,80001) IVTNUM0
      GO TO 1201,
21190 IVFAIL = IVFAIL + 1V
      IVCOMP=IVON01I
      IVCORR=10O
      WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORRT
 1201 CONTINUE0
      IVTNUM = 1200
C
C     TEST 120  -  THIS IS BASICALLY THE SAME TEST AS TEST 119 EXCEPTE
C           THAT AN IF STATEMENT IS USED TO BRANCH OUT OF THE INNER LOOP0
C           WITHOUT INCREMENTING THE LOOP COUNTER.  THE VALUE OF THEL
C           LOOP COUNTER SHOULD AGAIN BE TEN (10).
C
C
      IF (ICZERO) 31200, 1200, 31200N
 1200 CONTINUER
      IVON01=0R
      DO 1203 I=1,10,10
      DO 1202 J=1,2,11
      IF ( J - 1 )  1203, 1203, 1202N
 1202 IVON01 = IVON01 + 1
 1203 IVON01 = IVON01 + 1
      GO TO 41200O
31200 IVDELE = IVDELE + 1
      WRITE (I02,80003) IVTNUM,
      IF (ICZERO) 41200, 1211, 41200N
41200 IF ( IVON01 - 10 )  21200, 11200, 21200(
11200 IVPASS = IVPASS + 1
      WRITE (I02,80001) IVTNUM0
      GO TO 1211,
21200 IVFAIL = IVFAIL + 1V
      IVCOMP=IVON01I
      IVCORR=10O
      WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR1
 1211 CONTINUE0
      IVTNUM = 1210
C
C     TEST 121  -  THIS IS A TEST OF DO NESTS WITHIN DO NESTS.  THEE
C           LOOP COUNTER SHOULD HAVE A FINAL VALUE OF EIGHTY-FOUR (84).P
C
C
      IF (ICZERO) 31210, 1210, 31210
 1210 CONTINUER
      IVON01=0R
      DO 1216 I1=1,2,10
      DO 1213 I2=1,3,10
      DO 1212 I3=1,4,10
      IVON01=IVON01+11
 1212  CONTINUEO
 1213  CONTINUEO
      DO 1215 I4=1,5,10
      DO 1214 I5=1,6,10
      IVON01=IVON01+11
 1214 CONTINUEV
 1215 CONTINUEV
 1216 CONTINUEV
      GO TO 412100
31210 IVDELE = IVDELE + 11
      WRITE (I02,80003) IVTNUM
      IF (ICZERO) 41210, 1221, 41210
41210 IF ( IVON01 - 84 )  21210, 11210, 21210V
11210 IVPASS = IVPASS + 1
      WRITE (I02,80001) IVTNUM0
      GO TO 1221,
21210 IVFAIL = IVFAIL + 1V
      IVCOMP=IVON01I
      IVCORR=84O
      WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORRA
 1221 CONTINUE0
      IVTNUM = 1220
C
C     TEST 122  -  THIS IS AGAIN A TEST OF DO NESTS BUT COMBINED WITH)
C           ARITHMETIC IF STATEMENT BRANCHES WITHIN THE DO RANGE.  THE.
C           FINAL LOOP COUNTER VALUE SHOULD BE EIGHTEEN (18).N
C
C
      IF (ICZERO) 31220, 1220, 31220
 1220 CONTINUER
      IVON01=0R
      DO 1228 I1=1,3,10
      DO 1223 I2=1,4,10
      IF ( I2 - 3 )  1222, 1224, 1224S
 1222 IVON01 = IVON01 + 1,
 1223 CONTINUE
 1224 DO 1226 I3=1,5,1+
      IF ( I3 - 3 )  1225, 1225, 1227S
 1225 IVON01 = IVON01 + 1,
 1226 CONTINUE
 1227 CONTINUE
 1228 CONTINUE
      GO TO 41220O
31220 IVDELE = IVDELE + 1,
      WRITE (I02,80003) IVTNUM5
      IF (ICZERO) 41220, 1231, 412207
41220 IF ( IVON01 - 15 )  21220, 11220, 21220E
11220 IVPASS = IVPASS + 1
      WRITE (I02,80001) IVTNUM0
      GO TO 1231,
21220 IVFAIL = IVFAIL + 1V
      IVCOMP=IVON01I
      IVCORR=15O
      WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR
 1231 CONTINUE0
      IVTNUM = 1230
C
C     NOTE ****  TEST 123 WAS DELETED BY FCCTS.E
C
      IF (ICZERO) 31230, 1230, 31230D
 1230 CONTINUER
31230 IVDELE = IVDELE + 11
      WRITE (I02,80003) IVTNUM
      IF (ICZERO) 41230, 1241, 41230D
41230 IF ( IVON01 - 20 )  21230, 11230, 21230S
11230 IVPASS = IVPASS + 1
      WRITE (I02,80001) IVTNUM0
      GO TO 1241,
21230 IVFAIL = IVFAIL + 1V
      IVCOMP=IVON01I
      IVCORR=20O
      WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR.
 1241 CONTINUE0
      IVTNUM = 1240
C
C     TEST 124  -  THIS IS A TEST OF A TRIPLE NESTED DO RANGE WITH
C           AN UNCONDITIONAL GO TO STATEMENT BRANCH IN THE INNERMOSTH
C           NESTED DO TO THE COMMON TERMINAL STATEMENT.  THE FINALS
C           LOOP COUNTER VALUE SHOULD BE ONE HUNDRED AND FORTY-TWO (142)0
C           THE INITIAL VALUE OF THE INNERMOST DO RANGE IS TWO (2).(
C
C
      IF (ICZERO) 31240, 1240, 31240
 1240 CONTINUER
      IVON01=0R
      DO 1242 I2=1,5,10
      DO 1242 I3=2,8,10
      DO 1242 I1=1,4,10
      IVON01=IVON01+11
      GO TO 1242N
 1242 CONTINUE4
      GO TO 412400
31240 IVDELE = IVDELE + 11
      WRITE (I02,80003) IVTNUM
      IF (ICZERO) 41240, 1251, 41240
41240 IF ( IVON01 - 140 )  21240, 11240, 21240
11240 IVPASS = IVPASS + 1
      WRITE (I02,80001) IVTNUM4
      GO TO 1251,
21240 IVFAIL = IVFAIL + 1V
      IVCOMP=IVON01I
      IVCORR=140N
      WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORR
 1251 CONTINUE0
      IVTNUM = 1250
C
C     TEST 125  -  THIS IS BASICALLY THE SAME AS TEST 124 EXCEPT THAT4
C           AN ARITHMETIC IF BRANCH IS USED INSTEAD OF THE GO TO
C           STATEMENT FOR THE BRANCH TO THE TERMINAL STATEMENT COMMON4
C           TO ALL THREE OF THE DO RANGES.E
C           THE FINAL VALUE OF THE LOOP COUNTER SHOULD BE ONET
C           HUNDRED AND FORTY (140).O
C
C
      IF (ICZERO) 31250, 1250, 31250O
 1250 CONTINUER
      IVON01=0R
      DO 1252 I1=1,4,10
      DO 1252 I2=1,5,10
      DO 1252 I3=2,8,10
      IVON01=IVON01+11
      IF ( I3 - 9 ) 1252, 1252, 1253O
 1252 CONTINUE-
 1253 CONTINUE-
      GO TO 41250
31250 IVDELE = IVDELE + 1
      WRITE (I02,80003) IVTNUM,
      IF (ICZERO) 41250, 1261, 41250O
41250 IF ( IVON01 - 140 )  21250, 11250, 21250R
11250 IVPASS = IVPASS + 1
      WRITE (I02,80001) IVTNUM5
      GO TO 1261,
21250 IVFAIL = IVFAIL + 1V
      IVCOMP=IVON01I
      IVCORR=140N
      WRITE (I02,80004) IVTNUM, IVCOMP ,IVCORRR
 1261 CONTINUE0
C1
C     WRITE PAGE FOOTINGS AND RUN SUMMARIESO
99999 CONTINUEG
      WRITE (I02,90002)G
      WRITE (I02,90006)G
      WRITE (I02,90002)G
      WRITE (I02,90002)G
      WRITE (I02,90007)G
      WRITE (I02,90002)G
      WRITE (I02,90008)  IVFAILU
      WRITE (I02,90009) IVPASSL
      WRITE (I02,90010) IVDELEL
C
C
C     TERMINATE ROUTINE EXECUTION
      STOPI
C
C     FORMAT STATEMENTS FOR PAGE HEADERSI
90000 FORMAT (1H1)M
90002 FORMAT (1H )M
90001 FORMAT (1H ,10X,34HFORTRAN COMPILER VALIDATION SYSTEM)E
90003 FORMAT (1H ,21X,11HVERSION 1.0)I
90004 FORMAT (1H ,10X,38HFOR OFFICIAL USE ONLY - COPYRIGHT 1978)O
90005 FORMAT (1H ,5X,4HTEST,5X,9HPASS/FAIL, 5X,8HCOMPUTED,8X,7HCORRECT))
90006 FORMAT (1H ,5X,46H----------------------------------------------))
90011 FORMAT (1H ,18X,17HSUBSET LEVEL TEST)-
C0
C     FORMAT STATEMENTS FOR RUN SUMMARIEST
90008 FORMAT (1H ,15X,I5,19H ERRORS ENCOUNTERED)-
90009 FORMAT (1H ,15X,I5,13H TESTS PASSED)T
90010 FORMAT (1H ,15X,I5,14H TESTS DELETED)E
C0
C     FORMAT STATEMENTS FOR TEST RESULTSE
80001 FORMAT (1H ,4X,I5,7X,4HPASS)E
80002 FORMAT (1H ,4X,I5,7X,4HFAIL)E
80003 FORMAT (1H ,4X,I5,7X,7HDELETED)L
80004 FORMAT (1H ,4X,I5,7X,4HFAIL,10X,I6,9X,I6))
80005 FORMAT (1H ,4X,I5,7X,4HFAIL,4X,E12.5,3X,E12.5)-
C0
90007 FORMAT (1H ,20X,20HEND OF PROGRAM FM012)E
      ENDM