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

[Peter Klausler 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.
----------------
klausler wrote:

What about host data being used in an intrinsic procedure reference on the device?  Is that caught by other means already?

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