[Bug fortran/70863] [F03] Finalization of array of derived type causes segfault

[juergen.reuter at desy dot de]

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

Jürgen Reuter <juergen.reuter at desy dot de> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |juergen.reuter at desy dot de

--- Comment #4 from Jürgen Reuter <juergen.reuter at desy dot de> ---
Is this code posted October 28 on c.l.f. another incarnation of the same
problem?
module third_party_library
  type foo
    integer, pointer :: f(:) => null()
  contains
    final :: foo_destroy
  end type
contains
  impure elemental subroutine foo_destroy(this)
    type(foo), intent(inout) :: this
    print *, "foo"
    if (associated(this%f)) deallocate(this%f)
  end subroutine
end module

module my_code
  use third_party_library
  type bar
    type(foo) :: b(2)
  end type
end module

program main
  use my_code
  type(bar) :: x
  call sub(x)
contains
  subroutine sub(x)
    type(bar), intent(out) :: x
  end subroutine
end program