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
8int 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
16int 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}
28

source code of openmp/runtime/test/api/omp_get_num_devices.c