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
test(double * help,complex double * wm,long nz)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 }
23