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