| ! 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_fuse(x) |
| |
| integer, intent(inout)::x |
| |
| !CHECK: !$omp fuse |
| !$omp fuse |
| !CHECK: do |
| do x = 1, 100 |
| call F1() |
| !CHECK: end do |
| end do |
| !CHECK: do |
| do x = 1, 100 |
| call F1() |
| !CHECK: end do |
| end do |
| !CHECK: !$omp end fuse |
| !$omp end fuse |
| |
| !PARSE-TREE: OpenMPConstruct -> OpenMPLoopConstruct |
| !PARSE-TREE: OmpBeginLoopDirective |
| !PARSE-TREE: OmpDirectiveName -> llvm::omp::Directive = fuse |
| |
| END subroutine openmp_fuse |
| |
