trans-types.c (gfc_get_nodesc_array_type): Don't vary types depending on debug info.

* fortran/trans-types.c (gfc_get_nodesc_array_type): Don't
vary types depending on debug info.

From-SVN: r141021

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index e53935627bf1c5c5517d91f6c12b400d8d39dc4a..340f30c7a929245f42255d7b991fc608fcf932bb 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,8 @@
+2008-10-10  Alexandre Oliva  <aoliva@redhat.com>
+
+       * fortran/trans-types.c (gfc_get_nodesc_array_type): Don't
+       vary types depending on debug info.
+
 2008-10-10  Alexandre Oliva  <aoliva@redhat.com>
 
        * c-gimplify.c (c_genericize): Don't refer to DECL_ASSEMBLER_NAME

diff --git a/gcc/fortran/trans-types.c b/gcc/fortran/trans-types.c
index c3d2a9180409e59ae881da430ed76c82982c1dd7..c4c831437770a7d623ed801b53b798d2d6b29188 100644 (file)
--- a/gcc/fortran/trans-types.c
+++ b/gcc/fortran/trans-types.c
@@ -1415,10 +1415,10 @@ gfc_get_nodesc_array_type (tree etype, gfc_array_spec * as, gfc_packed packed)
   mpz_clear (stride);
   mpz_clear (delta);
 
-  /* In debug info represent packed arrays as multi-dimensional
-     if they have rank > 1 and with proper bounds, instead of flat
-     arrays.  */
-  if (known_offset && write_symbols != NO_DEBUG)
+  /* Represent packed arrays as multi-dimensional if they have rank >
+     1 and with proper bounds, instead of flat arrays.  This makes for
+     better debug info.  */
+  if (known_offset)
     {
       tree gtype = etype, rtype, type_decl;