From: No Author <no-author@gcc.gnu.org>
Date: Fri, 27 Sep 2002 04:15:32 +0000 (+0000)
Subject: This commit was manufactured by cvs2svn to create branch
X-Git-Tag: releases/gcc-3.2.1~237
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=1dac9e1ec0dbe1cbad99fedd0b863dfde383b790;p=thirdparty%2Fgcc.git

This commit was manufactured by cvs2svn to create branch
'gcc-3_2-branch'.

From-SVN: r57578
---

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 000000000000..29d6ed0dc9a9
--- /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;
+}