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