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

 ! RUN: %S/test_errors.sh %s %t %flang_fc1
 ! Test extension: RETURN from main program

 return !ok
 !ERROR: RETURN with expression is only allowed in SUBROUTINE subprogram
 return 0
 end
	! RUN: %S/test_errors.sh %s %t %flang_fc1
	! Test extension: RETURN from main program

	return !ok
	!ERROR: RETURN with expression is only allowed in SUBROUTINE subprogram
	return 0
	end