23 lines · plain
1! RUN: not %flang_fc1 -fsyntax-only %s 2>&1 | FileCheck %s2 3! Test ignoring @PROCESS directive in fixed source form4 5@process opt(3)6@process opt(0)7@process8@processopt(3)9 subroutine f()10c@process11 end12 13!CHECK: Character in fixed-form label field must be a digit14@15 16!CHECK: Character in fixed-form label field must be a digit17@proce 18 19!CHECK: Character in fixed-form label field must be a digit20@precoss 21 22 end23