22 lines
622 B
Fortran
22 lines
622 B
Fortran
! 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
|