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