flang/test/Semantics/multi-programs04.f90 - mirrors/github.com/llvm/llvm-project - Git at Google

 ! RUN: %python %S/test_errors.py %s %flang_fc1
 ! Test the restriction in 5.2.2

 program m
 end
 !ERROR: A source file cannot contain more than one main program
 !ERROR: 'M' is already declared in this scoping unit
 program m
 end
	! RUN: %python %S/test_errors.py %s %flang_fc1
	! Test the restriction in 5.2.2

	program m
	end
	!ERROR: A source file cannot contain more than one main program
	!ERROR: 'M' is already declared in this scoping unit
	program m
	end