1! RUN: %flang_fc1 -fdebug-unparse -fopenmp %s | FileCheck --ignore-case %s 2! RUN: %flang_fc1 -fdebug-dump-parse-tree -fopenmp %s | FileCheck --check-prefix="PARSE-TREE" %s 3 4subroutine openmp_tiles(x) 5 6 integer, intent(inout)::x 7 8!CHECK: !$omp tile 9!$omp tile 10!CHECK: do 11 do x = 1, 100 12 call F1() 13!CHECK: end do 14 end do 15!CHECK: !$omp end tile 16!$omp end tile 17 18!PARSE-TREE: OpenMPConstruct -> OpenMPLoopConstruct 19!PARSE-TREE: OmpBeginLoopDirective 20!PARSE-TREE: OmpLoopDirective -> llvm::omp::Directive = tile 21 22END subroutine openmp_tiles 23 24