forked from OSchip/llvm-project
10 lines
225 B
Fortran
10 lines
225 B
Fortran
|
! 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
|