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  }