flang/test/Semantics/OpenMP/taskloop02.f90

   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
   6 program 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
  21 end program omp_taskloop