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

[Valentin Clement バレンタイン クレメン via flang-commits]

================
@@ -1145,6 +1145,37 @@ static void CheckExplicitDataArg(const characteristics::DummyDataObject &dummy,
           dummyName, toStr(dummyDataAttr), toStr(actualDataAttr));
     }
   }
+  // Emit an error message if an actual argument passed to a host intrinsic is
+  // on the device.
----------------
clementval wrote:

Yeah scalar are allowed and we have a semantic check for host arrays in device context.

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