| ! RUN: %flang_fc1 -fdebug-unparse -fopenmp %s | FileCheck --ignore-case %s |
| ! RUN: %flang_fc1 -fdebug-dump-parse-tree -fopenmp %s | FileCheck --check-prefix="PARSE-TREE" %s |
| |
| subroutine openmp_parse_unroll(x) |
| |
| integer, intent(inout)::x |
| |
| !CHECK: !$omp unroll full |
| !$omp unroll full |
| !CHECK: do |
| do x = 1, 100 |
| call F1() |
| !CHECK: end do |
| end do |
| !CHECK: !$omp end unroll |
| !$omp end unroll |
| |
| !PARSE-TREE: OpenMPConstruct -> OpenMPLoopConstruct |
| !PARSE-TREE: OmpBeginLoopDirective |
| !PARSE-TREE: OmpLoopDirective -> llvm::omp::Directive = unroll |
| !PARSE-TREE: OmpClauseList -> OmpClause -> Full |
| END subroutine openmp_parse_unroll |