llvm-project/flang/test/Semantics/altreturn02.f90

9 lines
211 B
Fortran

! RUN: %B/test/Semantics/test_errors.sh %s %flang %t
! Check subroutine with alt return
SUBROUTINE TEST (N, *, *)
IF ( N .EQ. 0 ) RETURN
IF ( N .EQ. 1 ) RETURN 1
RETURN 2
END