[flang] Accept polymorphic component element in storage_size

[llvm-project.git] / flang / test / Semantics / OpenMP / omp-taskloop-simd01.f90

! RUN: %python %S/../test_errors.py %s %flang -fopenmp

! OpenMP Version 5.0
! 2.10.3 taskloop simd Construct

program omp_taskloop_simd
  integer i , j , k

  !$omp taskloop simd reduction(+:k)
  do i=1,10000
    do j=1,i
      k = k + 1
    end do
  end do
  !$omp end taskloop simd

end program omp_taskloop_simd