Subversion Repositories openrisc

! { dg-do compile }

!

! PR 47745: [OOP] Segfault with CLASS(*) and derived type dummy arguments

!

! Contributed by Rodney Polkinghorne 

  type, abstract :: T

  end type T

contains

  class(T) function add()  ! { dg-error "must be dummy, allocatable or pointer" }

    add = 1  ! { dg-error "Variable must not be polymorphic in intrinsic assignment" }

  end function

end