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