llvm-project
20 строк · 413.0 Байт
1! RUN: %flang_fc1 -fsyntax-only %s 2>&1 | FileCheck %s
2
3! Test ignoring @PROCESS directive in fixed source form
4
5@process opt(3)
6@process opt(0)
7@process
8@processopt(3)
9subroutine f()
10c@process
11end
12
13!CHECK: Character in fixed-form label field must be a digit
14@
15
16!CHECK: Character in fixed-form label field must be a digit
17@proce
18
19!CHECK: Character in fixed-form label field must be a digit
20@precoss
21