From: Richard Henderson <rth@cygnus.com>
Date: Mon, 15 Dec 1997 16:38:18 +0000 (-0800)
Subject: * com.c (ffecom_type_vardesc_): Vardesc.dims is a `ftnlen*'.
X-Git-Tag: prereleases/egcs-1.0.1-prerelease~19
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=a803aef7934d4927590f3286ef9d629243a676f3;p=thirdparty%2Fgcc.git

* com.c (ffecom_type_vardesc_): Vardesc.dims is a `ftnlen*'.

From-SVN: r17101
---

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  <rth@cygnus.com>
+
+	* com.c (ffecom_type_vardesc_): Vardesc.dims is a `ftnlen*'.
+
 Fri Nov 21 09:35:20 1997  Fred Fish  <fnf@cygnus.com>
 
 	* 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);