SUBROUTINE TEST1(X,Z,A,B,C,XX,YY,A3,B3,C3,A2,C2,S,ABC,BCD,N,JJ)
      DIMENSION X(100,100),Z(100,100),A(100),B(100),C(100),D(100),E(100)
      DIMENSION XX(100), YY(100), ZZ(100), L(100)
      DIMENSION A3(100,100,100)
      DIMENSION B3(100,100,100)
      DIMENSION C3(100,100,100)
      DIMENSION A2(100,100),C2(100,100)
      DIMENSION U1(100,100,100)
      DIMENSION U2(100,100,100)
      DIMENSION U3(100,100,100)
      DIMENSION ABC1(100),ABC2(100),BCD1(100)

C
C   EXAMPLE IN PAPER
C
      DO 10 I= 2,N
      XX(I) = B(I) + C(I)
      C(I-1) = XX(I) + E(I)
      YY(I) = A(I) * C(I)
      D(I) = (YY(I) + 1.0)** 2
      A(I+1) = C(I) -1.0
   10 CONTINUE
      WRITE(UNIT=6,FMT=12) A(N)

C
C   LOOP SELECTION
C
      DO 1120 I = 1,100
      DO 190 J = 1,100
      DO 180 K = 1,100
      C3(I,J,K) = A3(I,J,K)
 180  CONTINUE
 190  CONTINUE
1120  CONTINUE
      WRITE(UNIT=6,FMT=12) C3(N,N,N)

C
C   LOOP SWITCHING
C
      DO 110 I = 1,100
      DO 100 J = 1,100
      Z(I,J+1) = Z(I,J) * X(I,J)
 100  CONTINUE
 110  CONTINUE
      WRITE(UNIT=6,FMT=12) Z(N,N)

C
C   STATEMENT REORDERING
C
      DO 400 I = 1,100
          A(I) = B(I-1)
          B(I) = C(I) * 3
 400  CONTINUE
      WRITE(UNIT=6,FMT=12) A(N)


C
C   NODE SPLITTING
C
      DO 500 I = 1,100
       ABC = ABC + 1
       BCD = ABC ** 2
       A(I) = BCD + D(I)
       ABC = B(I+1) + B(I-1)
       B(I) = C(I) + 1
       C(I+1) =  B(I) + 1
 500  CONTINUE
      WRITE(UNIT=6,FMT=12) C(N)
      WRITE(UNIT=6,FMT=12) B(N)


C
C   NODE SPLITTING
C
      DO 510 I = 1,100
       ABC1(I-1)  = ABC2(I-1) + 1
       BCD1(I-1)  = ABC1(I-1) ** 2
       A(I) = BCD1(I-1) + D(I)
       ABC2(I)  = B(I+1) + B(I-1)
       B(I) = C(I) + 1
       C(I+1) =  B(I) + 1
 510  CONTINUE
      WRITE(UNIT=6,FMT=12) C(N)
      WRITE(UNIT=6,FMT=12) B(N)


C
C   NODE SPLITTING
C
      T2 = 0
      DO 700 I = 1,100
       A(I) = A(I-1) + B(I) + C(I) + D(I) + T1 + T2
 700  CONTINUE
      WRITE(UNIT=6,FMT=12) A(N)

C
C   NODE SPLITTING
C
      T2 = 0
      DO 800 I = 1,100
       A(I) = A(I-1) + T1 + T2 + B(I) + C(I) + D(I)
 800  CONTINUE
      WRITE(UNIT=6,FMT=12) A(N)
C
C   LOOP DISTRIBUTION AND FUSION
C
       DO 120 I = 1,100
       DO 90 J = 1,100
       DO 80 K = 1,100
       C3(I,J,K) = A3(I,J,K)
       B3(I,J,K) = A3(I,J,K)
       C3(I+1,J,K) = A3(I,J,K)
  80   CONTINUE
  90   CONTINUE
 120   CONTINUE
       WRITE(UNIT=6,FMT=12) C3(N,N,N)
C
C   MULTI LEVEL VECTORIZATION
C
      DO 301 I = 1,100
      XX(I) = YY(I) + 10
      DO 201 J = 1,100
      B(J) = A2(J,N)
      DO 101 K = 1,100
      A2(J+1,K) = B(J) + C2(J,K)
 101  CONTINUE
      YY(I+J) = A2(J+1,N)
 201  CONTINUE
 301  CONTINUE
      WRITE(UNIT=6,FMT=12) YY(N)

C
C   CONSTANT PROPAGATION HELPS
C

      NL1 = 1
      NL2 = 2
      DO 81 KX = 2,3
      DO 91 KY = 2,21

      U1(KX,KY,NL2) = U1(KX,KY,NL1) +
     >A11*(U1(KX,KY+1,NL1) - U1(KX,KY-1,NL1)) +
     >A12*(U2(KX,KY+1,NL1)-U2(KX,KY-1,NL1)) +
     >A13*(U3(KX,KY+1,NL1)-U3(KX,KY-1,NL1)) +
     >SIG*(U1(KX+1,KY,NL1) - 2.*U1(KX,KY,NL1) + U1(KX-1,KY,NL1))

  91  CONTINUE
  81  CONTINUE

      WRITE(UNIT=6,FMT=11) LLL, U1(N,N,N)
  11  FORMAT (I6,E12.6)
  12  FORMAT (E12.6)


C
C   CONSTANT PROPAGATION DOESNT HELP
C

      NL1 = 1
      NL2 = 1
      DO 92 KY = 2,21
      DO 82 KX = 2,3

      U1(KX,KY,NL2) = U1(KX,KY,NL1) +
     >A11*(U1(KX,KY+1,NL1) - U1(KX,KY-1,NL1)) +
     >A12*(U2(KX,KY+1,NL1)-U2(KX,KY-1,NL1)) +
     >A13*(U3(KX,KY+1,NL1)-U3(KX,KY-1,NL1)) +
     >SIG*(U1(KX+1,KY,NL1) - 2.*U1(KX,KY,NL1) + U1(KX-1,KY,NL1))

  82  CONTINUE
  92  CONTINUE
      WRITE(UNIT=6,FMT=11) LLL, U1(N,N,N)



C
C   INDUCTION VARIABLE SUBSTITUTION
C

      XX(1) = 3.
      JJJ = 3
      DO 30 I=1,100
      XX(I)=YY(I)*ZZ(N2-K+1)
      K = K + 3
30    CONTINUE
      WRITE(UNIT=6,FMT=12) XX(N)


C
C   MIXED VARIABLE AND CONSTANT LB, UB, AND STRIDE
C
      XX(1) = 4.
      JJJ = 4
      DO 40 I=1,N2,N3
      K=L(I)
      XX(I)=YY(I)*ZZ(N2-K+1)
40    CONTINUE
      WRITE (UNIT=6,FMT=11) JJJ, XX(N)

C
C   MIXED VARIABLE AND CONSTANT LB, UB, AND STRIDE
C

      XX(1) = 5.
      JJJ = 5
      DO 50 I=N1,N2
      K=L(I)
      XX(I)=YY(I)*ZZ(N2-K+1)
      K = K + JJJ
50    CONTINUE
      WRITE (UNIT=6,FMT=11) JJJ, XX(N)

C
C   MIXED VARIABLE AND CONSTANT LB, UB, AND STRIDE
C

      XX(1) = 6.
      JJJ = 6
      DO 60 I=N1,100,N3
      XX(I)=YY(I)*ZZ(100-K+1)
      K = K + JJJ
60    CONTINUE
      WRITE (UNIT=6,FMT=11) JJJ, XX(N)

C
C   ALL VARIABLE - LB, UB, AND STRIDE
C


      XX(1) = 7.
      JJJ = 7
      DO 70 I=N1,N2,N3
      K=L(I)
      XX(I)=YY(2*I+1)*ZZ(K+I/N3+N1)
70    CONTINUE
      WRITE (UNIT=6,FMT=11) JJJ, XX(N)

C
C   SYMBOLIC DEPENDENCE TEST
C
       DO 203 I = JJ,K,5
       A(I+1) = A(I)
 203   CONTINUE
       WRITE(UNIT=6,FMT=12) A(N)

C
C   SYMBOLIC DEPENDENCE TEST
C

       DO 202 I = JJ,K,5
       A(I+1-M) = A(I-M)
 202   CONTINUE
       WRITE(UNIT=6,FMT=12) A(N)
       RETURN
       END
      SUBROUTINE TEST2(X,W,Z,A,B,C,K,KK,N,M,XX,YY,A3,B3,C3,A2,C2,S1,S2)
      DIMENSION X(100,100),Z(100,100),W(100,100)
      DIMENSION A(1000),B(1000),C(1000),D(1000),E(1000)
      DIMENSION XX(100), YY(100), ZZ(100), L(100)
      DIMENSION A3(100,100,100)
      DIMENSION B3(100,100,100)
      DIMENSION C3(100,100,100)
      DIMENSION D3(100,100,100)
      DIMENSION A2(100,100),C2(100,100)
      DIMENSION U1(100,100,100)
      DIMENSION U2(100,100,100)
      DIMENSION U3(100,100,100)


C
C   LOOP SELECTION
C
      DO 110 I = 1,100
      DO 101 J = 1,2
      Z(I,J) = W(I,J) + X(I,J)
 101  CONTINUE
 110  CONTINUE
      WRITE (UNIT=6,FMT=100) Z(N,N)
C
C   LOOP SELECTION
C
      DO 210 I = 1,100
      DO 220 J = 1,2
      Z(J,I) = W(J,I) + X(J,I)
 220  CONTINUE
 210  CONTINUE
      WRITE (UNIT=6,FMT=100) Z(N,N)
C
C   LOOP SELECTION - SELECT OUTER LOOP
C
      DO 230 I = 1,100
*VOCL LOOP, SCALAR
      DO 240 J = 1,2
      Z(J,I) = W(J,I) + X(J,I)
 240  CONTINUE
 230  CONTINUE
      WRITE (UNIT=6,FMT=100) Z(N,N)
C
C   LOOP SELECTION - SELECT OUTER LOOP
C
      DO 250 I = 1,100
*VOCL LOOP, SCALAR
      DO 260 J = 1,100
      Z(J,I) = W(J,I) + X(J,I)
 260  CONTINUE
 250  CONTINUE
      WRITE (UNIT=6,FMT=100) Z(N,N)
C
C   LOOP SELECTION
C
      DO 270 I = 1,100
*VOCL LOOP, SCALAR
      DO 280 J = 1,100
      DO 290 K = 1,100
      U3(K,J,I) = U2(K,J,I) + U1(K,J,I)
 290  CONTINUE
 280  CONTINUE
 270  CONTINUE
      WRITE (UNIT=6,FMT=100) U3(N,N,N)
C
C   DEPENDENCE TESTING - VECTORIZABLE
C
      DO 400 I = 2,100,2
          A(I) = A(I-1)
 400  CONTINUE
      WRITE (UNIT=6,FMT=100) A(N)

C
C   SYMBOLICS - NOT VECTORIZABLE
C
      DO 500 I = N1,N2,N3
       A(I) = A(I) + B(I)
 500  CONTINUE

      WRITE (UNIT=6,FMT=100) A(N)
C
C   SYMBOLICS
C
      DO 510 I = 1,100,1
       A(I+KK) = A(I) + B(I)
 510  CONTINUE
      WRITE (UNIT=6,FMT=100) A(N)
C
C   SYMBOLICS
C
      DO 520 I = 1,100,1
      DO 520 J = 1,100,1
       X(I+KK,J+KK) = X(I+KK,J+KK) + 10.
 520  CONTINUE
      WRITE (UNIT=6,FMT=100) X(N,N)
C
C   SYMBOLICS
C
      DO 530 I = 1,100,1
      DO 530 J = 1,100,1
       X(I+KK,J+KK) = X(I,J+KK) + 10.
 530  CONTINUE
      WRITE (UNIT=6,FMT=100) X(N,N)

C
C   LOOP DISTRIBUTION AND FUSION
C
       DO 120 I = 1,100
       DO 90 J = 1,100
       DO 80 K = 1,100
       C3(I,J,K) = A3(I,J,K)
       B3(I,J,K) = A3(I,J,K)
       D3(I,J,K) = B3(I,J,K)
  80   CONTINUE
  90   CONTINUE
 120   CONTINUE
       WRITE (UNIT=6,FMT=100) D3(N,N,N)
C
C   DO LOOP DOUBLE EXPANSION - SHOULD NOT OCCUR
C
      DO 600 I = 1,100,1
          A(I) = B(I)
 600  CONTINUE
      WRITE (UNIT=6,FMT=100) A(N)

C
C   DO LOOP DOUBLE EXPANSION - ?
C
      DO 610 I = 1,1000,1
          A(I+2) = A(I) + B(I)
 610  CONTINUE
      WRITE (UNIT=6,FMT=100) A(N)

C
C   LOOP REVERSAL
C
      DO 700 I = 999,1,-1
      A(I+1) = A(I)
 700  CONTINUE
      WRITE (UNIT=6,FMT=100) A(N)

 100  FORMAT (E12.6)
C
C   LOOP SELECTION
C
      DO 800 I = 1,1000,1
      DO 800 J = 1,1000,1
      Z(I,J) = Z(I+1,J-1)
 800  CONTINUE
      WRITE (UNIT=6,FMT=100) Z(N,N)
C
C   LOOP SELECTION
C
      DO 810 I = 1,100,1
      DO 810 J = 1,100,1
      DO 810 K = 1,100,1
      U3(I,J,K) = U3(I+1,J-1,K)
 810  CONTINUE
      WRITE (UNIT=6,FMT=100) U3(N,N,N)
C
C   LOOP SELECTION
C    RUN EACH STATEMENT SEPARATELY
C
      DO 820 I = 1,100,1
      DO 820 J = 1,100,1
      Z(I,J) = X(I-1,J+1)
      X(I,J) = 0
 820  CONTINUE
      WRITE (UNIT=6,FMT=100) Z(N,N)
C
C   LOOP SELECTION
C    RUN STATEMENTS TOGETHER
C
      DO 830 I = 1,100,1
      DO 830 J = 1,100,1
      Z(I,J) = W(I-1,J+1)
      X(I,J) = 0
 830  CONTINUE
      WRITE (UNIT=6,FMT=100) Z(N,N)
C
C   LOOP SELECTION
C
      DO 840 I = 1,100,1
      DO 840 J = 1,100,1
      DO 840 K = 1,100,1
      U3(I,J,K+1) = U3(I,J,K)
 840  CONTINUE
      WRITE (UNIT=6,FMT=100) U3(N,N,N)

C
C   LOOP SELECTION
C
      DO 850 I = 1,100,1
      DO 850 J = 1,100,1
      X(I,J) = X(I,J) + Z(I,J)
      X(I+1,J+1) = Z(I+1,J) * X(I,J)
 850  CONTINUE
      WRITE (UNIT=6,FMT=100) X(N,N)
C
C   SCALAR EXPANSION
C
      DO 900 I = 1,100,1
      ABC = B(I) * C(I)
      D(I) = ABC * ABC
 900  CONTINUE
      WRITE (UNIT=6,FMT=100) D(N)
C
C   SCALAR EXPANSION
C
      DO 910 I = 1,N
      ABC = A(I)
      B(K) = ABC + 1. / ABC
      D(I) = B(K) + 1. / B(K)
 910  CONTINUE
      WRITE (UNIT=6,FMT=100) D(N)
C
C   SCALAR EXPANSION
C
      DO 915 I = 1,N
      A(I) = B(I) * C(I) * S1
      ABC = (A(I) + B(I)) * S2
      D(I) = (ABC - 1.) * C(I)
 915  CONTINUE
      WRITE (UNIT=6,FMT=100) D(N)
C
C   SCALAR EXPANSION OR SUM REDUCTION
C
      DO 916 I = 1,N
      DO 916 J = 1,M
      ABC = 0
      DO 917 K = 1,M
 917  ABC = ABC + W(I,K) * X(K,J)
 916  Z(I,J) = ABC
      WRITE (UNIT=6,FMT=100) Z(N,N)
C
C   INDIRECT ADDRESSING
C
      DO 1000 I = 1,M
      A(D(I)) = B(E(I)) - C(XX(I))
 1000 CONTINUE
      WRITE (UNIT=6,FMT=100) A(N)
C
C   LOOP COLLAPSE ?
C
      DO 1100 I = 1,M
      DO 1100 J = 1,N
      X(J,I)  = W(J,I) * Z(J,I)
 1100 CONTINUE
      WRITE (UNIT=6,FMT=100) X(N,N)
C
C   SEQ FUNCTION
C
      DO 1200 I = 1,M
      A(I)  = B(I) + C(I/2)
 1200 CONTINUE
      WRITE (UNIT=6,FMT=100) A(N)
C
C   SEQ FUNCTION
C
      DO 1250 I = 1,M
      A(I)  = B(I) + C(I) + I
 1250 CONTINUE
C
C   SUMMATION
C
      S = 0.
      DO 920 I = 1,N
      S = S + A(I)
 920  CONTINUE
      WRITE (UNIT=6,FMT=100) S
C
C   DOT PRODUCT
C
      S = 0.
      DO 930 I = 1,N
      S = S + A(I) * B(I)
 930  CONTINUE
      WRITE (UNIT=6,FMT=100) S
C
C   PRODUCT
C
      S = 0.
      DO 940 I = 1,N
      S = S * A(I)
 940  CONTINUE
      WRITE (UNIT=6,FMT=100) S
C
C   MAXVAL
C
      S = A(1)
      DO 950 I = 2,N
      IF (A(I) .GT. S)  S = A(I)
 950  CONTINUE
      WRITE (UNIT=6,FMT=100) S
C
C   MINVAL
C
      S = A(1)
      DO 960 I = 2,N
      IF (A(I) .LT. S) S = A(I)
 960  CONTINUE
      WRITE (UNIT=6,FMT=100) S
      WRITE (UNIT=6,FMT=100) A(N)
      RETURN
      END
      SUBROUTINE TEST3(Z,A,C,N)
      DIMENSION X(100,100),Z(100,100),A(100),B(100),C(100),D(100),E(100)
      DIMENSION Y(100,100),W(100,100)
      DIMENSION XXX(100,100),YYY(100,100)
      DIMENSION XX(100), YY(100), ZZ(100), L(100),CC(100)
      COMMON /COM1/CC1(100,100),CC2(100,100),CC3(100,100),II1,JJ1
      COMMON /COM2/AA(200),BB(200),DD(200)
      EQUIVALENCE (X(1,1),Y(1,1))
      EQUIVALENCE (XXX(1,1),YYY(1,1))
      EQUIVALENCE (XX(1),YY(1))
      EQUIVALENCE (AA(50),CC(1))


C
C   COMMON VARIABLES
C
      DO 110 II1 = 1,100
      DO 105 JJ1 = 1,100
      CC1(II1,JJ1) = CC2(II1,JJ1) + Z(II1,JJ1)
 105  CONTINUE
 110  CONTINUE
      WRITE(UNIT=6,FMT=100) CC1(N,N)
C
C   COMMON AND EQUIVALENCED VARIABLES - OVERLAP
C
      DO 115 II1 = 1,100
      CC(II1+1) = AA(II1)
 115  CONTINUE
      WRITE(UNIT=6,FMT=100) CC(N)
C
C   COMMON AND EQUIVALENCED VARIABLES - NO OVERLAP
C
      DO 116 II1 = 1,100
      AA(II1+1) = CC(II1)
 116  CONTINUE
      WRITE(UNIT=6,FMT=100) AA(N)
C
C   COMMON AND EQUIVALENCED VARIABLES -  OVERLAP
C
      DO 117 II1 = 1,100
      CC(II1+50) = AA(II1+1)
 117  CONTINUE
      WRITE(UNIT=6,FMT=100) CC(N)
C
C   COMMON AND EQUIVALENCED VARIABLES - NO OVERLAP
C
      DO 118 II1 = 1,100
      CC(II1+50) = AA(II1-1)
 118  CONTINUE
      WRITE(UNIT=6,FMT=100) CC(N)
C
C   EQUIVALENCE- NO OVERLAP
C
      DO 205 I = 1,100
      XX(I) = YY(I+1)
 205  CONTINUE
      WRITE(UNIT=6,FMT=100) XX(N)
C
C   EQUIVALENCE- OVERLAP
C
      DO 208 I = 1,100
      XX(I+1) = YY(I)
 208  CONTINUE
      WRITE(UNIT=6,FMT=100) XX(N)

C
C   EQUIVALENCE- NO OVERLAP
C
      DO 210 I = 1,100
      DO 220 J = 1,100
      X(J,I) = X(J,I) + Y(J,I)
 220  CONTINUE
 210  CONTINUE
      WRITE(UNIT=6,FMT=100) X(N,N)
C
C   EQUIVALENCE- NO OVERLAP
C
      DO 230 I = 1,100
      DO 240 J = 1,100
      X(J,I) = Y(J+1,I)
 240  CONTINUE
 230  CONTINUE
      WRITE(UNIT=6,FMT=100) X(N,N)
C
C   EQUIVALENCE-  OVERLAP
C
      DO 310 I = 1,100
      DO 320 J = 1,100
      X(J+1,I) = Y(J,I) + Z(J,I)
 320  CONTINUE
 310  CONTINUE
      WRITE(UNIT=6,FMT=100) X(N,N)
C
C   EQUIVALENCE-  VECTORIZABLE
C
      DO 410 I = 1,100
      DO 420 J = 1,100
      X(J+4,I+4) = Y(J,I)
 420  CONTINUE
 410  CONTINUE
      WRITE(UNIT=6,FMT=100) X(N,N)

C
C   CALL STATEMENT
C
      DO 510 I = 1,100
      DO 520 J = 1,100
      X(J,I) = Z(J,I)
      CALL SUB2
      Z(J,I) = W(J,I)
 520  CONTINUE
 510  CONTINUE
      WRITE(UNIT=6,FMT=100) Z(N,N)


C
C   CALL STATEMENT
C
      DO 610 I = 1,100
      A(I) = B(I)
      CALL SUB2
      C(I) = D(I)
 610  CONTINUE
      WRITE(UNIT=6,FMT=100) C(N)

C
C   CALL STATEMENT - REFERS TO COMMON VARIABLES IN LOOP
C
      DO 620 I = 1,100
      AA(I) = BB(I)
      CALL SUB2
      DD(I) = D(I)
 620  CONTINUE
      WRITE(UNIT=6,FMT=100) AA(N)
      WRITE(UNIT=6,FMT=100) DD(N)
C
C   WRITE STATEMENT
C
      DO 640 I = 1,100
      CALL SUB2
      B(I) = D(I)
      C(I) = A(I)
      WRITE(UNIT=6,FMT=100) C(I)
 640  CONTINUE
      WRITE(UNIT=6,FMT=100) B(N)
 100  FORMAT(E12.6)

      RETURN
      END
       SUBROUTINE TEST4(A,B,X,N)
       DIMENSION A(100),B(100),X(100),Y(100),BB(100,100)
C
C         IF01  -- TESTS FOR RECOGNITION OF LOOP INDEPENDENT DEPENDENCES
C                  BETWEEN STATEMENTS IN MUTUALLY EXCLUSIVE REGIONS.
C
       DO 30 I = 1,100
           IF (B(I).LT.0) GO TO 10
              A(I) = X(I)
              GO TO 30
   10         X(I+1) = A(I)
   30  CONTINUE
       WRITE(UNIT=6,FMT=11) A(N),B(N),X(N)
C
C         IF02 -- TEST FOR FALSE DEPENDENCES ARISING FROM GUARD
C                 VARIABLE COMPUTATION.
C
       DO 130 I = 1,100
           IF (A(I).GE.0) GO TO 120
           IF (B(I).GE.0) GO TO 110
           A(I) = X(I)
  110      CONTINUE
           B(I+1) = Y(I)
  120      CONTINUE
  130  CONTINUE
       WRITE(UNIT=6,FMT=11) A(N),B(N),X(N)
C
C         IF03--TEST FOR EXIT BRANCH HANDLING
C
       DO 230 I = 1,100
           IF (A(I).GE.0) GO TO 220
           A(I) = X(I)
           B(I+1) = Y(I)
  230  CONTINUE
  220  CONTINUE
       WRITE(UNIT=6,FMT=11) A(N),B(N),X(N)
C
C         IF04  -- CHECKS FOR IF COPYING
C
       DO 430 I = 1,100
           IF (B(K).GE.0) GO TO 420
           A(I) = X(I)
  420      CONTINUE
  430  CONTINUE
       WRITE(UNIT=6,FMT=11) A(N),B(N),X(N)
C
C         IF05--TEST FOR BACKWARD BRANCH HANDLING
C
       DO 530 I = 1,100
  520      CONTINUE
           A(I) = X(I)
           IF (X(I).GE.0) GO TO 520
           B(I) = Y(I)
  530  CONTINUE
       WRITE(UNIT=6,FMT=11) A(N),B(N),X(N)
C
C         IF06--TEST RUN
C               ILLUSTRATES FORWARD BRANCH REMOVAL
C
       DO 600 I = 1, 100
          IF (A(I).GT.10) GO TO 660
             A(I) = A(I) + 10
             IF(B(I).GT.10) GO TO 680
                B(I) = B(I) + 10
  660        A(I) = B(I) + A(I)
  680     B(I) = A(I) - 5
  600  CONTINUE
       WRITE(6,FMT=12) A(N),B(N)
C
C         IF07--TEST RUN IF STATEMENTS IN OUTER DO LOOPS
C
       DO 700 I = 1, 100
          IF (A(I).GT.10) GO TO 760
             A(I) = A(I) + 10
             DO 720 J = 1, 100
                IF(BB(I,J).GT.10) GO TO 780
                   BB(I,J) = BB(I,J) + 10
  780           CONTINUE
  720        CONTINUE
  760     CONTINUE
  700  CONTINUE
       WRITE(6,FMT=12) A(N),BB(N,N)
C
C         IF08--TEST RUN IF STATEMENTS IN OUTER DO LOOPS
C
       DO 800 I = 1, 100
          IF (A(I).GT.10) GO TO 860
             A(I) = A(I) + 10
             DO 820 J = 1, 100
                BB(I,J) = BB(I,J) + 10
  820        CONTINUE
  860     CONTINUE
  800  CONTINUE
       WRITE(6,FMT=12) A(N),BB(N,N)
C
C         IF09--IF LOOP TO DO LOOP
C

       I = 2
  910  A(I) = B(I)
       I = I + 1
       IF (A(I).LT.M) GO TO 910
       WRITE(6,FMT=12) A(N),B(N)
   11  FORMAT(3E12.6)
   12  FORMAT(2E12.6)
       STOP
       END
      SUBROUTINE TEST5(A,B,C,D,E,F,G,H,AA,N)
      DIMENSION A(1000),B(1000),C(1000),D(1000),E(1000),F(1000)
      DIMENSION G(1000),H(1000),AA(1000)


C
C    1 STOP STATEMENT
C
      DO 110 I = 1,100
      IF (A(I) .LT. 0.) STOP 1
      B(I) = C(I)
 110  CONTINUE
      WRITE (UNIT=6,FMT=100) B(N)
C
C    2 STOP STATEMENTS
C
      DO 120 I = 1,100
      IF (A(I) .LT. 0.) STOP 1
      B(I) = C(I)
      IF (D(I) .LT. 0.) STOP 2
      E(I) = F(I)
 120  CONTINUE
      WRITE (UNIT=6,FMT=100) B(N)
      WRITE (UNIT=6,FMT=100) E(N)
C
C    3 STOP STATEMENTS
C
      DO 130 I = 1,100
      IF (A(I) .LT. 0.) STOP 1
      B(I) = C(I)
      IF (D(I) .LT. 0.) STOP 2
      E(I) = F(I)
      IF (G(I) .LT. 0.) STOP 3
      H(I) = AA(I)
 130  CONTINUE
      WRITE (UNIT=6,FMT=100) B(N)
      WRITE (UNIT=6,FMT=100) E(N)
      WRITE (UNIT=6,FMT=100) H(N)
 100  FORMAT(E12.6)
      RETURN
      END

.