3 ! PR 49074: [OOP] Defined assignment w/ CLASS arrays: Incomplete error message
5 ! Contribute by Jerry DeLisle <jvdelisle@gcc.gnu.org>
11 generic :: assignment (=) => assgn
17 elemental subroutine assgn (a, b)
18 class (bar), intent (inout) :: a
19 class (bar), intent (in) :: b
26 type (bar) :: foobar(2)
27 foobar = bar() ! There was a not-implemented error here
30 ! { dg-final { cleanup-modules "foo" } }