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
libgomp testsuite: OpenACC C++ testing.
[official-gcc.git]
/
libgomp
/
testsuite
/
libgomp.oacc-c-c++-common
/
lib-33.c
blob
4abaa02e085d77e8170ebea132bdafa61575da88
1
/* { dg-do run } */
2
3
#include <stdlib.h>
4
#include <openacc.h>
5
6
int
7
main
(
int
argc
,
char
**
argv
)
8
{
9
const int
N
=
256
;
10
unsigned char
*
h
;
11
void
*
d1
, *
d2
;
12
13
h
= (
unsigned char
*)
malloc
(
N
);
14
15
d1
=
acc_present_or_create
(
h
,
N
);
16
if
(!
d1
)
17
abort
();
18
19
d2
=
acc_present_or_create
(
h
,
N
-
2
);
20
if
(!
d2
)
21
abort
();
22
23
if
(
d1
!=
d2
)
24
abort
();
25
26
acc_delete
(
h
,
N
);
27
28
free
(
h
);
29
30
return
0
;
31
}