================ @@ -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