| Jim Cownie | 18d8473 | 2014-05-10 17:02:09 +0000 | [diff] [blame] | 1 | <ompts:test> |
| 2 | <ompts:version>2.0</ompts:version> |
| 3 | <ompts:testdescription>Testing if the conditional compilation is supported or not. |
| 4 | Yi Wen at 05032004: Do we want to write two versions of has_omp? both C23456789 |
| 5 | and #ifdef formats are supposed to work. At least Sun's compiler cannot deal with |
| 6 | the second format (#ifdef)</ompts:testdescription> |
| 7 | |
| 8 | <ompts:testcode> |
| 9 | INTEGER FUNCTION <ompts:testcode:functionname>has_openmp</ompts:testcode:functionname>() |
| 10 | <testfunctionname></testfunctionname> = 0 |
| 11 | |
| 12 | <ompts:check> |
| 13 | !version 1. |
| 14 | !C23456789 |
| 15 | !$ <testfunctionname></testfunctionname> = 1 |
| 16 | |
| 17 | ! version 2. |
| 18 | !#ifdef _OPENMP |
| 19 | <testfunctionname></testfunctionname> = 1 |
| 20 | !#endif |
| 21 | </ompts:check> |
| 22 | |
| 23 | END FUNCTION |
| 24 | </ompts:testcode> |
| 25 | </ompts:test> |