27 lines · plain
1! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp2! OpenMP Version 4.53! 2.7.1 Loop Construct4! The do-loop cannot be a DO WHILE or a DO loop without loop control.5 6program omp_do7 integer :: i = 0,k8 !$omp do9 !ERROR: The associated loop of a loop-associated directive cannot be a DO WHILE.10 do while (i <= 10)11 print *, "it",i12 i = i+113 end do14 !$omp end do15 16 !$omp do17 !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",k21 j = j+122 end do23 i = i+124 end do25 !$omp end do26end program omp_do27