| ! RUN: %S/test_errors.sh %s %t %f18 -fopenmp |
| ! OpenMP Version 4.5 |
| ! 2.7.1 Loop Construct |
| ! The do-loop cannot be a DO WHILE or a DO loop without loop control. |
| |
| program omp_do |
| integer :: i = 0,k |
| !$omp do |
| !ERROR: The DO loop cannot be a DO WHILE with DO directive. |
| do while (i <= 10) |
| print *, "it",i |
| i = i+1 |
| end do |
| !$omp end do |
| |
| !$omp do |
| !ERROR: The DO loop cannot be a DO WHILE with DO directive. |
| do while (i <= 10) |
| do while (j <= 10) |
| print *, "it",k |
| j = j+1 |
| end do |
| i = i+1 |
| end do |
| !$omp end do |
| end program omp_do |