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