| ! RUN: not %flang_fc1 -fsyntax-only %s 2>&1 | FileCheck %s | |
| ! Test ignoring @PROCESS directive in free source form | |
| @process opt(3) | |
| @process opt(0) | |
| @process strict | |
| @processopt(3) | |
| subroutine f() | |
| print *, "@process" | |
| ! @process | |
| end subroutine f | |
| !CHECK: error: expected '(' | |
| @p | |
| !CHECK: error: expected '(' | |
| @proce | |
| !CHECK: error: expected '(' | |
| @precoss | |
| end | |