diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 85bebe0ebb6..83843fef383 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2002-09-22  John David Anglin  <dave@hiauly1.hia.nrc.ca>
+
+	* gcc.dg/20020219-1.c: Add "-mdisable-indexing" option for target
+	hppa*-*-hpux*.  Update test comment.
+
 2002-09-20  Jakub Jelinek  <jakub@redhat.com>
 
 	* gcc.dg/tls/struct-1.c: New test.
diff --git a/gcc/testsuite/gcc.dg/20020219-1.c b/gcc/testsuite/gcc.dg/20020219-1.c
index c879f230db6..596f268cc5c 100644
--- a/gcc/testsuite/gcc.dg/20020219-1.c
+++ b/gcc/testsuite/gcc.dg/20020219-1.c
@@ -1,8 +1,13 @@
 /* PR c/4389
    This testcase failed because host_integerp (x, 0) was returning
-   1 even for constants bigger than 2^31.  */
+   1 even for constants bigger than 2^31.  It fails under under hpux
+   without -mdisable-indexing because the pointer x - 1 is used as
+   the base address of an indexed load.  Because the struct A is not
+   actually allocated, x - 1 lies in the text segment and this causes
+   the wrong space register to be selected for the load.  */
 /* { dg-do run } */
 /* { dg-options "-O2" } */
+/* { dg-options "-O2 -mdisable-indexing" { target hppa*-*-hpux* } } */
 
 extern void abort (void);
 extern void exit (int);