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

Subversion Repositories openrisc

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

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
! { dg-final { cleanup-modules "int_module" } }

Line No.	Rev	Author	Line
1	694	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`
12			`! { dg-final { cleanup-modules "int_module" } }`

Browse

Tools

Subversion Repositories openrisc

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