21 lines · plain
1! Test to ensure TODO message is emitted for unroll OpenMP 5.1 Directives when they are nested.2 3!RUN: not %flang_fc1 -emit-hlfir -fopenmp -fopenmp-version=51 -o - %s 2>&1 | FileCheck %s4 5program loop_transformation_construct6 implicit none7 integer, parameter :: I = 108 integer :: x9 integer :: y(I)10 11 !$omp do12 !$omp unroll partial(2)13 do x = 1, I14 y(x) = y(x) * 515 end do16 !$omp end unroll17 !$omp end do18end program loop_transformation_construct19 20!CHECK: not yet implemented: Applying a loop-associated on the loop generated by the unroll construct21