22 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12module m3 type t4 integer n5 contains6 procedure :: assign1 => myassign, assign2 => myassign7 generic :: ASSIGNMENT(=) => assign18 generic :: ASSIGNMENT(=) => assign29 end type10 contains11 subroutine myassign(to, from)12 class(t), intent(out) :: to13 integer, intent(in) :: from14 to%n = from15 end16 subroutine test17 type(t) x18 !ERROR: Multiple specific procedures for the generic ASSIGNMENT(=) match operand types TYPE(t) and INTEGER(4)19 x = 520 end21end22