1/* Sparc w/128-bit long double bombed on this because even though
2   the trunctfdf libcall passed the long double by reference, the
3   libcall was still marked as LCT_CONST instead of LCT_PURE.  */
4
5double *copy(long double *first, long double *last, double *result)
6{
7	int n;
8	for (n = last - first; n > 0; --n) {
9		*result = *first;
10		++first;
11		++result;
12	}
13	return result;
14}
15