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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-stable/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [graphite/] [pr37980.f90] - Blame information for rev 862

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


! { dg-options "-O2 " }
 
module INT_MODULE
contains
  pure function spher_cartesians(in1) result(out1)
    integer(kind=kind(1)) :: in1
    intent(in) :: in1
    real(kind=kind(1.0d0)), dimension(0:in1,0:in1,0:in1) :: mat0
    mat0 = 0.0d0
  end function spher_cartesians
end module INT_MODULE

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-options "-O2 " }`
2
3			`module INT_MODULE`
4			`contains`
5			`pure function spher_cartesians(in1) result(out1)`
6			`integer(kind=kind(1)) :: in1`
7			`intent(in) :: in1`
8			`real(kind=kind(1.0d0)), dimension(0:in1,0:in1,0:in1) :: mat0`
9			`mat0 = 0.0d0`
10			`end function spher_cartesians`
11			`end module INT_MODULE`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-stable/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [graphite/] [pr37980.f90] - Blame information for rev 862