flang/test/Parser/at-process.f

   1 ! RUN: not %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
  22 !CHECK: at-process.f:14:1: error: parser FAIL (final position)