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