Sign in
gnu
/
gcc
/
refs/tags/releases/gcc-9.5.0
/
.
/
libgomp
/
testsuite
/
libgomp.hsa.c
/
staticvar.c
blob: 6d20c9aa32872401cfd2a2307e278c93924b5a82 [
file
] [
log
] [
blame
]
extern
void
abort
(
void
);
#pragma
omp declare target
int
foo
(
void
)
{
static
int
s
;
return
++
s
;
}
#pragma
omp end declare target
int
main
()
{
int
r
;
#pragma
omp target
map
(
from
:
r
)
{
r
=
foo
();
}
if
(
r
!=
1
)
abort
();
return
0
;
}