3 ! Code contributed by Gerhard Steinmetz
7 class(t
) :: x
! { dg-error "must be dummy, allocatable or pointer" }
8 allocate (x
) ! { dg-error "neither a data pointer nor an allocatable" }
9 deallocate (x
) ! { dg-error "not a nonprocedure pointer nor an allocatable" }