From 395928138cbdf6b80483edf48aea674efa29599b Mon Sep 17 00:00:00 2001 From: Richard Henderson Date: Mon, 15 Dec 1997 09:34:23 -0800 Subject: [PATCH] * com.c (ffecom_type_vardesc_): Vardesc.dims is a `ftnlen*'. From-SVN: r17102 --- gcc/f/ChangeLog.egcs | 4 ++++ gcc/f/com.c | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/gcc/f/ChangeLog.egcs b/gcc/f/ChangeLog.egcs index c29f5729ba4..e491107c4d2 100644 --- a/gcc/f/ChangeLog.egcs +++ b/gcc/f/ChangeLog.egcs @@ -1,3 +1,7 @@ +Mon Dec 15 17:35:35 1997 Richard Henderson + + * com.c (ffecom_type_vardesc_): Vardesc.dims is a `ftnlen*'. + Tue Dec 2 09:57:16 1997 Jeffrey A Law (law@cygnus.com) * Make-lang.in (f77.clean): Remove g77.c. diff --git a/gcc/f/com.c b/gcc/f/com.c index 99fbcc30d3c..bf77e515082 100644 --- a/gcc/f/com.c +++ b/gcc/f/com.c @@ -9921,7 +9921,7 @@ ffecom_type_vardesc_ () addrfield = ffecom_decl_field (type, namefield, "addr", string_type_node); dimsfield = ffecom_decl_field (type, addrfield, "dims", - ffecom_f2c_ftnlen_type_node); + ffecom_f2c_ptr_to_ftnlen_type_node); typefield = ffecom_decl_field (type, dimsfield, "type", integer_type_node); -- 2.30.2