1! { dg-do compile } 2! 3! PR 47085: [OOP] Problem in allocate( SOURCE=) for polymorphic component 4! 5! Contributed by Janus Weil <janus@gcc.gnu.org> 6 7 type :: t0 8 end type 9 class(t0) :: x ! { dg-error "must be dummy, allocatable or pointer" } 10 allocate(x) ! { dg-error "is neither a data pointer nor an allocatable variable" } 11 end 12