1! RUN: not %flang -fsyntax-only -fopenmp %s 2>&1 | FileCheck %s
2! OpenMP Version 4.5
3! 2.8.1 simd Construct
4! A program that branches into or out of a simd region is non-conforming.
5
6program omp_simd
7  integer i, j
8
9  !$omp simd
10  do i = 1, 10
11    do j = 1, 10
12      print *, "omp simd"
13      !CHECK: invalid branch leaving an OpenMP structured block
14      goto 10
15    end do
16  end do
17  !$omp end simd
18
19  !CHECK: Outside the enclosing SIMD directive
20  10 stop
21
22end program omp_simd
23