gcc/testsuite/gfortran.dg/graphite/pr42326-1.f90

   1 ! { dg-do compile { target i?86-*-* x86_64-*-* } }
   2 ! { dg-require-effective-target ilp32 }
   3 ! { dg-require-effective-target sse2 }
   4 ! { dg-options "-O2 -floop-parallelize-all -fprefetch-loop-arrays -msse2" }
   5
   6 subroutine phasad(t,i,ium)
   7   implicit none
   8   real t(5,4)
   9   integer i,l,ll,ium
  10
  11   do l=1,2
  12      ll=2*l
  13      do i=1,ium
  14         t(i,ll-1)=t(i,ll-1)+t(i,ll)
  15      enddo
  16   enddo
  17   return
  18 end subroutine phasad
  19