1! { dg-do compile }
2!
3! PR 49074: [OOP] Defined assignment w/ CLASS arrays: Incomplete error message
4!
5! Contribute by Jerry DeLisle <jvdelisle@gcc.gnu.org>
6
7module foo
8
9  type bar
10  contains
11    generic :: assignment (=) => assgn
12    procedure :: assgn
13  end type
14
15contains
16
17  elemental subroutine assgn (a, b)
18    class (bar), intent (inout) :: a
19    class (bar), intent (in) :: b
20  end subroutine
21
22end module
23
24
25  use foo
26  type (bar) :: foobar(2)
27  foobar = bar()           ! There was a not-implemented error here
28end
29