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