gcc/testsuite/gfortran.dg/graphite/interchange-3.f90

   1 ! Formerly known as ltrans-7.f90
   2
   3 Program FOO
   4   IMPLICIT INTEGER      (I-N)
   5   IMPLICIT REAL*8       (A-H, O-Z)
   6   PARAMETER (N1=1335, N2=1335)
   7   COMMON U(N1,N2), V(N1,N2), P(N1,N2)
   8
   9   PC = 0.0D0
  10   UC = 0.0D0
  11   VC = 0.0D0
  12
  13   do I = 1, M
  14      do J = 1, M
  15         PC = PC + abs(P(I,J))
  16         UC = UC + abs(U(I,J))
  17         VC = VC + abs(V(I,J))
  18      end do
  19      U(I,I) = U(I,I) * ( mod (I, 100) /100.)
  20   end do
  21
  22   write(6,366) PC, UC, VC
  23 366  format(/, ' PC = ',E12.4,/,' UC = ',E12.4,/,' VC = ',E12.4,/)
  24
  25 end Program FOO
  26
  27 ! { dg-final { scan-tree-dump-times "will be interchanged" 1 "graphite" { xfail *-*-* } } }
  28 ! { dg-final { cleanup-tree-dump "graphite" } }