28 lines · c
1// RUN: %libomp-compile-and-run2// Linking fails for icc 183// UNSUPPORTED: icc-184 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