[Bug fortran/69636] ICE(s) on using option -fmodule-private

[gerhard.steinmetz.fortran@t-online.de]

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

--- Comment #4 from Gerhard Steinmetz <gerhard.steinmetz.fortran@t-online.de> ---
Applying same operations as in comment 1 to derived_external_function_1.f90 :


$ cat z2.f90
module m
  private
  type t
    integer g
  end type
end

type(t) function f() result(ff)
  use m
  ff%g = 42
end


$ gfortran-6 -c z2.f90
f951: internal compiler error: Segmentation fault