From: Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
Date: Sun, 6 Sep 2020 16:33:04 +0000 (+0200)
Subject: fortran: Fix function arg types for class objects
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=7c72651a937533cb67360a6faca05e5603a65865;p=gcc.git

fortran: Fix function arg types for class objects

gcc/fortran/ChangeLog

	* trans-types.c (gfc_get_ppc_type): Fix function arg types.
---

diff --git a/gcc/fortran/trans-types.c b/gcc/fortran/trans-types.c
index d38aa2865ae..a05633e827c 100644
--- a/gcc/fortran/trans-types.c
+++ b/gcc/fortran/trans-types.c
@@ -2435,7 +2435,7 @@ gfc_get_ppc_type (gfc_component* c)
   else
     t = void_type_node;
 
-  return build_pointer_type (build_function_type_list (t, NULL_TREE));
+  return build_pointer_type (build_function_type (t, NULL_TREE));
 }