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

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [pr32222.f90] - Diff between revs 302 and 384

Rev 302	Rev 384
`!PR fortran/32222`	`!PR fortran/32222`
`! { dg-do compile }`	`! { dg-do compile }`
`! { dg-final { cleanup-modules "splinemod" } }`	`! { dg-final { cleanup-modules "splinemod" } }`

`module splinemod`	`module splinemod`
`implicit none`	`implicit none`
`integer, parameter :: dl = KIND(1.d0)`	`integer, parameter :: dl = KIND(1.d0)`
`Type lSamples`	`Type lSamples`
`integer l(10)`	`integer l(10)`
`end Type lSamples`	`end Type lSamples`
`end module splinemod`	`end module splinemod`

`subroutine InterpolateClArr(lSet)`	`subroutine InterpolateClArr(lSet)`
`use splinemod`	`use splinemod`
`type (lSamples), intent(in) :: lSet`	`type (lSamples), intent(in) :: lSet`
`real(dl) xl(10)`	`real(dl) xl(10)`
`xl = real(lSet%l,dl)`	`xl = real(lSet%l,dl)`
`end subroutine InterpolateClArr`	`end subroutine InterpolateClArr`