gcc/testsuite/gfortran.dg/pr32222.f90

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