24 lines · plain
1! RUN: not %flang_fc1 -fsyntax-only %s 2>&1 | FileCheck %s2 3! Test ignoring @PROCESS directive in free source form4 5@process opt(3)6@process opt(0)7 @process strict8@processopt(3)9subroutine f()10print *, "@process"11 ! @process12end subroutine f13 14!CHECK: error: expected '('15@p16 17!CHECK: error: expected '('18@proce19 20!CHECK: error: expected '('21@precoss22end23 24