test/Semantics/altreturn04.f90 - llvm-project/flang - Git at Google

 ! RUN: %S/test_errors.sh %s %t %flang_fc1
 ! Functions cannot use alt return

 REAL FUNCTION altreturn01(X)
 !ERROR: RETURN with expression is only allowed in SUBROUTINE subprogram
   RETURN 1
 END
	! RUN: %S/test_errors.sh %s %t %flang_fc1
	! Functions cannot use alt return

	REAL FUNCTION altreturn01(X)
	!ERROR: RETURN with expression is only allowed in SUBROUTINE subprogram
	RETURN 1
	END