diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index f5697bce3c..eba4f8e794 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,8 @@
+2006-10-06 Joel Brobecker  <brobecker@adacore.com>
+
+	* dwarf2read.c (read_array_type): Set the type name if the name
+	attribute is present.
+
 2006-10-05  Joel Brobecker  <brobecker@adacore.com>
 
         * blockframe.c (block_innermost_frame): Rewrite frame search logic.
diff --git a/gdb/dwarf2read.c b/gdb/dwarf2read.c
index a56a5c2392..381585ff73 100644
--- a/gdb/dwarf2read.c
+++ b/gdb/dwarf2read.c
@@ -4282,6 +4282,10 @@ read_array_type (struct die_info *die, struct dwarf2_cu *cu)
   if (attr)
     TYPE_FLAGS (type) |= TYPE_FLAG_VECTOR;
 
+  attr = dwarf2_attr (die, DW_AT_name, cu);
+  if (attr && DW_STRING (attr))
+    TYPE_NAME (type) = DW_STRING (attr);
+  
   do_cleanups (back_to);
 
   /* Install the type in the die. */