URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Subversion Repositories openrisc_2011-10-31
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [graphite/] [pr42326-1.f90] - Rev 322
Go to most recent revision | Compare with Previous | Blame | View Log
! { dg-do compile { target i?86-*-* x86_64-*-* } }
! { dg-require-effective-target ilp32 }
! { dg-require-effective-target sse2 }
! { 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
Go to most recent revision | Compare with Previous | Blame | View Log