[flang-commits] [flang] Allow do concurrent inside cuf kernel directive (PR #127693)

[Zhen Wang via flang-commits]

================
@@ -0,0 +1,20 @@
+! RUN: bbc -emit-hlfir -fcuda %s -o - | FileCheck %s
+
+! Check if do concurrent works inside cuf kernel directive
+
+program main
+  integer :: i, n
+  integer, managed :: a(3)
+  a(:) = -1
+  n = 3
+  n = n - 1
+  !$cuf kernel do
+  do concurrent(i=1:n)
----------------
wangzpgi wrote:

Do you mean something like `do concurrent (i=1:n, j=1:m)`? This is currently having semantic errors, I will add this case when fixing the semantic error.

https://github.com/llvm/llvm-project/pull/127693