Subversion Repositories openrisc

! { 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