18 lines · plain
1!RUN: %flang_fc1 -fsyntax-only %s2module m3 type t4 contains5 procedure asst6 generic :: assignment(=) => asst7 end type8 contains9 pure subroutine asst(lhs, rhs)10 class(t), intent(in out) :: lhs11 class(t), intent(in) :: rhs12 end13 pure subroutine test(x, y)14 class(t), intent(in out) :: x, y15 x = y ! spurious definability error16 end17end18