diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 733786564d9..d211f1b0f37 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2002-09-26  David S. Miller  <davem@redhat.com>
+
+	* gcc.c-torture/compile/trunctfdf.c: New.
+
 2002-09-26  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
 
 	* lib/target-supports.exp (check_weak_available): Handle solaris2.
diff --git a/gcc/testsuite/gcc.c-torture/compile/trunctfdf.c b/gcc/testsuite/gcc.c-torture/compile/trunctfdf.c
new file mode 100644
index 00000000000..29d6ed0dc9a
--- /dev/null
+++ b/gcc/testsuite/gcc.c-torture/compile/trunctfdf.c
@@ -0,0 +1,14 @@
+/* Sparc w/128-bit long double bombed on this because even though
+   the trunctfdf libcall passed the long double by reference, the
+   libcall was still marked as LCT_CONST instead of LCT_PURE.  */
+
+double *copy(long double *first, long double *last, double *result)
+{
+	int n;
+	for (n = last - first; n > 0; --n) {
+		*result = *first;
+		++first;
+		++result;
+	}
+	return result;
+}