diff options
author | Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2020-09-06 18:33:04 +0200 |
---|---|---|
committer | Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2020-09-06 18:33:43 +0200 |
commit | 7c72651a937533cb67360a6faca05e5603a65865 (patch) | |
tree | 2c7c1be0cedbef25fb6ec5067066978a6aa12e7d /gcc | |
parent | 3489d80fee42764460cb06f7a2e9f126c18602b4 (diff) | |
download | gcc-7c72651a937533cb67360a6faca05e5603a65865.zip gcc-7c72651a937533cb67360a6faca05e5603a65865.tar.gz gcc-7c72651a937533cb67360a6faca05e5603a65865.tar.bz2 |
fortran: Fix function arg types for class objects
gcc/fortran/ChangeLog
* trans-types.c (gfc_get_ppc_type): Fix function arg 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 d38aa28..a05633e 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)); } |