19 lines
373 B
Fortran
19 lines
373 B
Fortran
! { dg-do compile { target i?86-*-* x86_64-*-* } }
|
|
! { dg-require-effective-target ilp32 }
|
|
! { dg-options "-O2 -floop-parallelize-all -fprefetch-loop-arrays -msse2" }
|
|
|
|
subroutine phasad(t,i,ium)
|
|
implicit none
|
|
real t(5,4)
|
|
integer i,l,ll,ium
|
|
|
|
do l=1,2
|
|
ll=2*l
|
|
do i=1,ium
|
|
t(i,ll-1)=t(i,ll-1)+t(i,ll)
|
|
enddo
|
|
enddo
|
|
return
|
|
end subroutine phasad
|
|
|