gcc/testsuite/gcc.dg/pr42427.c

   1 /* { dg-do assemble } */
   2 /* { dg-options "-O2 -fexceptions -fnon-call-exceptions -fpeel-loops" } */
   3 /* { dg-require-effective-target ilp32 } */
   4
   5 #include <complex.h>
   6
   7 extern double myabs (complex double);
   8
   9 void
  10 test (double *help, complex double *wm, long nz)
  11 {
  12   long k;
  13   double znew;
  14   double zold;
  15   for (k = 0; k < nz; k++)
  16     {
  17       znew = myabs (wm[k]);
  18       zold = help[k];
  19       help[k] = znew;
  20     }
  21 }