Similar to change D125046.
If a programmer is able to compile and link a program that contains types that
are not yet supported by the runtime, it must be because they're not yet
implemented.
This change will make it easier to find unimplemented code in tests.
Differential Revision: https://reviews.llvm.org/D125267
result, string, terminator);
break;
default:
- terminator.Crash("LEN_TRIM: bad KIND=%d", kind);
+ terminator.Crash("not yet implemented: LEN_TRIM: KIND=%d", kind);
}
}
result, string, arg, back, terminator);
break;
default:
- terminator.Crash("INDEX/SCAN/VERIFY: bad KIND=%d", kind);
+ terminator.Crash("not yet implemented: INDEX/SCAN/VERIFY: KIND=%d", kind);
}
}
break;
#endif
default:
- terminator.Crash("RANDOM_NUMBER(): bad REAL kind %d", kind);
+ terminator.Crash(
+ "not yet implemented: RANDOM_NUMBER(): REAL kind %d", kind);
}
}
*size.OffsetElement<CppTypeFor<TypeCategory::Integer, 8>>() = 1;
break;
default:
- terminator.Crash("RANDOM_SEED(SIZE=): bad kind %d\n", kind);
+ terminator.Crash(
+ "not yet implemented: RANDOM_SEED(SIZE=): kind %d\n", kind);
}
}
seed = *put.OffsetElement<CppTypeFor<TypeCategory::Integer, 8>>();
break;
default:
- terminator.Crash("RANDOM_SEED(PUT=): bad kind %d\n", kind);
+ terminator.Crash("not yet implemented: RANDOM_SEED(PUT=): kind %d\n", kind);
}
{
CriticalSection critical{lock};
*got.OffsetElement<CppTypeFor<TypeCategory::Integer, 8>>() = seed;
break;
default:
- terminator.Crash("RANDOM_SEED(GET=): bad kind %d\n", kind);
+ terminator.Crash("not yet implemented: RANDOM_SEED(GET=): kind %d\n", kind);
}
}
} // extern "C"
void CheckIntegerKind(Terminator &terminator, int kind, const char *intrinsic) {
if (kind < 1 || kind > 16 || (kind & (kind - 1)) != 0) {
- terminator.Crash("%s: bad KIND=%d argument", intrinsic, kind);
+ terminator.Crash(
+ "not yet implemented: %s: KIND=%d argument", intrinsic, kind);
}
}
} // namespace Fortran::runtime
static_cast<char32_t>(' '));
break;
default:
- terminator.Crash("EOSHIFT: bad CHARACTER kind %d", kind);
+ terminator.Crash("not yet implemented: EOSHIFT: CHARACTER kind %d", kind);
}
} else {
std::memset(result.raw().base_addr, 0, bytes);