[flang-commits] [flang] [flang][cuda] Force default allocator in device code (PR #102238)

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

================
@@ -162,11 +162,17 @@ RT_API_ATTRS int Descriptor::Allocate() {
     elementBytes = raw_.elem_len = 0;
   }
   std::size_t byteSize{Elements() * elementBytes};
+
+  // Force default allocator in device code.
+#ifdef RT_DEVICE_COMPILATION
----------------
clementval wrote:

Yeah it can actually be done directly in GetAllocIdx. I'll update that.

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