1! RUN: %S/test_errors.sh %s %t %flang_fc1
2! REQUIRES: shell
3! Test alternat return argument passing for internal and external subprograms
4! Both of the following are OK
5  call extSubprogram (*100)
6  call intSubprogram (*100)
7  call extSubprogram (*101)
8  call intSubprogram (*101)
9100 PRINT *,'First alternate return'
10!ERROR: Label '101' is not a branch target
11!ERROR: Label '101' is not a branch target
12101 FORMAT("abc")
13contains
14  subroutine intSubprogram(*)
15    return(1)
16  end subroutine
17end
18