Sign in
gnu
/
gcc
/
a10794eafb151b9274d673dfae93459d437cbe4a
/
.
/
gcc
/
testsuite
/
gcc.dg
/
gomp
/
sharing-3.c
blob: 4a3019848cf2b2d88864420a031efb1669d8aea1 [
file
] [
log
] [
blame
]
/* { dg-do compile } */
#define
N
50
#define
CHUNKSIZE
5
int
main
()
{
int
i
,
chunk
;
float
c
[
N
];
chunk
=
CHUNKSIZE
;
#pragma
omp parallel
for
shared
(
c
,
chunk
)
schedule
(
dynamic
,
chunk
)
for
(
i
=
0
;
i
<
N
;
i
++)
c
[
i
]
=
i
;
return
0
;
}