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

From-SVN: r17102

diff --git a/gcc/f/ChangeLog.egcs b/gcc/f/ChangeLog.egcs
index c29f5729ba440d4f4fe658915519f8c4d4be7897..e491107c4d20ea8f09144b35abcf78f29f633073 100644 (file)
--- a/gcc/f/ChangeLog.egcs
+++ b/gcc/f/ChangeLog.egcs
@@ -1,3 +1,7 @@
+Mon Dec 15 17:35:35 1997  Richard Henderson  <rth@cygnus.com>
+
+       * 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 99fbcc30d3cee026027ca690b9c3bb8919377d3e..bf77e515082c0ea6955d24b29f8895ad503eee35 100644 (file)
--- 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);