diff options
| author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2019-03-18 17:35:54 +0000 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2019-03-18 17:35:54 +0000 |
| commit | 3051b25e6677360434c4a0bfa948d0cffd719d45 (patch) | |
| tree | 11f6fde80671c3f2617ebb6455b9894e06204f43 /gcc | |
| parent | b6e45a40cde2c8e7a18b62cca23dcd2f6916afa1 (diff) | |
| download | gcc-3051b25e6677360434c4a0bfa948d0cffd719d45.zip gcc-3051b25e6677360434c4a0bfa948d0cffd719d45.tar.gz gcc-3051b25e6677360434c4a0bfa948d0cffd719d45.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 7 | ||||
| -rw-r--r-- | gcc/fortran/iresolve.c | 5 |
2 files changed, 12 insertions, 0 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 8028118..4dd35ec 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -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 diff --git a/gcc/fortran/iresolve.c b/gcc/fortran/iresolve.c index 135e6bc..53338dd 100644 --- a/gcc/fortran/iresolve.c +++ b/gcc/fortran/iresolve.c @@ -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 |