modernc.org/ccgo/v3@v3.16.14/lib/testdata/gcc-9.1.0/gcc/testsuite/gcc.c-torture/compile/trunctfdf.c (about)

     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  
     5  double *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  }