Mercurial > hg > CbC > CbC_gcc
annotate gcc/testsuite/gcc.dg/pr42427.c @ 131:84e7813d76e9
gcc-8.2
author | mir3636 |
---|---|
date | Thu, 25 Oct 2018 07:37:49 +0900 |
parents | 04ced10e8804 |
children | 1830386684a0 |
rev | line source |
---|---|
111 | 1 /* { dg-do assemble { target c99_runtime } } */ |
2 /* { dg-options "-O2 -fexceptions -fnon-call-exceptions -fpeel-loops" } */ | |
3 /* { dg-add-options c99_runtime } */ | |
4 /* { dg-require-effective-target ilp32 } */ | |
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 } |