1!RUN: %S/test_errors.sh %s %t %flang -fopenmp
2!REQUIRES: shell
3! OpenMP Version 4.5
4! 2.7.1 Collapse Clause
5program omp_doCollapse
6  integer:: i,j
7  !ERROR: The value of the parameter in the COLLAPSE or ORDERED clause must not be larger than the number of nested loops following the construct.
8  !$omp do collapse(3)
9  do i = 1,10
10    do j = 1, 10
11      print *, "hello"
12    end do
13  end do
14  !$omp end do
15
16  do i = 1,10
17    do j = 1, 10
18      !ERROR: The value of the parameter in the COLLAPSE or ORDERED clause must not be larger than the number of nested loops following the construct.
19      !$omp do collapse(2)
20      do k = 1, 10
21        print *, "hello"
22      end do
23      !$omp end do
24    end do
25  end do
26end program omp_doCollapse
27
28