gcc/testsuite/gcc.dg/pr42427.c

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