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