| !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 | |