[flang-commits] [flang] [flang][cuda] Emit error when a device actual argument is used in host intrinsic (PR #172914)

[Peter Klausler via flang-commits]

================
@@ -61,7 +61,7 @@ class Scope {
 public:
   ENUM_CLASS(Kind, Global, IntrinsicModules, Module, MainProgram, Subprogram,
       BlockData, DerivedType, BlockConstruct, Forall, OtherConstruct,
-      OpenACCConstruct, ImpliedDos, OtherClause)
+      OpenACCConstruct, ImpliedDos, OtherClause, CUFKernelDoConstruct)
----------------
klausler wrote:

You could perhaps avoid some complexity by considering `!$CUF KERNEL DO` to be an OpenAcc construct.

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