gcc/testsuite/gfortran.dg/pr90021.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-fno-tree-loop-ivcanon -O1 -floop-interchange -fno-tree-ccp -fno-tree-ch -fipa-pta" }
   3 ! PR tree-optimization/90021
   4
   5 MODULE a
   6   INTEGER b
   7 CONTAINS
   8   SUBROUTINE bar(c)
   9     REAL c(1)
  10     INTEGER g, d, e, f
  11     DO g = 1,3
  12       DO f = 1,1
  13         DO e = 1,3
  14           DO d = 1,1
  15             c(f-1+d) = c(f-1+d)*b
  16           END DO
  17         END DO
  18       END DO
  19     END DO
  20   END
  21   END