================
@@ -368,7 +368,12 @@ static bool FormattedDerivedTypeIO(IoStatementState &io,
        ++j, descriptor.IncrementSubscripts(subscripts)) {
     Fortran::common::optional<bool> result;
     if (special) {
+#if !defined(RT_DEVICE_COMPILATION)
       result = DefinedFormattedIo(io, descriptor, *type, *special, subscripts);
+#else
+      io.GetIoErrorHandler().Crash("not implemented yet: defined formatted 
IO");
----------------
klausler wrote:

"... from the device"

https://github.com/llvm/llvm-project/pull/85182
_______________________________________________
llvm-branch-commits mailing list
llvm-branch-commits@lists.llvm.org
https://lists.llvm.org/cgi-bin/mailman/listinfo/llvm-branch-commits

Reply via email to