[Bug fortran/97530] Segmentation fault compiling coarray program with option -fcoarray=shared (not with -fcoarray={lib,single})

[tkoenig at gcc dot gnu.org via Gcc-bugs]

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

Thomas Koenig <tkoenig at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
   Last reconfirmed|                            |2020-10-24
     Ever confirmed|0                           |1

--- Comment #2 from Thomas Koenig <tkoenig at gcc dot gnu.org> ---
Here's a reduced version of the reduced version.

module types
  type local_model_state
     real, allocatable :: ps(:,:)  ! Surface pressure
     real, allocatable :: t(:,:,:) ! Temperature
  end type local_model_state
contains
  function int_mult(ms, ifactor)
    type(local_model_state)             :: int_mult
    type(local_model_state), intent(in) :: ms
    integer, intent(in) :: ifactor
    int_mult % ps = ms % ps * ifactor
  end function int_mult
end module types