trunctfdf.c: New.

2002-09-26  David S. Miller  <davem@redhat.com>

	* gcc.c-torture/compile/trunctfdf.c: New.

From-SVN: r57577

gcc/testsuite/ChangeLog

+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.

gcc/testsuite/gcc.c-torture/compile/trunctfdf.c

+/* 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;
+}