OpenCores
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/] [pr42334.f90] - Blame information for rev 414

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

Line No. Rev Author Line
1 302 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

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.