1! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp 2! REQUIRES: shell 3! OpenMP Version 4.5 4! 2.7.1 Loop Construct 5! The do-loop cannot be a DO WHILE or a DO loop without loop control. 6 7program omp_do 8 integer :: i = 0,k 9 !$omp do 10 !ERROR: The DO loop cannot be a DO WHILE with DO directive. 11 do while (i <= 10) 12 print *, "it",i 13 i = i+1 14 end do 15 !$omp end do 16 17 !$omp do 18 !ERROR: The DO loop cannot be a DO WHILE with DO directive. 19 do while (i <= 10) 20 do while (j <= 10) 21 print *, "it",k 22 j = j+1 23 end do 24 i = i+1 25 end do 26 !$omp end do 27end program omp_do 28