[Bug fortran/87937] [8/9 Regression] LHS reallocation broken inside "select type" and "associate"

[trnka at scm dot com]

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

--- Comment #8 from Tomáš Trnka <trnka at scm dot com> ---
(In reply to Dominique d'Humieres from comment #7)
> > Could you please kindly suggest what do I need to do to get this out of WAITING? ...
> 
> AFAIK you can do it yourself.
> 
> WAITING is not a punishment, it just mean that some feedback is needed, most
> of the time from the reporter, but sometimes from the maintainers. In this
> case it meant that at looked at the PR, but was unable to confirm it.

OK, sorry for the noise then, I just found no way to change it myself. The only
statuses offered in the drop-down for me were WAITING and RESOLVED.

> Now I get a segfault at runtime for the test in comment 5, likely caused by
> revision r257363 (pr84115).

OK, sounds like it might be an unrelated issue to the one I'm seeing. The
following variant of that test crashes for me as well, even though there aren't
any allocatable character strings in it. There's still no allocation code
generated.

program p
   integer, allocatable :: z(:)
   call s(z)
contains
   subroutine s(x)
      integer, allocatable :: x(:)
      associate (y => x)
         y = [1, 2, 3]
      end associate
      print *, allocated(x), size(x), x
   end
end

In case this turns out to be an unrelated issue, could you double-check if you
get a call to malloc() with the original test in my first post?