1! RUN: %S/test_errors.sh %s %t %flang_fc1
2! REQUIRES: shell
3! Check calls with alt returns
4
5 CALL TEST (N, *100, *200 )
6 PRINT *,'Normal return'
7 STOP
8100 PRINT *,'First alternate return'
9 STOP
10200 PRINT *,'Secondnd alternate return'
11 END
12