[Bug fortran/92587] [9/10 Regression] Compiler is unable to generate finalization wrapper

[gscfq@t-online.de]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=92587

G. Steinmetz <gscfq@t-online.de> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |gscfq@t-online.de

--- Comment #11 from G. Steinmetz <gscfq@t-online.de> ---

Nice reduction !
It could be further reduced/simplified to something like ...


$ cat z1.f90
module m
   type t2
   contains
      final :: s
   end type
   type t3
      type(t2) :: a
   end type
   type, extends(t3) :: t4
   end type
   class(t4) :: y
   class(t4) :: z
contains
   subroutine sub
      y = z
   end
end


$ cat z4.f90
module m
   type t2
   contains
      final :: s
   end type
   type t3
      type(t2) :: a
   end type
   class(t2) :: y
   class(t3) :: z
contains
   subroutine sub
      y = z
   end
end