diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 925397c60a2..55a0abaeb56 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,5 +1,7 @@
 Thu Mar 21 09:50:48 2002  Richard Kenner  <kenner@vlsi1.ultra.nyu.edu>
 
+	* config/ia64/ia64.c (hfa_element_call, case ARRAY_TYPE): Recurse.
+
 	* expr.c (emit_group_store): Don't copy const0_rtx to a CONCAT.
 
 2002-03-21  Eric Botcazou <ebotcazou@multimania.com>
diff --git a/gcc/config/ia64/ia64.c b/gcc/config/ia64/ia64.c
index a667ae3dbc7..bbe771fca6f 100644
--- a/gcc/config/ia64/ia64.c
+++ b/gcc/config/ia64/ia64.c
@@ -2880,7 +2880,7 @@ hfa_element_mode (type, nested)
 	return VOIDmode;
 
     case ARRAY_TYPE:
-      return TYPE_MODE (TREE_TYPE (type));
+      return hfa_element_mode (TREE_TYPE (type), 1);
 
     case RECORD_TYPE:
     case UNION_TYPE: