flang/test/Semantics/OpenMP/omp-do02.f90

   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
   8 program 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
  21 end program omp_do