kmp_ftn_extra.cpp 971 B

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