LLVM OpenMP* Runtime Library
kmp_ftn_extra.c
1 /*
2  * kmp_ftn_extra.c -- Fortran 'extra' linkage support for OpenMP.
3  */
4 
5 
6 //===----------------------------------------------------------------------===//
7 //
8 // The LLVM Compiler Infrastructure
9 //
10 // This file is dual licensed under the MIT and the University of Illinois Open
11 // Source Licenses. See LICENSE.txt for details.
12 //
13 //===----------------------------------------------------------------------===//
14 
15 
16 #include "kmp.h"
17 
18 #if KMP_OS_WINDOWS
19 # define KMP_FTN_ENTRIES KMP_FTN_PLAIN
20 #elif KMP_OS_UNIX
21 # define KMP_FTN_ENTRIES KMP_FTN_APPEND
22 #endif
23 
24 // Note: This string is not printed when KMP_VERSION=1.
25 char const __kmp_version_ftnextra[] = KMP_VERSION_PREFIX "Fortran \"extra\" OMP support: "
26 #ifdef KMP_FTN_ENTRIES
27  "yes";
28 # define FTN_STDCALL /* nothing to do */
29 # include "kmp_ftn_os.h"
30 # include "kmp_ftn_entry.h"
31 #else
32  "no";
33 #endif /* KMP_FTN_ENTRIES */