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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [pr32222.f90] - Blame information for rev 707

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


!PR fortran/32222
! { dg-do compile }
! { dg-final { cleanup-modules "splinemod" } }
 
module splinemod
implicit none
integer, parameter :: dl = KIND(1.d0)
Type lSamples
  integer l(10)
end Type lSamples
end module splinemod
 
subroutine InterpolateClArr(lSet)
use splinemod
type (lSamples), intent(in) :: lSet
real(dl) xl(10)
xl = real(lSet%l,dl)
end subroutine InterpolateClArr

Line No.	Rev	Author	Line
1	694	jeremybenn	`!PR fortran/32222`
2			`! { dg-do compile }`
3			`! { dg-final { cleanup-modules "splinemod" } }`
4
5			`module splinemod`
6			`implicit none`
7			`integer, parameter :: dl = KIND(1.d0)`
8			`Type lSamples`
9			`integer l(10)`
10			`end Type lSamples`
11			`end module splinemod`
12
13			`subroutine InterpolateClArr(lSet)`
14			`use splinemod`
15			`type (lSamples), intent(in) :: lSet`
16			`real(dl) xl(10)`
17			`xl = real(lSet%l,dl)`
18			`end subroutine InterpolateClArr`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [pr32222.f90] - Blame information for rev 707