openmp/testsuite/c/has_openmp.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30

<ompts:test>
<ompts:testdescription>Test which checks the OpenMp support.</ompts:testdescription>
<ompts:ompversion>2.0</ompts:ompversion>
<ompts:directive>_OPENMP</ompts:directive>
<ompts:testcode>
#include <stdio.h>

#include "omp_testsuite.h"

int <ompts:testcode:functionname>has_openmp</ompts:testcode:functionname>(FILE * logFile){
    <ompts:orphan:vars>
    int rvalue = 0;
    </ompts:orphan:vars>

    <ompts:orphan>
    <ompts:check>
#ifdef _OPENMP
	rvalue = 1;
#endif
    </ompts:check>
    <ompts:crosscheck>
#if 0
	rvalue = 1;
#endif
    </ompts:crosscheck>
      </ompts:orphan>
	return (rvalue);
}
</ompts:testcode>
</ompts:test>