[NFC][RISCV] Remove CFIIndex argument from allocateStack (#117871)
[llvm-project.git] / flang / test / Semantics / multi-programs04.f90
blob54b0235aa78f05773362feca8956671865554262
1 ! RUN: %python %S/test_errors.py %s %flang_fc1
2 ! Test the restriction in 5.2.2
4 program m
5 end
6 !ERROR: A source file cannot contain more than one main program
7 !ERROR: 'm' is already declared in this scoping unit
8 program m
9 end