[Bug fortran/78781] [7 Regression] [Coarray] ICE in gfc_deallocate_scalar_with_status, at fortran/trans.c:1588

[janus at gcc dot gnu.org]

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

janus at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |janus at gcc dot gnu.org
            Summary|[7 Regression] ICE in       |[7 Regression] [Coarray]
                   |gfc_deallocate_scalar_with_ |ICE in
                   |status, at                  |gfc_deallocate_scalar_with_
                   |fortran/trans.c:1588        |status, at
                   |                            |fortran/trans.c:1588

--- Comment #2 from janus at gcc dot gnu.org ---
This slightly simpler test case (without polymorphism) runs into the same ICE:

module m
   type t
      integer, pointer :: z
   end type
contains
   function f(x)
      type(t) :: x[*]
      if ( associated(x%z) ) deallocate(x%z)
   end
end