! 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