| //===-- lib/runtime/matmul-complex.cpp --------------------------*- 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 |
| // |
| //===----------------------------------------------------------------------===// |
| |
| // Complex-involving MATMUL instances. |
| |
| #include "matmul.h" |
| |
| namespace Fortran::runtime { |
| extern "C" { |
| RT_EXT_API_GROUP_BEGIN |
| |
| // clang-format off |
| #define FOREACH_MATMUL_COMPLEX_PAIR(macro) \ |
| macro(Integer, 1, Complex, 4) macro(Integer, 1, Complex, 8) \ |
| macro(Integer, 2, Complex, 4) macro(Integer, 2, Complex, 8) \ |
| macro(Integer, 4, Complex, 4) macro(Integer, 4, Complex, 8) \ |
| macro(Integer, 8, Complex, 4) macro(Integer, 8, Complex, 8) \ |
| macro(Unsigned, 1, Complex, 4) macro(Unsigned, 1, Complex, 8) \ |
| macro(Unsigned, 2, Complex, 4) macro(Unsigned, 2, Complex, 8) \ |
| macro(Unsigned, 4, Complex, 4) macro(Unsigned, 4, Complex, 8) \ |
| macro(Unsigned, 8, Complex, 4) macro(Unsigned, 8, Complex, 8) \ |
| macro(Real, 4, Complex, 4) macro(Real, 4, Complex, 8) \ |
| macro(Real, 8, Complex, 4) macro(Real, 8, Complex, 8) \ |
| macro(Complex, 4, Integer, 1) macro(Complex, 4, Integer, 2) \ |
| macro(Complex, 4, Integer, 4) macro(Complex, 4, Integer, 8) \ |
| macro(Complex, 8, Integer, 1) macro(Complex, 8, Integer, 2) \ |
| macro(Complex, 8, Integer, 4) macro(Complex, 8, Integer, 8) \ |
| macro(Complex, 4, Unsigned, 1) macro(Complex, 4, Unsigned, 2) \ |
| macro(Complex, 4, Unsigned, 4) macro(Complex, 4, Unsigned, 8) \ |
| macro(Complex, 8, Unsigned, 1) macro(Complex, 8, Unsigned, 2) \ |
| macro(Complex, 8, Unsigned, 4) macro(Complex, 8, Unsigned, 8) \ |
| macro(Complex, 4, Real, 4) macro(Complex, 4, Real, 8) \ |
| macro(Complex, 8, Real, 4) macro(Complex, 8, Real, 8) \ |
| macro(Complex, 4, Complex, 4) macro(Complex, 4, Complex, 8) \ |
| macro(Complex, 8, Complex, 4) macro(Complex, 8, Complex, 8) |
| |
| FOREACH_MATMUL_COMPLEX_PAIR(MATMUL_INSTANCE) |
| FOREACH_MATMUL_COMPLEX_PAIR(MATMUL_DIRECT_INSTANCE) |
| // clang-format on |
| |
| RT_EXT_API_GROUP_END |
| } // extern "C" |
| } // namespace Fortran::runtime |
