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

   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 }