17 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12! Test alternate return argument passing for internal and external subprograms3! Both of the following are OK4 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 target10!ERROR: Label '101' is not a branch target11101 FORMAT("abc")12contains13 subroutine intSubprogram(*)14 return(1)15 end subroutine16end17