1 /*
2  * kmp_ftn_stdcall.cpp -- Fortran __stdcall linkage support for OpenMP.
3  */
4 
5 //===----------------------------------------------------------------------===//
6 //
7 //                     The LLVM Compiler Infrastructure
8 //
9 // This file is dual licensed under the MIT and the University of Illinois Open
10 // Source Licenses. See LICENSE.txt for details.
11 //
12 //===----------------------------------------------------------------------===//
13 
14 #include "kmp.h"
15 
16 // Note: This string is not printed when KMP_VERSION=1.
17 char const __kmp_version_ftnstdcall[] =
18     KMP_VERSION_PREFIX "Fortran __stdcall OMP support: "
19 #ifdef USE_FTN_STDCALL
20                        "yes";
21 #else
22                        "no";
23 #endif
24 
25 #ifdef USE_FTN_STDCALL
26 
27 #define FTN_STDCALL KMP_STDCALL
28 #define KMP_FTN_ENTRIES USE_FTN_STDCALL
29 
30 #include "kmp_ftn_entry.h"
31 #include "kmp_ftn_os.h"
32 
33 #endif /* USE_FTN_STDCALL */
34