1*0b57cec5SDimitry Andric /*
2*0b57cec5SDimitry Andric  * kmp_ftn_stdcall.cpp -- Fortran __stdcall linkage support for OpenMP.
3*0b57cec5SDimitry Andric  */
4*0b57cec5SDimitry Andric 
5*0b57cec5SDimitry Andric //===----------------------------------------------------------------------===//
6*0b57cec5SDimitry Andric //
7*0b57cec5SDimitry Andric // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
8*0b57cec5SDimitry Andric // See https://llvm.org/LICENSE.txt for license information.
9*0b57cec5SDimitry Andric // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
10*0b57cec5SDimitry Andric //
11*0b57cec5SDimitry Andric //===----------------------------------------------------------------------===//
12*0b57cec5SDimitry Andric 
13*0b57cec5SDimitry Andric #include "kmp.h"
14*0b57cec5SDimitry Andric 
15*0b57cec5SDimitry Andric // Note: This string is not printed when KMP_VERSION=1.
16*0b57cec5SDimitry Andric char const __kmp_version_ftnstdcall[] =
17*0b57cec5SDimitry Andric     KMP_VERSION_PREFIX "Fortran __stdcall OMP support: "
18*0b57cec5SDimitry Andric #ifdef USE_FTN_STDCALL
19*0b57cec5SDimitry Andric                        "yes";
20*0b57cec5SDimitry Andric #else
21*0b57cec5SDimitry Andric                        "no";
22*0b57cec5SDimitry Andric #endif
23*0b57cec5SDimitry Andric 
24*0b57cec5SDimitry Andric #ifdef USE_FTN_STDCALL
25*0b57cec5SDimitry Andric 
26*0b57cec5SDimitry Andric #define FTN_STDCALL KMP_STDCALL
27*0b57cec5SDimitry Andric #define KMP_FTN_ENTRIES USE_FTN_STDCALL
28*0b57cec5SDimitry Andric 
29*0b57cec5SDimitry Andric #include "kmp_ftn_entry.h"
30*0b57cec5SDimitry Andric #include "kmp_ftn_os.h"
31*0b57cec5SDimitry Andric 
32*0b57cec5SDimitry Andric #endif /* USE_FTN_STDCALL */
33