mirror of git://gcc.gnu.org/git/gcc.git
26 lines
411 B
C
26 lines
411 B
C
#define size 10
|
|
int i, j, k;
|
|
|
|
int
|
|
main ()
|
|
{
|
|
char *s = __builtin_malloc (size + 1);
|
|
|
|
#pragma omp target teams
|
|
{
|
|
#pragma omp distribute parallel for default(none) private(i) shared(s)
|
|
for (i = 0; i < size; ++i)
|
|
{
|
|
char *buffer = __builtin_alloca (10);
|
|
buffer[5] = 97 + i;
|
|
s[i] = buffer[5];
|
|
}
|
|
}
|
|
|
|
for (i = 0; i < size; ++i)
|
|
if (s[i] != 97 + i)
|
|
__builtin_abort ();
|
|
|
|
return 0;
|
|
}
|