2 ! { dg-options "-O2 -ftree-loop-linear -fdump-tree-ltrans-all" }
3 ! { dg-options "-O2 -ftree-loop-linear -fdump-tree-ltrans-all -march=i486" { target { i?86-*-* && ilp32 } } }
7 IMPLICIT REAL*8 (A
-H
, O
-Z
)
8 PARAMETER (N1
=1335, N2
=1335)
9 COMMON U(N1
,N2
), V(N1
,N2
), P(N1
,N2
)
21 U(I
,I
) = U(I
,I
) * ( mod (I
, 100) /100.)
24 write(6,366) PC
, UC
, VC
25 366 format(/, ' PC = ',E12
.4
,/,' UC = ',E12
.4
,/,' VC = ',E12
.4
,/)
29 ! Please do not XFAIL.
30 ! { dg-final { scan-tree-dump-times "transformed loop" 1 "ltrans" } }
31 ! { dg-final { cleanup-tree-dump "ltrans" } }