OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

Browse Source 
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
This commit is contained in:
Thomas Koenig 2019-03-18 17:35:54 +00:00
parent b6e45a40cd
commit 3051b25e66
2 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gcc/fortran/ChangeLog
View File

@ -1,3 +1,10 @@
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>
PR fortran/88008

5
gcc/fortran/iresolve.c
View File

@ -35,6 +35,7 @@ along with GCC; see the file COPYING3. If not see
#include "intrinsic.h"
#include "constructor.h"
#include "arith.h"
#include "trans.h"
/* Given printf-like arguments, return a stable version of the result string.
@ -2495,6 +2496,10 @@ gfc_resolve_fe_runtime_error (gfc_code *c)
a->name = "%VAL";
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