blob: 149b7c8c15a29cb3addf8b13669161411ae14e62 [file] [log] [blame]
! { dg-do compile }
! PR fortran/82994
! Code contributed by Gerhard Steinmetz
program p
type t
end type
class(t) :: x ! { dg-error "must be dummy, allocatable or pointer" }
deallocate (x) ! { dg-error "not a nonprocedure pointer nor an allocatable" }
end