Retro68/gcc/libgomp/testsuite/libgomp.oacc-c-c++-common/routine-1.c
Wolfgang Thaller 6fbf4226da gcc-9.1
2019-06-20 20:10:10 +02:00

95 lines
2.1 KiB
C

// Defaults, if not "#include"d from ../libgomp.oacc-c++/routine-1-*.C.
#ifndef TEMPLATE
# define TEMPLATE
# define TYPE int
# define RETURN_1 TYPE
# define RETURN_2
#endif
#include <stdlib.h>
#pragma acc routine
TEMPLATE
RETURN_1 fact(TYPE n) RETURN_2
{
if (n == 0 || n == 1)
return 1;
else
return n * fact (n - 1);
}
int main()
{
int *s, *g, *w, *v, *gw, *gv, *wv, *gwv, i, n = 10;
s = (int *) malloc (sizeof (int) * n);
g = (int *) malloc (sizeof (int) * n);
w = (int *) malloc (sizeof (int) * n);
v = (int *) malloc (sizeof (int) * n);
gw = (int *) malloc (sizeof (int) * n);
gv = (int *) malloc (sizeof (int) * n);
wv = (int *) malloc (sizeof (int) * n);
gwv = (int *) malloc (sizeof (int) * n);
#pragma acc parallel loop async copyout(s[0:n]) seq
for (i = 0; i < n; i++)
s[i] = fact (i);
#pragma acc parallel loop async copyout(g[0:n]) gang
for (i = 0; i < n; i++)
g[i] = fact (i);
#pragma acc parallel loop async copyout(w[0:n]) worker
for (i = 0; i < n; i++)
w[i] = fact (i);
#pragma acc parallel loop async copyout(v[0:n]) vector
for (i = 0; i < n; i++)
v[i] = fact (i);
#pragma acc parallel loop async copyout(gw[0:n]) gang worker
for (i = 0; i < n; i++)
gw[i] = fact (i);
#pragma acc parallel loop async copyout(gv[0:n]) gang vector
for (i = 0; i < n; i++)
gv[i] = fact (i);
#pragma acc parallel loop async copyout(wv[0:n]) worker vector
for (i = 0; i < n; i++)
wv[i] = fact (i);
#pragma acc parallel loop async copyout(gwv[0:n]) gang worker vector
for (i = 0; i < n; i++)
gwv[i] = fact (i);
#pragma acc wait
for (i = 0; i < n; i++)
if (s[i] != fact (i))
abort ();
for (i = 0; i < n; i++)
if (g[i] != s[i])
abort ();
for (i = 0; i < n; i++)
if (w[i] != s[i])
abort ();
for (i = 0; i < n; i++)
if (v[i] != s[i])
abort ();
for (i = 0; i < n; i++)
if (gw[i] != s[i])
abort ();
for (i = 0; i < n; i++)
if (gv[i] != s[i])
abort ();
for (i = 0; i < n; i++)
if (wv[i] != s[i])
abort ();
for (i = 0; i < n; i++)
if (gwv[i] != s[i])
abort ();
return 0;
}