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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [graphite/] [pr42334.f90] - Blame information for rev 801

Go to most recent revision | Details | Compare with Previous | View Log


! { dg-options "-O2 -floop-interchange -ftree-loop-distribution" }
 
subroutine blockdis(bl1eg,bl2eg)
  implicit real*8 (a-h,o-z)
  parameter(nblo=300)
  common/str /mblo
  common/str2 /mel(nblo)
  dimension h(nblo,2,6),g(nblo,2,6)
  dimension bl1eg(nblo,2,6),bl2eg(nblo,2,6)
  do k=1,mblo
     jm=mel(k)
     do l=1,2
        do m=1,6
           bl1eg(k,l,m)=h(jm,l,m)
           bl2eg(k,l,m)=g(jm,l,m)
        enddo
     enddo
  enddo
  return
end subroutine blockdis

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-options "-O2 -floop-interchange -ftree-loop-distribution" }`
2
3			`subroutine blockdis(bl1eg,bl2eg)`
4			`implicit real*8 (a-h,o-z)`
5			`parameter(nblo=300)`
6			`common/str /mblo`
7			`common/str2 /mel(nblo)`
8			`dimension h(nblo,2,6),g(nblo,2,6)`
9			`dimension bl1eg(nblo,2,6),bl2eg(nblo,2,6)`
10			`do k=1,mblo`
11			`jm=mel(k)`
12			`do l=1,2`
13			`do m=1,6`
14			`bl1eg(k,l,m)=h(jm,l,m)`
15			`bl2eg(k,l,m)=g(jm,l,m)`
16			`enddo`
17			`enddo`
18			`enddo`
19			`return`
20			`end subroutine blockdis`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [graphite/] [pr42334.f90] - Blame information for rev 801