flang/test/Semantics/OpenMP/do09.f90

   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
   6 program omp_do
   7   integer ::  i = 0,k
   8   !$omp do
   9   !ERROR: The DO loop cannot be a DO WHILE with DO directive.
  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 DO loop cannot be a DO WHILE with DO directive.
  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
  26 end program omp_do