! Test to ensure TODO message is emitted for tile OpenMP 5.1 Directives when they are nested.

!RUN: not %flang_fc1 -emit-hlfir -fopenmp -fopenmp-version=51 -o - %s 2>&1 | FileCheck %s

subroutine loop_transformation_construct
  implicit none
  integer :: I = 10
  integer :: x
  integer :: y(I)

  !$omp do
  !$omp tile
  do i = 1, I
    y(i) = y(i) * 5
  end do
  !$omp end tile
  !$omp end do
end subroutine

!CHECK: not yet implemented: Unhandled loop directive (tile)