1! RUN: %S/test_errors.sh %s %t %flang -fopenmp
2! XFAIL: *
3
4! OpenMP Version 4.5
5! 2.7.1 Loop Construct
6! Exit statement terminating !$OMP DO loop
7
8program omp_do
9  integer i, j, k
10
11  !$omp do
12  do i = 1, 10
13    do j = 1, 10
14      print *, "Hello"
15    end do
16    !ERROR: EXIT statement terminating !$OMP DO loop
17    exit
18  end do
19  !$omp end do
20
21end program omp_do
22