bolt/deps/llvm-18.1.8/flang/test/Lower/OpenMP/Todo/omp-doconcurrent.f90
2025-02-14 19:21:04 +01:00

10 lines
316 B
Fortran

! RUN: %not_todo_cmd bbc -emit-fir -fopenmp -o - %s 2>&1 | FileCheck %s
! RUN: %not_todo_cmd %flang_fc1 -emit-fir -fopenmp -o - %s 2>&1 | FileCheck %s
! CHECK: not yet implemented: Do Concurrent in Worksharing loop construct
subroutine sb()
!$omp do
do concurrent(i=1:10)
print *, i
end do
end subroutine