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