! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
! OpenMP Version 4.5
! 2.7.1 Loop Construct
! The DO loop iteration variable must be of integer type.

program omp_do
  real i, j, k
  !$omp do
  !ERROR: The DO loop iteration variable must be of integer type
  do i = 1, 10
    do j = 1, 10
      print *, "it", i, j
    end do
  end do
  !$omp end do

  !ERROR: This construct requires a perfect nest of depth 3, but the associated nest is a perfect nest of depth 2
  !BECAUSE: COLLAPSE clause was specified with argument 3
  !$omp do collapse(3)
  do i = 1, 10
    do j = 1, 10
      print *, "it", i, j
    end do
  end do
  !$omp end do

  !$omp do collapse(2)
  !ERROR: The DO loop iteration variable must be of integer type
  do i = 1, 10
    !ERROR: The DO loop iteration variable must be of integer type
    do j = 1, 10
      print *, "it", i, j
    end do
  end do
  !$omp end do

end program omp_do