Subversion Repositories openrisc

! { dg-do compile }

!

! PR 49074: [OOP] Defined assignment w/ CLASS arrays: Incomplete error message

!

! Contribute by Jerry DeLisle 

module foo

  type bar

  contains

    generic :: assignment (=) => assgn

    procedure :: assgn

  end type

contains

  elemental subroutine assgn (a, b)

    class (bar), intent (inout) :: a

    class (bar), intent (in) :: b

  end subroutine

end module

  use foo

  type (bar) :: foobar(2)

  foobar = bar()           ! There was a not-implemented error here

end

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