gcc/testsuite/gfortran.dg/finalize_24.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/58880
   4 !
   5 ! Contributed by Andrew Benson
   6 !
   7
   8 module gn
   9   type sl
  10      integer, allocatable, dimension(:) :: lv
  11    contains
  12      final :: sld
  13   end type sl
  14   type :: nde
  15      type(sl) :: r
  16   end type nde
  17 contains
  18   subroutine ndm(s)
  19     type(nde), intent(inout) :: s
  20     type(nde)                :: i
  21     i=s
  22   end subroutine ndm
  23   subroutine sld(s)
  24     implicit none
  25     type(sl), intent(inout) :: s
  26     return
  27   end subroutine sld
  28 end module gn