10SN/A!PR fortran/32222 213769Salanb! { dg-do compile } 30SN/A 40SN/Amodule splinemod 50SN/Aimplicit none 60SN/Ainteger, parameter :: dl = KIND(1.d0) 72362SN/AType lSamples 80SN/A integer l(10) 92362SN/Aend Type lSamples 100SN/Aend module splinemod 110SN/A 120SN/Asubroutine InterpolateClArr(lSet) 130SN/Ause splinemod 140SN/Atype (lSamples), intent(in) :: lSet 150SN/Areal(dl) xl(10) 160SN/Axl = real(lSet%l,dl) 170SN/Aend subroutine InterpolateClArr 180SN/A