! RUN: %flang_fc1 -fsyntax-only %s 2>&1 | FileCheck %s
! Test ignoring @PROCESS directive in fixed source form
@process opt(3)
@process opt(0)
@process
@processopt(3)
subroutine f()
c@process
end
!CHECK: Character in fixed-form label field must be a digit
@
!CHECK: Character in fixed-form label field must be a digit
@proce
!CHECK: Character in fixed-form label field must be a digit
@precoss