diff options
| author | Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2020-09-07 09:38:25 +0200 |
|---|---|---|
| committer | Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2020-09-07 09:38:25 +0200 |
| commit | d30869a8d4886aee4020be3b28b15b1b15c8d9ad (patch) | |
| tree | 3bb6548ce949dac447dcd722635d89df425cb9d8 /gcc | |
| parent | a502683de1f036b5f8b4e483bd9f5a45be73382e (diff) | |
| download | gcc-d30869a8d4886aee4020be3b28b15b1b15c8d9ad.zip gcc-d30869a8d4886aee4020be3b28b15b1b15c8d9ad.tar.gz gcc-d30869a8d4886aee4020be3b28b15b1b15c8d9ad.tar.bz2 | |
fortran: Fix argument types in derived types procedures
gcc/fortran/ChangeLog
* trans-types.c (gfc_get_derived_type): Fix argument types.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/trans-types.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/trans-types.c b/gcc/fortran/trans-types.c index ecc4454..26fdb28 100644 --- a/gcc/fortran/trans-types.c +++ b/gcc/fortran/trans-types.c @@ -2716,7 +2716,7 @@ gfc_get_derived_type (gfc_symbol * derived, int codimen) field_type = gfc_get_ppc_type (c); else if (c->attr.proc_pointer && derived->backend_decl) { - tmp = build_function_type_list (derived->backend_decl, NULL_TREE); + tmp = build_function_type (derived->backend_decl, NULL_TREE); field_type = build_pointer_type (tmp); } else if (c->ts.type == BT_DERIVED || c->ts.type == BT_CLASS) |