multi-programs04.f90 « Semantics « test « flang - llvm-project.git - Unnamed repository; edit this file 'description' to name the repository.

index : llvm-project.git

Unnamed repository; edit this file 'description' to name the repository.

thomasg

summary refs log tree commit diff

path: root/flang/test/Semantics/multi-programs04.f90

blob: e69ac7325278e56b8edc46a5752b9617912f5d2a (plain)

! 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