24 lines · plain
1! RUN: not %flang -fsyntax-only -fopenmp %s 2>&1 | FileCheck %s2! OpenMP Version 4.53! 2.7.1 Loop Construct4! No statement in the associated loops other than the DO statements5! can cause a branch out of the loops6 7program omp_do8 integer i, j, k9 10 !$omp do11 do i = 1, 1012 do j = 1, 1013 print *, "Hello"14 !CHECK: invalid branch leaving an OpenMP structured block15 goto 1016 end do17 end do18 !$omp end do19 20 !CHECK: Outside the enclosing DO directive21 10 stop22 23end program omp_do24