Mercurial > hg > CbC > CbC_gcc
view libgomp/testsuite/libgomp.oacc-c-c++-common/gang-static-1.c @ 138:fc828634a951
merge
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Thu, 08 Nov 2018 14:17:14 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
#include <assert.h> #define N 100 void test (int *a, int *b, int sarg) { int i; for (i = 0; i < N; i++) assert (a[i] == b[i] + sarg); } int main () { int a[N], b[N]; int i; for (i = 0; i < N; i++) b[i] = i+1; #pragma acc parallel loop gang (static:*) num_gangs (10) for (i = 0; i < 100; i++) a[i] = b[i] + 0; test (a, b, 0); #pragma acc parallel loop gang (static:1) num_gangs (10) for (i = 0; i < 100; i++) a[i] = b[i] + 1; test (a, b, 1); #pragma acc parallel loop gang (static:5) num_gangs (10) for (i = 0; i < 100; i++) a[i] = b[i] + 5; test (a, b, 5); #pragma acc parallel loop gang (static:20) num_gangs (10) for (i = 0; i < 100; i++) a[i] = b[i] + 20; test (a, b, 20); return 0; }