| ! RUN: not %flang_fc1 -fsyntax-only %s 2>&1 | FileCheck %s | |
| ! CHECK: end.f:3:7: error: Program unit END statement may not be continued in fixed form source | |
| e | |
| + nd | |
| ! CHECK: end.f:6:7: error: Program unit END statement may not be continued in fixed form source | |
| end prog | |
| + ram | |
| ! CHECK: end.f:9:7: error: Program unit END statement may not be continued in fixed form source | |
| end | |
| + program | |
| ! CHECK: end.f:12:7: error: Program unit END statement may not be continued in fixed form source | |
| end | |
| + program | |
| 1 main | |
| ! CHECK: end.f:16:7: error: Program unit END statement may not be continued in fixed form source | |
| end program | |
| 1 main | |
| ! CHECK: end.f:19:7: error: Initial line of continued statement must not appear to be a program unit END in fixed form source | |
| end | |
| + = end + 1 | |
| ! CHECK: end.f:22:7: error: Initial line of continued statement must not appear to be a program unit END in fixed form source | |
| end module | |
| + = end module + 1 | |
| ! 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 | |
| end = | |
| + end + 1 | |
| ! 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 | |
| end block data ( | |
| + 1) = 666 |