| !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 |