xref: /llvm-project/flang/test/Semantics/multi-programs04.f90 (revision c207e36025f7a7889f1f26cf8a1b797656060e78)
1! RUN: %python %S/test_errors.py %s %flang_fc1
2! Test the restriction in 5.2.2
3
4program m
5end
6!ERROR: A source file cannot contain more than one main program
7!ERROR: 'm' is already declared in this scoping unit
8program m
9end
10