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