1! RUN: not %flang -fsyntax-only -fopenmp %s 2>&1 | FileCheck %s 2! OpenMP Version 4.5 3! 2.9.2 taskloop Construct 4! Invalid entry to OpenMP structured block. 5 6program omp_taskloop 7 integer i , j 8 9 !CHECK: invalid branch into an OpenMP structured block 10 goto 10 11 12 !$omp taskloop private(j) grainsize(500) nogroup 13 do i=1,10000 14 do j=1,i 15 !CHECK: In the enclosing TASKLOOP directive branched into 16 10 call loop_body(i, j) 17 end do 18 end do 19 !$omp end taskloop 20 21end program omp_taskloop 22