18 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12module m3 contains4 subroutine simple_arg(x)5 integer, intent(in) :: x6 end subroutine simple_arg7 subroutine procedure_arg(x)8 procedure(simple_arg) :: x9 end subroutine procedure_arg10 subroutine s11 !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 stop16 end subroutine s17end module m18