[Bug fortran/71862] ICE in gfc_add_component_ref, at fortran/class.c:241

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

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

--- Comment #1 from Gerhard Steinmetz <gerhard.steinmetz.fortran@t-online.de> ---

Works when "class" is changed to "type" ...


$ cat z2.f90
program p
   type t
      integer :: n = 0
      integer, pointer :: q => null()
   end type
   type(t) :: x
   print *, associated(x%q)
   x = f()
   print *, associated(x%q)
contains
   function f() result (z)
      type(t) :: z
      print *, associated(z%q)
   end
end


$ gfortran-7-20160710 z2.f90
$ a.out
 F
 F
 F