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

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

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

            Bug ID: 69418
           Summary: ICE: tree check: expected record_type ... in
                    gfc_class_vptr_get, at fortran/trans-expr.c:149
           Product: gcc
           Version: 6.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: gerhard.steinmetz.fortran@t-online.de
  Target Milestone: ---

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


$ gfortran-6 --version
GNU Fortran (SUSE Linux) 6.0.0 20160108 (experimental) [trunk revision 232162]


$ gfortran-6 -fcoarray=single -c z1.f90
z1.f90:4:0:

    allocate (z, source=x)

internal compiler error: tree check: expected record_type or union_type or
qual_union_type, have pointer_type in gfc_class_vptr_get, at
fortran/trans-expr.c:149