summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/allocate_class_1.f90
blob: 1dea056b74f2d9b1e3beb5f0ebf69bcdd38d9d77 (plain)
1
2
3
4
5
6
7
8
9
10
11
! { dg-do compile }
!
! PR 47085: [OOP] Problem in allocate( SOURCE=) for polymorphic component
!
! Contributed by Janus Weil <janus@gcc.gnu.org>

 type :: t0
 end type
 class(t0) :: x  ! { dg-error "must be dummy, allocatable or pointer" }
 allocate(x)     ! { dg-error "is not a nonprocedure pointer or an allocatable variable" }
 end