| ! RUN: %S/test_errors.sh %s %t %f18 -fopenmp | |
| ! XFAIL: * | |
| ! OpenMP Version 4.5 | |
| ! 2.7.1 Loop Construct | |
| ! collapse(n) where n > num of loops | |
| program omp_do | |
| integer i, j, k | |
| !ERROR: Not enough do loops for collapsed !$OMP DO | |
| !$omp do collapse(2) | |
| do i = 1, 10 | |
| print *, "hello" | |
| end do | |
| !$omp end do | |
| end program omp_do |