Commit 3051b25e by Thomas Koenig

re PR fortran/68009 (prototype for gfortran_runtime_error with inline matmul)

2019-03-18  Thomas Koenig  <tkoeng@gcc.gnu.org>

	PR fortran/68009
	* iresolve.c: Include trans.h.
	(gfc_resolve_fe_runtine_error): Set backend_decl on
	resolved_sym.

From-SVN: r269769
parent b6e45a40
2019-03-18 Thomas Koenig <tkoeng@gcc.gnu.org>
PR fortran/68009
* iresolve.c: Include trans.h.
(gfc_resolve_fe_runtine_error): Set backend_decl on
resolved_sym.
2019-03-17 Thomas Koenig <tkoenig@gcc.gnu.org> 2019-03-17 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/88008 PR fortran/88008
......
...@@ -35,6 +35,7 @@ along with GCC; see the file COPYING3. If not see ...@@ -35,6 +35,7 @@ along with GCC; see the file COPYING3. If not see
#include "intrinsic.h" #include "intrinsic.h"
#include "constructor.h" #include "constructor.h"
#include "arith.h" #include "arith.h"
#include "trans.h"
/* Given printf-like arguments, return a stable version of the result string. /* Given printf-like arguments, return a stable version of the result string.
...@@ -2495,6 +2496,10 @@ gfc_resolve_fe_runtime_error (gfc_code *c) ...@@ -2495,6 +2496,10 @@ gfc_resolve_fe_runtime_error (gfc_code *c)
a->name = "%VAL"; a->name = "%VAL";
c->resolved_sym = gfc_get_intrinsic_sub_symbol (name); c->resolved_sym = gfc_get_intrinsic_sub_symbol (name);
/* We set the backend_decl here because runtime_error is a
variadic function and we would use the wrong calling
convention otherwise. */
c->resolved_sym->backend_decl = gfor_fndecl_runtime_error;
} }
void void
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment