gcc/testsuite/gfortran.dg/pr29581.f90

   1 ! PR tree-optimization/29581
   2 ! { dg-do run }
   3 ! { dg-options "-O2 -ftree-loop-linear" }
   4
   5       SUBROUTINE FOO (K)
   6       INTEGER I, J, K, A(5,5), B
   7       COMMON A
   8       A(1,1) = 1
   9  10   B = 0
  10       DO 30 I = 1, K
  11         DO 20 J = 1, K
  12           B = B + A(I,J)
  13  20     CONTINUE
  14         A(I,I) = A(I,I) * 2
  15  30   CONTINUE
  16       IF (B.GE.3) RETURN
  17       GO TO 10
  18       END SUBROUTINE
  19
  20       PROGRAM BAR
  21         INTEGER A(5,5)
  22         COMMON A
  23         CALL FOO (2)
  24         IF (A(1,1).NE.8) CALL ABORT
  25         A(1,1) = 0
  26         IF (ANY(A.NE.0)) CALL ABORT
  27       END