libgomp/testsuite/libgomp.oacc-fortran/parallel-dims-aux.c

   1 /* OpenACC parallelism dimensions clauses: num_gangs, num_workers,
   2    vector_length.  */
   3
   4 /* Copied from '../libgomp.oacc-c-c++-common/parallel-dims.c'.  */
   5
   6 /* Used by 'parallel-dims.f90'.  */
   7
   8 #include <gomp-constants.h>
   9
  10 #pragma acc routine seq
  11 /* static */ int acc_gang ()
  12 {
  13   return __builtin_goacc_parlevel_id (GOMP_DIM_GANG);
  14 }
  15
  16 #pragma acc routine seq
  17 /* static */ int acc_worker ()
  18 {
  19   return __builtin_goacc_parlevel_id (GOMP_DIM_WORKER);
  20 }
  21
  22 #pragma acc routine seq
  23 /* static */ int acc_vector ()
  24 {
  25   return __builtin_goacc_parlevel_id (GOMP_DIM_VECTOR);
  26 }