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

[Valentin Clement バレンタイン クレメン 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)
----------------
clementval wrote:

Can you add a test with more ranges the do concurrent headers? 

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