! { dg-do compile } | |
! { dg-options "-fno-tree-loop-ivcanon -O1 -floop-interchange -fno-tree-ccp -fno-tree-ch -fipa-pta" } | |
! PR tree-optimization/90021 | |
MODULE a | |
INTEGER b | |
CONTAINS | |
SUBROUTINE bar(c) | |
REAL c(1) | |
INTEGER g, d, e, f | |
DO g = 1,3 | |
DO f = 1,1 | |
DO e = 1,3 | |
DO d = 1,1 | |
c(f-1+d) = c(f-1+d)*b | |
END DO | |
END DO | |
END DO | |
END DO | |
END | |
END |