!RUN: %python %S/../test_errors.py %s %flang -fopenmp -fopenmp-version=60

! Make sure we correctly count the number of nests generated by FUSE
! without a LOOPRANGE clause.

subroutine f
  integer :: i

  !$omp do
  !ERROR: This construct requires a sequence of at least 2 loops, but the loop sequence has a length of 1
  !BECAUSE: LOOPRANGE clause was specified with a count of 2 starting at loop 1
  !$omp fuse looprange(1, 2)
  !BECAUSE: LOOPRANGE clause was not specified, the entire loop sequence is assumed
  !$omp fuse
  do i = 1, 10
  end do
  !$omp end fuse
  !$omp end fuse
end