xref: /llvm-project/flang/test/Semantics/OpenMP/do02.f90 (revision 879b7268b8edca42f35648c4b54e5426bf0877bb) 
1! RUN: %python %S/../test_errors.py %s %flang_fc1 %openmp_flags
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