1! RUN: %S/test_errors.sh %s %t %flang_fc1
2! REQUIRES: shell
3! Check subroutine with alt return
4
5       SUBROUTINE TEST (N, *, *)
6       IF ( N .EQ. 0 ) RETURN
7       IF ( N .EQ. 1 ) RETURN 1
8       RETURN 2
9       END
10