altreturn02.f90 194 Bytes Raw Blame History Permalink 1 2 3 4 5 6 7 8 ! RUN: %S/test_errors.sh %s %t %f18 ! Check subroutine with alt return SUBROUTINE TEST (N, *, *) IF ( N .EQ. 0 ) RETURN IF ( N .EQ. 1 ) RETURN 1 RETURN 2 END