[flang] Accept polymorphic component element in storage_size
[llvm-project.git] / flang / test / Parser / end.f
blobe0225e695a4789e2a344b2ab9f9345ef41b2efbc
1 ! RUN: not %flang_fc1 -fsyntax-only %s 2>&1 | FileCheck %s
2 ! CHECK: end.f:3:7: error: Program unit END statement may not be continued in fixed form source
4 + nd
5 ! CHECK: end.f:6:7: error: Program unit END statement may not be continued in fixed form source
6 end prog
7 + ram
8 ! CHECK: end.f:9:7: error: Program unit END statement may not be continued in fixed form source
9 end
10 + program
11 ! CHECK: end.f:12:7: error: Program unit END statement may not be continued in fixed form source
12 end
13 + program
14 1 main
15 ! CHECK: end.f:16:7: error: Program unit END statement may not be continued in fixed form source
16 end program
17 1 main
18 ! CHECK: end.f:19:7: error: Initial line of continued statement must not appear to be a program unit END in fixed form source
19 end
20 + = end + 1
21 ! CHECK: end.f:22:7: error: Initial line of continued statement must not appear to be a program unit END in fixed form source
22 end module
23 + = end module + 1
24 ! CHECK-NOT: end.f:25:7: error: Initial line of continued statement must not appear to be a program unit END in fixed form source
25 end =
26 + end + 1
27 ! CHECK-NOT: end.f:28:7: error: Initial line of continued statement must not appear to be a program unit END in fixed form source
28 end block data (
29 + 1) = 666