URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [graphite/] [pr42326-1.f90] - Blame information for rev 414

Go to most recent revision | Details | Compare with Previous | 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
 

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { 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

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [graphite/] [pr42326-1.f90] - Blame information for rev 414