From a803aef7934d4927590f3286ef9d629243a676f3 Mon Sep 17 00:00:00 2001 From: Richard Henderson Date: Mon, 15 Dec 1997 08:38:18 -0800 Subject: [PATCH] * com.c (ffecom_type_vardesc_): Vardesc.dims is a `ftnlen*'. From-SVN: r17101 --- 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 5672447f12f5..759860f2cb11 100644 --- a/gcc/f/ChangeLog.egcs +++ b/gcc/f/ChangeLog.egcs @@ -1,3 +1,7 @@ +Mon Dec 15 16:38:52 1997 Richard Henderson + + * com.c (ffecom_type_vardesc_): Vardesc.dims is a `ftnlen*'. + Fri Nov 21 09:35:20 1997 Fred Fish * Make-lang.in (stmp-f2c.h): Move inclusion of F77_FLAGS_TO_PASS diff --git a/gcc/f/com.c b/gcc/f/com.c index 99fbcc30d3ce..bf77e515082c 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.47.2