diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index cf5435b3461..e3fd06ac1b4 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,4 +1,6 @@
-2004-04-16  John David Anglin  <dava.anglin@nrc-cnrc.gc.ca>
+2004-04-16  John David Anglin  <dave.anglin@nrc-cnrc.gc.ca>
+
+	* gcc.dg/funcorder.c: xfail hppa*64*-*-*.
 
 	* const-elim-1.c: xfail hppa-*-*.
 
diff --git a/gcc/testsuite/gcc.dg/funcorder.c b/gcc/testsuite/gcc.dg/funcorder.c
index b064d1cc467..a3edc1272f9 100644
--- a/gcc/testsuite/gcc.dg/funcorder.c
+++ b/gcc/testsuite/gcc.dg/funcorder.c
@@ -1,8 +1,10 @@
 /* { dg-do compile } */
 /* { dg-options "-O2 -funit-at-a-time" } */
-/* { dg-final { if [ istarget hppa*-*-* ] { scan-assembler-not "link_error,%r" } else { scan-assembler-not "link_error" } } } */
+/* { dg-final { if [ istarget hppa*-*-* ] { scan-assembler-not "link_error,%r" { xfail hppa*64*-*-* } } else { scan-assembler-not "link_error" } } } */
 /*  In unit-at-time the functions should be assembled in order
-    e q t main, so we realize that they are pure.  */
+    e q t main, so we realize that they are pure.  The test is
+    xfailed on hppa64 because variable r in q is sign extended
+    to 64-bits.  As a result, "if (t!=mem)" is not simplified.  */
  
 static int mem;
 static int e(void) __attribute__ ((noinline));