flang/test/Parser/OpenMP/linear-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 subroutine f00(x)
   5   integer :: x
   6   !$omp do linear(x)
   7   do x = 1, 10
   8   enddo
   9   !$omp end do
  10 end
  11
  12 !UNPARSE: SUBROUTINE f00 (x)
  13 !UNPARSE:  INTEGER x
  14 !UNPARSE: !$OMP DO  LINEAR(x)
  15 !UNPARSE:  DO x=1_4,10_4
  16 !UNPARSE:  END DO
  17 !UNPARSE: !$OMP END DO
  18 !UNPARSE: END SUBROUTINE
  19
  20 !PARSE-TREE: OmpBeginLoopDirective
  21 !PARSE-TREE: | OmpLoopDirective -> llvm::omp::Directive = do
  22 !PARSE-TREE: | OmpClauseList -> OmpClause -> Linear -> OmpLinearClause
  23 !PARSE-TREE: | | OmpObjectList -> OmpObject -> Designator -> DataRef -> Name = 'x'
  24 !PARSE-TREE: | | bool = 'true'
  25 !PARSE-TREE: DoConstruct
  26
  27 subroutine f01(x)
  28   integer :: x
  29   !$omp do linear(x : 2)
  30   do x = 1, 10
  31   enddo
  32   !$omp end do
  33 end
  34
  35 !UNPARSE: SUBROUTINE f01 (x)
  36 !UNPARSE:  INTEGER x
  37 !UNPARSE: !$OMP DO  LINEAR(x: 2_4)
  38 !UNPARSE:  DO x=1_4,10_4
  39 !UNPARSE:  END DO
  40 !UNPARSE: !$OMP END DO
  41 !UNPARSE: END SUBROUTINE
  42
  43 !PARSE-TREE: OmpBeginLoopDirective
  44 !PARSE-TREE: | OmpLoopDirective -> llvm::omp::Directive = do
  45 !PARSE-TREE: | OmpClauseList -> OmpClause -> Linear -> OmpLinearClause
  46 !PARSE-TREE: | | OmpObjectList -> OmpObject -> Designator -> DataRef -> Name = 'x'
  47 !PARSE-TREE: | | Modifier -> OmpStepSimpleModifier -> Scalar -> Integer -> Expr = '2_4'
  48 !PARSE-TREE: | | | LiteralConstant -> IntLiteralConstant = '2'
  49 !PARSE-TREE: | | bool = 'true'
  50 !PARSE-TREE: DoConstruct
  51
  52 subroutine f02(x)
  53   integer :: x
  54   !$omp do linear(x : step(3))
  55   do x = 1, 10
  56   enddo
  57   !$omp end do
  58 end
  59
  60 !UNPARSE: SUBROUTINE f02 (x)
  61 !UNPARSE:  INTEGER x
  62 !UNPARSE: !$OMP DO  LINEAR(x: STEP(3_4))
  63 !UNPARSE:  DO x=1_4,10_4
  64 !UNPARSE:  END DO
  65 !UNPARSE: !$OMP END DO
  66 !UNPARSE: END SUBROUTINE
  67
  68 !PARSE-TREE: OmpBeginLoopDirective
  69 !PARSE-TREE: | OmpLoopDirective -> llvm::omp::Directive = do
  70 !PARSE-TREE: | OmpClauseList -> OmpClause -> Linear -> OmpLinearClause
  71 !PARSE-TREE: | | OmpObjectList -> OmpObject -> Designator -> DataRef -> Name = 'x'
  72 !PARSE-TREE: | | Modifier -> OmpStepComplexModifier -> Scalar -> Integer -> Expr = '3_4'
  73 !PARSE-TREE: | | | LiteralConstant -> IntLiteralConstant = '3'
  74 !PARSE-TREE: | | bool = 'true'
  75 !PARSE-TREE: DoConstruct
  76
  77 subroutine f03(x)
  78   integer :: x
  79   !$omp declare simd linear(x : uval)
  80 end
  81
  82 !UNPARSE: SUBROUTINE f03 (x)
  83 !UNPARSE:  INTEGER x
  84 !UNPARSE: !$OMP DECLARE SIMD  LINEAR(x: UVAL)
  85 !UNPARSE: END SUBROUTINE
  86
  87 !PARSE-TREE: SpecificationPart
  88 ![...]
  89 !PARSE-TREE: | DeclarationConstruct -> SpecificationConstruct -> OpenMPDeclarativeConstruct -> OpenMPDeclareSimdConstruct
  90 !PARSE-TREE: | | Verbatim
  91 !PARSE-TREE: | | OmpClauseList -> OmpClause -> Linear -> OmpLinearClause
  92 !PARSE-TREE: | | | OmpObjectList -> OmpObject -> Designator -> DataRef -> Name = 'x'
  93 !PARSE-TREE: | | | Modifier -> OmpLinearModifier -> Value = Uval
  94 !PARSE-TREE: | | | bool = 'true'
  95 !PARSE-TREE: ExecutionPart -> Block
  96
  97 subroutine f04(x)
  98   integer :: x
  99   !$omp declare simd linear(x : uval, step(3))
 100 end
 101
 102 !UNPARSE: SUBROUTINE f04 (x)
 103 !UNPARSE:  INTEGER x
 104 !UNPARSE: !$OMP DECLARE SIMD  LINEAR(x: UVAL, STEP(3_4))
 105 !UNPARSE: END SUBROUTINE
 106
 107 !PARSE-TREE: SpecificationPart
 108 ![...]
 109 !PARSE-TREE: | DeclarationConstruct -> SpecificationConstruct -> OpenMPDeclarativeConstruct -> OpenMPDeclareSimdConstruct
 110 !PARSE-TREE: | | Verbatim
 111 !PARSE-TREE: | | OmpClauseList -> OmpClause -> Linear -> OmpLinearClause
 112 !PARSE-TREE: | | | OmpObjectList -> OmpObject -> Designator -> DataRef -> Name = 'x'
 113 !PARSE-TREE: | | | Modifier -> OmpLinearModifier -> Value = Uval
 114 !PARSE-TREE: | | | Modifier -> OmpStepComplexModifier -> Scalar -> Integer -> Expr = '3_4'
 115 !PARSE-TREE: | | | | LiteralConstant -> IntLiteralConstant = '3'
 116 !PARSE-TREE: | | | bool = 'true'
 117 !PARSE-TREE: ExecutionPart -> Block