[flang][rt] Allow ReportFatalUserError to be build on device (#133979)
This commit is contained in:
committed by
GitHub
parent
ec59313c04
commit
bb179c483a
@@ -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);
|
||||
}
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user