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