20 lines
413 B
Fortran
20 lines
413 B
Fortran
! RUN: %flang_fc1 -fsyntax-only %s 2>&1 | FileCheck %s
|
|
|
|
! Test ignoring @PROCESS directive in fixed source form
|
|
|
|
@process opt(3)
|
|
@process opt(0)
|
|
@process
|
|
@processopt(3)
|
|
subroutine f()
|
|
c@process
|
|
end
|
|
|
|
!CHECK: Character in fixed-form label field must be a digit
|
|
@
|
|
|
|
!CHECK: Character in fixed-form label field must be a digit
|
|
@proce
|
|
|
|
!CHECK: Character in fixed-form label field must be a digit
|
|
@precoss
|