libgomp/testsuite/libgomp.hsa.c/alloca-1.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

#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;
}