22 lines · plain
1! RUN: not %flang -fsyntax-only -fopenmp %s 2>&1 | FileCheck %s2! OpenMP Version 4.53! 2.9.2 taskloop Construct4! Invalid entry to OpenMP structured block.5 6program omp_taskloop7 integer i , j8 9 !CHECK: invalid branch into an OpenMP structured block10 goto 1011 12 !$omp taskloop private(j) grainsize(500) nogroup13 do i=1,1000014 do j=1,i15 !CHECK: In the enclosing TASKLOOP directive branched into16 10 call loop_body(i, j)17 end do18 end do19 !$omp end taskloop20 21end program omp_taskloop22