e372e0f906
Add runtime APIs, implementations, and tests for ALL, ANY, COUNT, MAXLOC, MAXVAL, MINLOC, MINVAL, PRODUCT, and SUM reduction transformantional intrinsic functions for all relevant argument and result types and kinds, both without DIM= arguments (total reductions) and with (partial reductions). Complex-valued reductions have their APIs in C so that C's _Complex types can be used for their results. Some infrastructure work was also necessary or noticed: * Usage of "long double" in the compiler was cleaned up a bit, and host dependences on x86 / MSVC have been isolated in a new Common/long-double header. * Character comparison has been exposed via an extern template so that reductions could use it. * Mappings from Fortran type category/kind to host C++ types and vice versa have been isolated into runtime/cpp-type.h and then used throughout the runtime as appropriate. * The portable 128-bit integer package in Common/uint128.h was generalized to support signed comparisons. * Bugs in descriptor indexing code were fixed. Differential Revision: https://reviews.llvm.org/D99666
68 lines
2.0 KiB
C++
68 lines
2.0 KiB
C++
//===-- runtime/cpp-type.h --------------------------------------*- C++ -*-===//
|
|
//
|
|
// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
|
|
// See https://llvm.org/LICENSE.txt for license information.
|
|
// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
|
|
//
|
|
//===----------------------------------------------------------------------===//
|
|
|
|
// Maps Fortran intrinsic types to C++ types used in the runtime.
|
|
|
|
#ifndef FORTRAN_RUNTIME_CPP_TYPE_H_
|
|
#define FORTRAN_RUNTIME_CPP_TYPE_H_
|
|
|
|
#include "flang/Common/Fortran.h"
|
|
#include "flang/Common/uint128.h"
|
|
#include <complex>
|
|
#include <cstdint>
|
|
|
|
namespace Fortran::runtime {
|
|
|
|
using common::TypeCategory;
|
|
|
|
template <TypeCategory CAT, int KIND> struct CppTypeForHelper {};
|
|
template <TypeCategory CAT, int KIND>
|
|
using CppTypeFor = typename CppTypeForHelper<CAT, KIND>::type;
|
|
|
|
template <int KIND> struct CppTypeForHelper<TypeCategory::Integer, KIND> {
|
|
using type = common::HostSignedIntType<8 * KIND>;
|
|
};
|
|
|
|
// TODO: REAL/COMPLEX(2 & 3)
|
|
template <> struct CppTypeForHelper<TypeCategory::Real, 4> {
|
|
using type = float;
|
|
};
|
|
template <> struct CppTypeForHelper<TypeCategory::Real, 8> {
|
|
using type = double;
|
|
};
|
|
template <> struct CppTypeForHelper<TypeCategory::Real, 10> {
|
|
using type = long double;
|
|
};
|
|
template <> struct CppTypeForHelper<TypeCategory::Real, 16> {
|
|
using type = long double;
|
|
};
|
|
|
|
template <int KIND> struct CppTypeForHelper<TypeCategory::Complex, KIND> {
|
|
using type = std::complex<CppTypeFor<TypeCategory::Real, KIND>>;
|
|
};
|
|
|
|
template <> struct CppTypeForHelper<TypeCategory::Character, 1> {
|
|
using type = char;
|
|
};
|
|
template <> struct CppTypeForHelper<TypeCategory::Character, 2> {
|
|
using type = char16_t;
|
|
};
|
|
template <> struct CppTypeForHelper<TypeCategory::Character, 4> {
|
|
using type = char32_t;
|
|
};
|
|
|
|
template <int KIND> struct CppTypeForHelper<TypeCategory::Logical, KIND> {
|
|
using type = common::HostSignedIntType<8 * KIND>;
|
|
};
|
|
template <> struct CppTypeForHelper<TypeCategory::Logical, 1> {
|
|
using type = bool;
|
|
};
|
|
|
|
} // namespace Fortran::runtime
|
|
#endif // FORTRAN_RUNTIME_CPP_TYPE_H_
|