[Bug fortran/69418] ICE: tree check: expected record_type ... in gfc_class_vptr_get, at fortran/trans-expr.c:149

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

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

--- Comment #1 from Gerhard Steinmetz <gerhard.steinmetz.fort...@t-online.de> 
---
Compiles when relaxing source to mold :

$ cat z2.f90
subroutine s(x)
   class(*) :: x[*]
   class(*), allocatable :: z
   allocate (z, mold=x)
end

$ gfortran-6 -fcoarray=single -c z2.f90