flang/test/Parser/OpenMP/sentinels.f

   1 ! RUN: %flang_fc1 -fopenmp -E %s | FileCheck %s
   2 ! CHECK:      program main
   3 ! CHECK:       interface
   4 ! CHECK:        subroutine sub(a, b)
   5 ! CHECK:!dir$ ignore_tkr a
   6 ! CHECK:!dir$ ignore_tkr b
   7 ! CHECK:          real(4):: a, b
   8 ! CHECK:        end subroutine
   9 ! CHECK:       end interface
  10 ! CHECK:      PRINT *, "Is '    '"
  11 ! CHECK:  123 PRINT *, "Is '123 '"
  12
  13 !@cuf subroutine atcuf;
  14       program main
  15        interface
  16         subroutine sub(a, b)
  17 !dir$ ignore_tkr a
  18 !dir$ ignore_tkr
  19 !dir$+ b
  20           real(4):: a, b
  21         end subroutine
  22        end interface
  23 !
  24 !       comment line
  25 !@fp  PRINT *, "This is a comment line"
  26 !@f p PRINT *, "This is a comment line"
  27 !$    PRINT *, "Is '    '"
  28 !$123 PRINT *, "Is '123 '"
  29 !$ABC PRINT *, "Is 'ABC '"
  30 ! $    PRINT *, "This is a comment line 6"
  31 c    $This is a comment line
  32 !0$110This is a comment line
  33
  34 ! $ This is a comment line
  35 ! $  0This is a comment line
  36 !    &This is a comment line
  37 !  $  This is a comment line
  38 ! $   This is a comment line
  39 C $   This is a comment line
  40 c $   his is a comment line
  41 * $   This is a comment line
  42       end