blob: fb86fbaf5675f8bc8a098a40b1736b33bfa0d0c4 [file] [log] [blame]
! RUN: not %flang -fsyntax-only -fopenmp %s 2>&1 | FileCheck %s
! OpenMP Version 4.5
! 2.8.1 simd Construct
! A program that branches into or out of a simd region is non-conforming.
program omp_simd
integer i, j
!$omp simd
do i = 1, 10
do j = 1, 10
print *, "omp simd"
!CHECK: invalid branch leaving an OpenMP structured block
goto 10
end do
end do
!$omp end simd
!CHECK: Outside the enclosing SIMD directive
10 stop
end program omp_simd