llvm-project

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)
9
      subroutine f()
10
c@process
11
      end
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