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