Mercurial > hg > CbC > CbC_gcc
view libgomp/testsuite/libgomp.hsa.c/alloca-1.c @ 120:f93fa5091070
fix conv1.c
author | mir3636 |
---|---|
date | Thu, 08 Mar 2018 14:53:42 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
#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; }