19 lines
378 B
Fortran
19 lines
378 B
Fortran
!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
|