1*0b57cec5SDimitry Andric /* 2*0b57cec5SDimitry Andric * kmp_ftn_extra.cpp -- Fortran 'extra' 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 #include "kmp_affinity.h" 15*0b57cec5SDimitry Andric 16*0b57cec5SDimitry Andric #if KMP_OS_WINDOWS 17*0b57cec5SDimitry Andric #define KMP_FTN_ENTRIES KMP_FTN_PLAIN 18*0b57cec5SDimitry Andric #elif KMP_OS_UNIX 19*0b57cec5SDimitry Andric #define KMP_FTN_ENTRIES KMP_FTN_APPEND 20*0b57cec5SDimitry Andric #endif 21*0b57cec5SDimitry Andric 22*0b57cec5SDimitry Andric // Note: This string is not printed when KMP_VERSION=1. 23*0b57cec5SDimitry Andric char const __kmp_version_ftnextra[] = 24*0b57cec5SDimitry Andric KMP_VERSION_PREFIX "Fortran \"extra\" OMP support: " 25*0b57cec5SDimitry Andric #ifdef KMP_FTN_ENTRIES 26*0b57cec5SDimitry Andric "yes"; 27*0b57cec5SDimitry Andric #define FTN_STDCALL /* nothing to do */ 28*0b57cec5SDimitry Andric #include "kmp_ftn_os.h" 29*0b57cec5SDimitry Andric #include "kmp_ftn_entry.h" 30*0b57cec5SDimitry Andric #else 31*0b57cec5SDimitry Andric "no"; 32*0b57cec5SDimitry Andric #endif /* KMP_FTN_ENTRIES */ 33