flang/test/Semantics/call26.f90

   1 ! RUN: %python %S/test_errors.py %s %flang_fc1
   2 module 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
  17 end module m