1! RUN: %S/test_errors.sh %s %t %f18 -fopenmp 2! XFAIL: * 3 4! OpenMP Version 4.5 5! 2.8.1 simd Construct 6! A program that branches into or out of a simd region is non-conforming. 7 8program omp_simd 9 integer i, j 10 11 !$omp simd 12 do i = 1, 10 13 do j = 1, 10 14 print *, "omp simd" 15 !ERROR: invalid branch to/from OpenMP structured block 16 goto 10 17 end do 18 end do 19 !$omp end simd 20 21 10 stop 22 23end program omp_simd 24