flang/test/Semantics/altreturn02.f90

   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