repo.or.cz
/
official-gcc
/
graphite-test-results.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 (167278:168000).
[official-gcc/graphite-test-results.git]
/
gcc
/
testsuite
/
gcc.dg
/
graphite
/
scop-dsyrk.c
blob
a7bc5c49815ada642dd0167adcd754d9c111c33a
1
#define NMAX 3000
2
#define MEASURE_TIME 1
3
4
static double
a
[
NMAX
][
NMAX
],
c
[
NMAX
][
NMAX
];
5
6
void
dsyrk
(
long
N
)
7
{
8
int
i
,
j
,
k
;
9
10
#pragma scop
11
for
(
i
=
0
;
i
<
N
;
i
++) {
12
for
(
j
=
0
;
j
<
N
;
j
++) {
13
for
(
k
=
j
;
k
<
N
;
k
++) {
14
c
[
j
][
k
] +=
a
[
i
][
j
] *
a
[
i
][
k
];
15
}
16
}
17
}
18
#pragma endscop
19
}
20
21
/* { dg-final { scan-tree-dump-times "number of SCoPs: 1" 1 "graphite" } } */
22
/* { dg-final { cleanup-tree-dump "graphite" } } */