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
* gcc.dg/torture/stackalign/builtin-apply-2.c: Fix skip-if syntax.
[official-gcc.git]
/
gcc
/
testsuite
/
gcc.dg
/
graphite
/
id-22.c
blob
d825542158b7d3e485aec94efc2784cc57cc2044
1
typedef
float
rvec
[
3
];
2
float
calc_similar_ind
(
int
nind
,
rvec x
[])
3
{
4
int
i
,
j
,
d
;
5
float
m
,
tm
,
xd
,
rd
;
6
for
(
j
=
0
;
j
<
nind
;
j
++) {
7
i
=
x
[
j
][
0
];
8
tm
+=
m
;
9
for
(
d
=
0
;
d
<
3
;
d
++) {
10
xd
=
x
[
i
][
d
] -
x
[
i
][
d
];
11
rd
+=
m
*
xd
;
12
}
13
}
14
return
rd
/
tm
;
15
}