repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Merge from mainline.
[official-gcc.git]
/
gcc
/
testsuite
/
gcc.dg
/
pr22356-1.c
blob
118b0b2d3aebc17a5aa669558ef259067d40a7ce
1
/* { dg-do compile } */
2
/* { dg-options "-O2 -std=gnu99" } */
3
typedef
_Complex
float
GFC_COMPLEX_4
;
4
void
product_c4
(
GFC_COMPLEX_4
*
src
,
GFC_COMPLEX_4
*
dest
,
int
len
)
5
{
6
int
n
;
7
GFC_COMPLEX_4 result
;
8
for
(
n
=
0
;
n
<
len
;
n
++,
src
+=
1
)
9
result
*= *
src
;
10
*
dest
=
result
;
11
}