LLVM OpenMP* Runtime Library
src
kmp_ftn_extra.cpp
1
/*
2
* kmp_ftn_extra.cpp -- Fortran 'extra' linkage support for OpenMP.
3
*/
4
5
//===----------------------------------------------------------------------===//
6
//
7
// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
8
// See https://llvm.org/LICENSE.txt for license information.
9
// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
10
//
11
//===----------------------------------------------------------------------===//
12
13
#include "kmp.h"
14
#include "kmp_affinity.h"
15
16
#if KMP_OS_WINDOWS
17
#define KMP_FTN_ENTRIES KMP_FTN_PLAIN
18
#elif KMP_OS_UNIX
19
#define KMP_FTN_ENTRIES KMP_FTN_APPEND
20
#endif
21
22
// Note: This string is not printed when KMP_VERSION=1.
23
char
const
__kmp_version_ftnextra[] =
24
KMP_VERSION_PREFIX
"Fortran \"extra\" OMP support: "
25
#ifdef KMP_FTN_ENTRIES
26
"yes"
;
27
#define FTN_STDCALL
/* nothing to do */
28
#include "kmp_ftn_os.h"
29
#include "kmp_ftn_entry.h"
30
#else
31
"no"
;
32
#endif
/* KMP_FTN_ENTRIES */
Generated by
1.8.17