From d30869a8d4886aee4020be3b28b15b1b15c8d9ad Mon Sep 17 00:00:00 2001 From: Francois-Xavier Coudert Date: Mon, 7 Sep 2020 09:38:25 +0200 Subject: [PATCH] fortran: Fix argument types in derived types procedures gcc/fortran/ChangeLog * trans-types.c (gfc_get_derived_type): Fix argument types. --- gcc/fortran/trans-types.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gcc/fortran/trans-types.c b/gcc/fortran/trans-types.c index ecc4454bb63..26fdb2803a7 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) -- 2.30.2