[flang] Accept polymorphic component element in storage_size
[llvm-project.git] / flang / test / Semantics / multi-programs06.f90
blobec7d12e93ad0fb74d2c058aa7621a498661adab8
1 ! RUN: %python %S/test_errors.py %s %flang_fc1
2 ! Test the restriction in 5.2.2
4 end
5 !ERROR: A source file cannot contain more than one main program
6 end
7 !ERROR: A source file cannot contain more than one main program
8 end