1! RUN: not %flang_fc1 -fsyntax-only %s 2>&1 | FileCheck %s 2 3! Test ignoring @PROCESS directive in free source form 4 5@process opt(3) 6@process opt(0) 7 @process strict 8@processopt(3) 9subroutine f() 10print *, "@process" 11 ! @process 12end subroutine f 13 14!CHECK: error: expected '(' 15@p 16 17!CHECK: error: expected '(' 18@proce 19 20!CHECK: error: expected '(' 21@precoss 22end 23 24