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