openmp/runtime/test/api/omp_get_num_devices.c

   1 // RUN: %libomp-compile-and-run
   2 // Linking fails for icc 18
   3 // UNSUPPORTED: icc-18
   4
   5 #include <stdio.h>
   6 #include "omp_testsuite.h"
   7
   8 int test_omp_get_num_devices()
   9 {
  10   /* checks that omp_get_device_num */
  11   int num_devices = omp_get_num_devices();
  12
  13   return (num_devices == 0);
  14 }
  15
  16 int main()
  17 {
  18   int i;
  19   int num_failed=0;
  20
  21   for(i = 0; i < REPETITIONS; i++) {
  22     if(!test_omp_get_num_devices()) {
  23       num_failed++;
  24     }
  25   }
  26   return num_failed;
  27 }