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