flang/test/Parser/OpenMP/declare-target-to-clause.f90

   1 !RUN: %flang_fc1 -fdebug-unparse -fopenmp -fopenmp-version=52 %s | FileCheck --ignore-case --check-prefix="UNPARSE" %s
   2 !RUN: %flang_fc1 -fdebug-dump-parse-tree -fopenmp -fopenmp-version=52 %s | FileCheck --check-prefix="PARSE-TREE" %s
   3
   4 module m
   5   integer :: x, y
   6
   7   !$omp declare target to(x, y)
   8 end
   9
  10 !UNPARSE: MODULE m
  11 !UNPARSE:  INTEGER x, y
  12 !UNPARSE: !$OMP DECLARE TARGET  TO(x,y)
  13 !UNPARSE: END MODULE
  14
  15 !PARSE-TREE: OmpDeclareTargetSpecifier -> OmpDeclareTargetWithClause -> OmpClauseList -> OmpClause -> To -> OmpToClause
  16 !PARSE-TREE: | OmpObjectList -> OmpObject -> Designator -> DataRef -> Name = 'x'
  17 !PARSE-TREE: | OmpObject -> Designator -> DataRef -> Name = 'y'
  18 !PARSE-TREE: | bool = 'true'
  19