1! RUN: %python %S/test_errors.py %s %flang_fc1 2module m 3 contains 4 subroutine simple_arg(x) 5 integer, intent(in) :: x 6 end subroutine simple_arg 7 subroutine procedure_arg(x) 8 procedure(simple_arg) :: x 9 end subroutine procedure_arg 10 subroutine s 11 !ERROR: Alternate return label '42' cannot be associated with dummy argument 'x=' 12 call simple_arg(*42) 13 !ERROR: Alternate return label '42' cannot be associated with dummy argument 'x=' 14 call procedure_arg(*42) 15 42 stop 16 end subroutine s 17end module m 18