! { dg-do compile } | |
! | |
! PR fortran/41582 | |
! | |
subroutine test() | |
type :: t | |
end type t | |
class(t), allocatable :: c,d | |
allocate(t :: d) | |
allocate(c,source=d) | |
end | |
type, abstract :: t | |
end type t | |
type t2 | |
class(t), pointer :: t | |
end type t2 | |
class(t), allocatable :: a,c,d | |
type(t2) :: b | |
allocate(a) ! { dg-error "requires a type-spec or source-expr" } | |
allocate(b%t) ! { dg-error "requires a type-spec or source-expr" } | |
end |