From: aoliva <aoliva@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Fri, 10 Oct 2008 07:22:32 +0000 (+0000)
Subject: * fortran/trans-types.c (gfc_get_nodesc_array_type): Don't
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=9807ebce926830323c21411cbaffdef520929edd;p=thirdparty%2Fgcc.git

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


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@141021 138bc75d-0d04-0410-961f-82ee72b054a4
---

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index e53935627bf1..340f30c7a929 100644
--- 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 c3d2a9180409..c4c831437770 100644
--- 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;