[flang][rt] Allow ReportFatalUserError to be build on device (#133979)

This commit is contained in:
Valentin Clement (バレンタイン クレメン)
2025-04-01 13:50:42 -07:00
committed by GitHub
parent ec59313c04
commit bb179c483a
2 changed files with 2 additions and 2 deletions

View File

@@ -240,7 +240,7 @@ static RT_NOINLINE_ATTR void PrintBacktrace() {
RT_OPTNONE_ATTR void FORTRAN_PROCEDURE_NAME(backtrace)() { PrintBacktrace(); }
[[noreturn]] void RTNAME(ReportFatalUserError)(
[[noreturn]] RT_API_ATTRS void RTNAME(ReportFatalUserError)(
const char *message, const char *source, int line) {
Fortran::runtime::Terminator{source, line}.Crash(message);
}

View File

@@ -35,7 +35,7 @@ void FORTRAN_PROCEDURE_NAME(backtrace)(NO_ARGUMENTS);
// Crash with an error message when the program dynamically violates a Fortran
// constraint.
NORETURN void RTNAME(ReportFatalUserError)(
NORETURN RT_API_ATTRS void RTNAME(ReportFatalUserError)(
const char *message, const char *source, int line);
FORTRAN_EXTERN_C_END