1 ! RUN: %flang_fc1 -fdebug-unparse -fopenmp %s 2>&1 | FileCheck %s
3 #define DIR_START !dir$
4 #define DIR_CONT !dir$&
5 #define FIRST(x) DIR_START x
6 #define NEXT(x) DIR_CONT x
9 #define OMP_START !$omp
10 #define OMP_CONT !$omp&
14 subroutine s1(x1, x2, x3, x4, x5, x6, x7)
21 DIR_START ignore_tkr x3
23 !dir$ ignore_tkr AMPER
38 OMP_START reduction(+:x)
44 OMP_START & reduction(+:x)
50 OMP_CONT reduction(+:x)
65 !CHECK: SUBROUTINE s1 (x1, x2, x3, x4, x5, x6, x7)
66 !CHECK: !DIR$ IGNORE_TKR x1
67 !CHECK: !DIR$ IGNORE_TKR x2
68 !CHECK: !DIR$ IGNORE_TKR x3
69 !CHECK: !DIR$ IGNORE_TKR x4
70 !CHECK: !DIR$ IGNORE_TKR x5
71 !CHECK: !DIR$ IGNORE_TKR x6
73 !CHECK: !$OMP PARALLEL DO REDUCTION(+: x)
76 !CHECK: !$OMP PARALLEL DO REDUCTION(+: x)
79 !CHECK: !$OMP PARALLEL DO REDUCTION(+: x)
82 !CHECK: END SUBROUTINE
84 !CHECK: END SUBROUTINE
86 !CHECK: END SUBROUTINE