Subversion Repositories openrisc

! { dg-do run }

!

! PR [OOP] Compile-time errors on typed allocation and pointer function result assignment

!

! Contributed by Damian Rouson 

module m

  implicit none

  type foo

  end type

  type ,extends(foo) :: bar

  end type

contains

  function new_bar()

    class(foo) ,pointer :: new_bar

    allocate(bar :: new_bar)

  end function

end module

end

! { dg-final { cleanup-modules "m" } }