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
6subroutine 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
18end subroutine phasad
19
20