gcc/testsuite/gfortran.dg/finalize_32.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR 79311: [OOP] ICE in generate_finalization_wrapper, at fortran/class.c:1992
   4 !
   5 ! Contributed by DIL <liakhdi@ornl.gov>
   6
   7 module tensor_recursive
   8   implicit none
   9
  10   type :: tens_signature_t
  11   contains
  12     final :: tens_signature_dtor
  13   end type
  14
  15   type :: tens_header_t
  16     type(tens_signature_t) :: signature
  17   contains
  18     final :: tens_header_dtor
  19   end type
  20
  21 contains
  22
  23   subroutine tens_signature_dtor(this)
  24     type(tens_signature_t) :: this
  25   end subroutine
  26
  27   subroutine tens_header_dtor(this)
  28     type(tens_header_t) :: this
  29   end subroutine
  30
  31 end