23 lines
362 B
Fortran
23 lines
362 B
Fortran
! RUN: not %flang_fc1 -fsyntax-only %s 2>&1 | FileCheck %s
|
|
|
|
! Test ignoring @PROCESS directive in free source form
|
|
|
|
@process opt(3)
|
|
@process opt(0)
|
|
@process strict
|
|
@processopt(3)
|
|
subroutine f()
|
|
print *, "@process"
|
|
! @process
|
|
end subroutine f
|
|
|
|
!CHECK: error: expected '('
|
|
@p
|
|
|
|
!CHECK: error: expected '('
|
|
@proce
|
|
|
|
!CHECK: error: expected '('
|
|
@precoss
|
|
end
|
|
|