17cc577a4SJonathan Peyton /* 2de4749b7SJonathan Peyton * kmp_ftn_stdcall.cpp -- Fortran __stdcall linkage support for OpenMP. 37cc577a4SJonathan Peyton */ 47cc577a4SJonathan Peyton 57cc577a4SJonathan Peyton //===----------------------------------------------------------------------===// 67cc577a4SJonathan Peyton // 7*57b08b09SChandler Carruth // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions. 8*57b08b09SChandler Carruth // See https://llvm.org/LICENSE.txt for license information. 9*57b08b09SChandler Carruth // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception 107cc577a4SJonathan Peyton // 117cc577a4SJonathan Peyton //===----------------------------------------------------------------------===// 127cc577a4SJonathan Peyton 137cc577a4SJonathan Peyton #include "kmp.h" 147cc577a4SJonathan Peyton 157cc577a4SJonathan Peyton // Note: This string is not printed when KMP_VERSION=1. 163041982dSJonathan Peyton char const __kmp_version_ftnstdcall[] = 173041982dSJonathan Peyton KMP_VERSION_PREFIX "Fortran __stdcall OMP support: " 187cc577a4SJonathan Peyton #ifdef USE_FTN_STDCALL 197cc577a4SJonathan Peyton "yes"; 207cc577a4SJonathan Peyton #else 217cc577a4SJonathan Peyton "no"; 227cc577a4SJonathan Peyton #endif 237cc577a4SJonathan Peyton 247cc577a4SJonathan Peyton #ifdef USE_FTN_STDCALL 257cc577a4SJonathan Peyton 267cc577a4SJonathan Peyton #define FTN_STDCALL KMP_STDCALL 277cc577a4SJonathan Peyton #define KMP_FTN_ENTRIES USE_FTN_STDCALL 287cc577a4SJonathan Peyton 297cc577a4SJonathan Peyton #include "kmp_ftn_entry.h" 303041982dSJonathan Peyton #include "kmp_ftn_os.h" 317cc577a4SJonathan Peyton 327cc577a4SJonathan Peyton #endif /* USE_FTN_STDCALL */ 33