diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index a562e626aed..e0525892e03 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2007-09-12  Ben Elliston  <bje@au.ibm.com>
+
+	* lib/target-supports.exp (check_effective_target_vect_no_double):
+	Remove unused proc.
+
 2007-09-12  Ben Elliston  <bje@au.ibm.com>
 	    Ulrich Weigand  <uweigand@de.ibm.com>
 
diff --git a/gcc/testsuite/lib/target-supports.exp b/gcc/testsuite/lib/target-supports.exp
index 55e2a8a4c30..dc66fa246b6 100644
--- a/gcc/testsuite/lib/target-supports.exp
+++ b/gcc/testsuite/lib/target-supports.exp
@@ -1700,23 +1700,6 @@ proc check_effective_target_vect_double { } {
     return $et_vect_double_saved
 }
 
-# Return 1 if the target supports hardware comparison of vectors of double, 0 otherwise.
-#
-# This won't change for different subtargets so cache the result.
-
-proc check_effective_target_vect_no_compare_double { } {
-    global et_vect_no_compare_double_saved
-
-    if [info exists et_vect_no_compare_double_saved] {
-        verbose "check_effective_target_vect_no_compare_double: using cached result" 2
-    } else {
-        set et_vect_no_compare_double_saved 0
-    }
-
-    verbose "check_effective_target_vect_no_compare_double: returning $et_vect_no_compare_double_saved" 2
-    return $et_vect_no_compare_double_saved
-}
-
 # Return 1 if the target plus current options does not support a vector
 # max instruction on "int", 0 otherwise.
 #