Fix gcc.c-torture/execute/ieee/cdivchkf.c on hpux
[official-gcc.git] / libgomp / testsuite / libgomp.oacc-fortran / parallel-dims-aux.c
blobcdece32d147478c2d2cd4843fd6c01b285b84e08
1 /* OpenACC parallelism dimensions clauses: num_gangs, num_workers,
2 vector_length. */
4 /* Copied from '../libgomp.oacc-c-c++-common/parallel-dims.c'. */
6 /* Used by 'parallel-dims.f90'. */
8 #include <gomp-constants.h>
10 #pragma acc routine seq
11 /* static */ int acc_gang ()
13 return __builtin_goacc_parlevel_id (GOMP_DIM_GANG);
16 #pragma acc routine seq
17 /* static */ int acc_worker ()
19 return __builtin_goacc_parlevel_id (GOMP_DIM_WORKER);
22 #pragma acc routine seq
23 /* static */ int acc_vector ()
25 return __builtin_goacc_parlevel_id (GOMP_DIM_VECTOR);