fortran: Fix argument types in derived types procedures

gcc/fortran/ChangeLog

	* trans-types.c (gfc_get_derived_type): Fix argument types.

diff --git a/gcc/fortran/trans-types.c b/gcc/fortran/trans-types.c
index ecc4454bb63116c4ed6de7b5d3cb435274262603..26fdb2803a723fad5ef44a24052f5db408d4fcd5 100644 (file)
--- 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)