| /* |
| * kmp_ftn_stdcall.cpp -- Fortran __stdcall linkage support for OpenMP. |
| */ |
| |
| //===----------------------------------------------------------------------===// |
| // |
| // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions. |
| // See https://llvm.org/LICENSE.txt for license information. |
| // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception |
| // |
| //===----------------------------------------------------------------------===// |
| |
| #include "kmp.h" |
| |
| // Note: This string is not printed when KMP_VERSION=1. |
| char const __kmp_version_ftnstdcall[] = |
| KMP_VERSION_PREFIX "Fortran __stdcall OMP support: " |
| #ifdef USE_FTN_STDCALL |
| "yes"; |
| #else |
| "no"; |
| #endif |
| |
| #ifdef USE_FTN_STDCALL |
| |
| #define FTN_STDCALL KMP_STDCALL |
| #define KMP_FTN_ENTRIES USE_FTN_STDCALL |
| |
| #include "kmp_ftn_entry.h" |
| #include "kmp_ftn_os.h" |
| |
| #endif /* USE_FTN_STDCALL */ |