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