Skip to content

[flang-rt] Implement iso module in C++ in the runtime #197687

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
jhuber6 merged 5 commits into from
May 20, 2026
Merged

[flang-rt] Implement iso module in C++ in the runtime #197687

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
5 commits
Select commit Hold shift + click to select a range
aad7613
[flang-rt] Remove dependency on flang and implement iso file in C++
jhuber6 May 14, 2026
06345de
test attempt
jhuber6 May 16, 2026
2b76f04
Remove duplicated logic
jhuber6 May 18, 2026
f8d3fcf
Fix macros
jhuber6 May 18, 2026
206d3df
Try to add a test
jhuber6 May 19, 2026
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
3 changes: 3 additions & 0 deletions flang-rt/CMakeLists.txt
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -193,6 +193,9 @@ if (UNIX AND CMAKE_SYSTEM_NAME MATCHES "AIX")
add_compile_definitions(_LARGE_FILE_API)
endif ()

# Indicates REAL(16) support via an external library (e.g. libquadmath).
add_compile_definitions(FLANG_RT_SUPPORTS_REAL16=$<BOOL:${FLANG_RUNTIME_F128_MATH_LIB}>)

# Check whether the compiler can undefine a macro using the "-Wp,-U" flag.
# Aternatively, we could use
# CMAKE_CXX_COMPILER_FRONTEND_VARIANT STREQUAL "GNU"
Expand Down
2 changes: 1 addition & 1 deletion flang-rt/lib/runtime/CMakeLists.txt
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -92,7 +92,7 @@ set(supported_sources

# List of source not used for GPU offloading.
set(host_sources
${FLANG_SOURCE_DIR}/module/iso_fortran_env_impl.f90
iso_fortran_env_impl.cpp
command.cpp
complex-powi.cpp
complex-reduction.c
Expand Down
253 changes: 253 additions & 0 deletions flang-rt/lib/runtime/iso_fortran_env_impl.cpp
View file
Open in desktop
Comment thread
jhuber6 marked this conversation as resolved.
Original file line number Diff line number Diff line change
@@ -0,0 +1,253 @@
//===-- lib/runtime/iso_fortran_env_impl.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
//
//===----------------------------------------------------------------------===//
//
// Provides linkable symbols for the iso_fortran_env_impl module constants. It
// replaces the Fortran source (flang/module/iso_fortran_env_impl.f90) to remove
// the runtime library's build dependency on the Fortran compiler.
//
// The values here must stay in sync with the Fortran module source which
// generates the .mod file during the flang compiler build.
//
// Symbol naming follows Flang's module variable mangling:
// _QM<module_name>EC<constant_name>
//
//===----------------------------------------------------------------------===//

#include "flang/Common/float128.h"
#include "flang/Common/float80.h"
#include "flang/Common/type-kinds.h"
#include <cstdint>

// Fortran merge(tsource, fsource, mask) to match the source module style.
static constexpr std::int32_t Merge(
std::int32_t tsource, std::int32_t fsource, bool mask) {
return mask ? tsource : fsource;
}

// Fortran digits() for integer kind K returns 8*K - 1 (excludes sign bit).
static constexpr int IntDigits(int kind) { return 8 * kind - 1; }

// Fortran digits() for unsigned kind K returns 8*K (no sign bit).
static constexpr int UintDigits(int kind) { return 8 * kind; }

// Fortran digits() for real kind K returns the binary precision.
static constexpr int RealDigits(int kind) {
return Fortran::common::PrecisionOfRealKind(kind);
}

// The smallest valid real kind, used as a safe fallback when a selected
// real kind is unavailable (so digits() can be called without error).
static constexpr std::int32_t safeRealFallback{2};

// Integer kinds, selected -> safe -> validated.
static constexpr std::int32_t selectedInt8{1};
static constexpr std::int32_t selectedInt16{2};
static constexpr std::int32_t selectedInt32{4};
static constexpr std::int32_t selectedInt64{8};
static constexpr std::int32_t selectedInt128{16};

static constexpr std::int32_t safeInt8{
Merge(selectedInt8, 1, selectedInt8 >= 0)};
static constexpr std::int32_t safeInt16{
Merge(selectedInt16, 1, selectedInt16 >= 0)};
static constexpr std::int32_t safeInt32{
Merge(selectedInt32, 1, selectedInt32 >= 0)};
static constexpr std::int32_t safeInt64{
Merge(selectedInt64, 1, selectedInt64 >= 0)};
static constexpr std::int32_t safeInt128{
Merge(selectedInt128, 1, selectedInt128 >= 0)};

static constexpr std::int32_t int8{Merge(
selectedInt8, Merge(-2, -1, selectedInt8 >= 0), IntDigits(safeInt8) == 7)};
static constexpr std::int32_t int16{Merge(selectedInt16,
Merge(-2, -1, selectedInt16 >= 0), IntDigits(safeInt16) == 15)};
static constexpr std::int32_t int32{Merge(selectedInt32,
Merge(-2, -1, selectedInt32 >= 0), IntDigits(safeInt32) == 31)};
static constexpr std::int32_t int64{Merge(selectedInt64,
Merge(-2, -1, selectedInt64 >= 0), IntDigits(safeInt64) == 63)};
static constexpr std::int32_t int128{Merge(selectedInt128,
Merge(-2, -1, selectedInt128 >= 0), IntDigits(safeInt128) == 127)};

// Unsigned kinds, same selection as integer, validated with unsigned digits.
static constexpr std::int32_t selectedUInt8{selectedInt8};
static constexpr std::int32_t selectedUInt16{selectedInt16};
static constexpr std::int32_t selectedUInt32{selectedInt32};
static constexpr std::int32_t selectedUInt64{selectedInt64};
static constexpr std::int32_t selectedUInt128{selectedInt128};

static constexpr std::int32_t safeUInt8{safeInt8};
static constexpr std::int32_t safeUInt16{safeInt16};
static constexpr std::int32_t safeUInt32{safeInt32};
static constexpr std::int32_t safeUInt64{safeInt64};
static constexpr std::int32_t safeUInt128{safeInt128};

static constexpr std::int32_t uint8{Merge(selectedUInt8,
Merge(-2, -1, selectedUInt8 >= 0), UintDigits(safeUInt8) == 8)};
static constexpr std::int32_t uint16{Merge(selectedUInt16,
Merge(-2, -1, selectedUInt16 >= 0), UintDigits(safeUInt16) == 16)};
static constexpr std::int32_t uint32{Merge(selectedUInt32,
Merge(-2, -1, selectedUInt32 >= 0), UintDigits(safeUInt32) == 32)};
static constexpr std::int32_t uint64{Merge(selectedUInt64,
Merge(-2, -1, selectedUInt64 >= 0), UintDigits(safeUInt64) == 64)};
static constexpr std::int32_t uint128{Merge(selectedUInt128,
Merge(-2, -1, selectedUInt128 >= 0), UintDigits(safeUInt128) == 128)};

// Logical kinds mirror integer kinds.
static constexpr std::int32_t logical8{int8};
static constexpr std::int32_t logical16{int16};
static constexpr std::int32_t logical32{int32};
static constexpr std::int32_t logical64{int64};

// Real kinds, selected -> safe -> validated.
static constexpr std::int32_t selectedReal16{2};
static constexpr std::int32_t selectedBfloat16{3};
static constexpr std::int32_t selectedReal32{4};
static constexpr std::int32_t selectedReal64{8};

#if HAS_FLOAT80
static constexpr std::int32_t selectedReal80{10};
#elif HAS_LDBL128 || FLANG_RT_SUPPORTS_REAL16
static constexpr std::int32_t selectedReal80{16};
#else
static constexpr std::int32_t selectedReal80{-3};
#endif

#if HAS_LDBL128 || FLANG_RT_SUPPORTS_REAL16
static constexpr std::int32_t selectedReal64x2{16};
static constexpr std::int32_t selectedReal128{16};
#elif HAS_FLOAT80
static constexpr std::int32_t selectedReal64x2{-1};
static constexpr std::int32_t selectedReal128{-1};
#else
static constexpr std::int32_t selectedReal64x2{-1};
static constexpr std::int32_t selectedReal128{-3};
#endif

static constexpr std::int32_t safeReal16{
Merge(selectedReal16, safeRealFallback, selectedReal16 >= 0)};
static constexpr std::int32_t safeBfloat16{
Merge(selectedBfloat16, safeRealFallback, selectedBfloat16 >= 0)};
static constexpr std::int32_t safeReal32{
Merge(selectedReal32, safeRealFallback, selectedReal32 >= 0)};
static constexpr std::int32_t safeReal64{
Merge(selectedReal64, safeRealFallback, selectedReal64 >= 0)};
static constexpr std::int32_t safeReal80{
Merge(selectedReal80, safeRealFallback, selectedReal80 >= 0)};
static constexpr std::int32_t safeReal64x2{
Merge(selectedReal64x2, safeRealFallback, selectedReal64x2 >= 0)};
static constexpr std::int32_t safeReal128{
Merge(selectedReal128, safeRealFallback, selectedReal128 >= 0)};

static constexpr std::int32_t real16{Merge(selectedReal16,
Merge(-2, -1, selectedReal16 >= 0), RealDigits(safeReal16) == 11)};
static constexpr std::int32_t bfloat16{Merge(selectedBfloat16,
Merge(-2, -1, selectedBfloat16 >= 0), RealDigits(safeBfloat16) == 8)};
static constexpr std::int32_t real32{Merge(selectedReal32,
Merge(-2, -1, selectedReal32 >= 0), RealDigits(safeReal32) == 24)};
static constexpr std::int32_t real64{Merge(selectedReal64,
Merge(-2, -1, selectedReal64 >= 0), RealDigits(safeReal64) == 53)};
static constexpr std::int32_t real80{Merge(selectedReal80,
Merge(-2, -1, selectedReal80 >= 0), RealDigits(safeReal80) == 64)};
static constexpr std::int32_t real64x2{Merge(selectedReal64x2,
Merge(-2, -1, selectedReal64x2 >= 0), RealDigits(safeReal64x2) == 106)};
static constexpr std::int32_t real128{Merge(selectedReal128,
Merge(-2, -1, selectedReal128 >= 0), RealDigits(safeReal128) == 113)};

// Exported symbols with Flang module-variable mangling.
#define FORTRAN_NAMED_CONST(name) _QMiso_fortran_env_implEC##name

extern "C" {

extern const std::int32_t FORTRAN_NAMED_CONST(selectedint8){selectedInt8};
extern const std::int32_t FORTRAN_NAMED_CONST(selectedint16){selectedInt16};
extern const std::int32_t FORTRAN_NAMED_CONST(selectedint32){selectedInt32};
extern const std::int32_t FORTRAN_NAMED_CONST(selectedint64){selectedInt64};
extern const std::int32_t FORTRAN_NAMED_CONST(selectedint128){selectedInt128};

extern const std::int32_t FORTRAN_NAMED_CONST(safeint8){safeInt8};
extern const std::int32_t FORTRAN_NAMED_CONST(safeint16){safeInt16};
extern const std::int32_t FORTRAN_NAMED_CONST(safeint32){safeInt32};
extern const std::int32_t FORTRAN_NAMED_CONST(safeint64){safeInt64};
extern const std::int32_t FORTRAN_NAMED_CONST(safeint128){safeInt128};

extern const std::int32_t FORTRAN_NAMED_CONST(int8){int8};
extern const std::int32_t FORTRAN_NAMED_CONST(int16){int16};
extern const std::int32_t FORTRAN_NAMED_CONST(int32){int32};
extern const std::int32_t FORTRAN_NAMED_CONST(int64){int64};
extern const std::int32_t FORTRAN_NAMED_CONST(int128){int128};

extern const std::int32_t FORTRAN_NAMED_CONST(selecteduint8){selectedUInt8};
extern const std::int32_t FORTRAN_NAMED_CONST(selecteduint16){selectedUInt16};
extern const std::int32_t FORTRAN_NAMED_CONST(selecteduint32){selectedUInt32};
extern const std::int32_t FORTRAN_NAMED_CONST(selecteduint64){selectedUInt64};
extern const std::int32_t FORTRAN_NAMED_CONST(selecteduint128){selectedUInt128};

extern const std::int32_t FORTRAN_NAMED_CONST(safeuint8){safeUInt8};
extern const std::int32_t FORTRAN_NAMED_CONST(safeuint16){safeUInt16};
extern const std::int32_t FORTRAN_NAMED_CONST(safeuint32){safeUInt32};
extern const std::int32_t FORTRAN_NAMED_CONST(safeuint64){safeUInt64};
extern const std::int32_t FORTRAN_NAMED_CONST(safeuint128){safeUInt128};

extern const std::int32_t FORTRAN_NAMED_CONST(uint8){uint8};
extern const std::int32_t FORTRAN_NAMED_CONST(uint16){uint16};
extern const std::int32_t FORTRAN_NAMED_CONST(uint32){uint32};
extern const std::int32_t FORTRAN_NAMED_CONST(uint64){uint64};
extern const std::int32_t FORTRAN_NAMED_CONST(uint128){uint128};

extern const std::int32_t FORTRAN_NAMED_CONST(logical8){logical8};
extern const std::int32_t FORTRAN_NAMED_CONST(logical16){logical16};
extern const std::int32_t FORTRAN_NAMED_CONST(logical32){logical32};
extern const std::int32_t FORTRAN_NAMED_CONST(logical64){logical64};

extern const std::int32_t FORTRAN_NAMED_CONST(selectedreal16){selectedReal16};
extern const std::int32_t FORTRAN_NAMED_CONST(selectedbfloat16){
selectedBfloat16};
extern const std::int32_t FORTRAN_NAMED_CONST(selectedreal32){selectedReal32};
extern const std::int32_t FORTRAN_NAMED_CONST(selectedreal64){selectedReal64};
extern const std::int32_t FORTRAN_NAMED_CONST(selectedreal80){selectedReal80};
extern const std::int32_t FORTRAN_NAMED_CONST(selectedreal64x2){
selectedReal64x2};
extern const std::int32_t FORTRAN_NAMED_CONST(selectedreal128){selectedReal128};

extern const std::int32_t FORTRAN_NAMED_CONST(safereal16){safeReal16};
extern const std::int32_t FORTRAN_NAMED_CONST(safebfloat16){safeBfloat16};
extern const std::int32_t FORTRAN_NAMED_CONST(safereal32){safeReal32};
extern const std::int32_t FORTRAN_NAMED_CONST(safereal64){safeReal64};
extern const std::int32_t FORTRAN_NAMED_CONST(safereal80){safeReal80};
extern const std::int32_t FORTRAN_NAMED_CONST(safereal64x2){safeReal64x2};
extern const std::int32_t FORTRAN_NAMED_CONST(safereal128){safeReal128};

extern const std::int32_t FORTRAN_NAMED_CONST(real16){real16};
extern const std::int32_t FORTRAN_NAMED_CONST(bfloat16){bfloat16};
extern const std::int32_t FORTRAN_NAMED_CONST(real32){real32};
extern const std::int32_t FORTRAN_NAMED_CONST(real64){real64};
extern const std::int32_t FORTRAN_NAMED_CONST(real80){real80};
extern const std::int32_t FORTRAN_NAMED_CONST(real64x2){real64x2};
extern const std::int32_t FORTRAN_NAMED_CONST(real128){real128};

extern const std::int32_t FORTRAN_NAMED_CONST(
__builtin_integer_kinds)[] = FORTRAN_INTEGER_KINDS;

extern const std::int32_t FORTRAN_NAMED_CONST(
__builtin_logical_kinds)[] = FORTRAN_LOGICAL_KINDS;

// Target-filtered subset of FORTRAN_REAL_KINDS from type-kinds.h.
extern const std::int32_t FORTRAN_NAMED_CONST(__builtin_real_kinds)[]{
2,
3,
4,
8,
#if HAS_FLOAT80
10,
#endif
#if HAS_LDBL128 || FLANG_RT_SUPPORTS_REAL16
16,
#endif
};

} // extern "C"
13 changes: 13 additions & 0 deletions flang-rt/test/Driver/compare_iso_fortran_env_symbols.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,13 @@
! UNSUPPORTED: offload-cuda

! RUN: %flang -c -funsigned %include/../module/iso_fortran_env_impl.f90 -o %t.f90.o
! RUN: %clang -x c++ -std=c++17 -c -I "%include" %S/../../lib/runtime/iso_fortran_env_impl.cpp -o %t.cpp.o

! Extract defined symbol names and sizes from both objects.
! RUN: llvm-nm --defined-only --format=posix --print-size %t.f90.o \
! RUN: | grep '_QMiso_fortran_env_impl' | cut -d' ' -f1,4 | sort > %t.f90.syms
! RUN: llvm-nm --defined-only --format=posix --print-size %t.cpp.o \
! RUN: | grep '_QMiso_fortran_env_impl' | cut -d' ' -f1,4 | sort > %t.cpp.syms

! The two symbol lists must be identical.
! RUN: diff %t.f90.syms %t.cpp.syms

@akuhlens akuhlens May 20, 2026 •
edited
Loading

Copy link
Copy Markdown
Contributor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

I am getting the following failure from this PR:

# RUN: at line 13
diff ...
# .---command stdout------------
# | *** compare_iso_fortran_env_symbols.f90.tmp.f90.syms
# | --- compare_iso_fortran_env_symbols.f90.tmp.cpp.syms
# | ***************
# | *** 1,6 ****
# |   _QMiso_fortran_env_implEC__builtin_integer_kinds 14
# |   _QMiso_fortran_env_implEC__builtin_logical_kinds 10
# | ! _QMiso_fortran_env_implEC__builtin_real_kinds 18
# |   _QMiso_fortran_env_implECbfloat16 4
# |   _QMiso_fortran_env_implECint128 4
# |   _QMiso_fortran_env_implECint16 4
# | --- 1,6 ----
# |   _QMiso_fortran_env_implEC__builtin_integer_kinds 14
# |   _QMiso_fortran_env_implEC__builtin_logical_kinds 10
# | ! _QMiso_fortran_env_implEC__builtin_real_kinds 14
# |   _QMiso_fortran_env_implECbfloat16 4
# |   _QMiso_fortran_env_implECint128 4
# |   _QMiso_fortran_env_implECint16 4
# `-----------------------------
# error: command failed with exit status: 1

@jhuber6 jhuber6 May 20, 2026

Copy link
Copy Markdown
Contributor Author

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Ah, sorry, what's your platform? At least the test is doing its job.

@jhuber6 jhuber6 May 20, 2026

Copy link
Copy Markdown
Contributor Author

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

My guess is that it might be a platform without 128bit float and for some reason the original ISO file says it's supported.

@vzakhari vzakhari May 20, 2026

Copy link
Copy Markdown
Contributor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Our flang-rt is built with -DFLANG_RT_SUPPORTS_REAL16=1, so it contains the real-kind-16 in the array. The test's clang command does not specify this macro, so the real-kind-16 is missing from the *.cpp.o file.

@vzakhari vzakhari May 20, 2026

Copy link
Copy Markdown
Contributor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

I wonder if it is possible to compare the module compilation with the real iso_fortran_env_impl.cpp.o that was built during the library build.

@vzakhari vzakhari May 20, 2026

Copy link
Copy Markdown
Contributor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

llvm-nm --defined-only --format=posix --print-size ./lib/clang/23/lib/x86_64-unknown-linux-gnu/libflang_rt.runtime.* | grep iso_fortran_env_impl seems to work for shared and static libs

@jhuber6 jhuber6 May 20, 2026

Copy link
Copy Markdown
Contributor Author

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

That's what I was thinking, but if we build with both it would double up all the symbols. Maybe I can just run it through uniq?

@jhuber6 jhuber6 May 20, 2026

Copy link
Copy Markdown
Contributor Author

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Let me know if #198922 fixes it

@vzakhari vzakhari May 20, 2026

Copy link
Copy Markdown
Contributor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

I guess we can check for flang_rt.runtime, flang_rt.runtime.static and flang_rt.runtime.shared targets, then find the output file for them and pass it to the LIT test from CMake, but uniq should probably also work.

@vzakhari vzakhari May 20, 2026

Copy link
Copy Markdown
Contributor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Let me know if #198922 fixes it

It works for me. Thanks!

23 changes: 23 additions & 0 deletions flang-rt/test/Driver/iso_fortran_env_impl.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,23 @@
! Verify that iso_fortran_env constants from the C++ runtime
! (iso_fortran_env_impl.cpp) match the Fortran module definitions.

! UNSUPPORTED: offload-cuda
! RUN: %flang %isysroot -L"%libdir" %s -o %t
! RUN: env LD_LIBRARY_PATH="$LD_LIBRARY_PATH:%libdir" %t | FileCheck %s

program check_iso_env
use iso_fortran_env, only: int8, int16, int32, int64, real32, real64

! CHECK: PASS int8 1
print '("PASS int8 ",I0)', int8
! CHECK: PASS int16 2
print '("PASS int16 ",I0)', int16
! CHECK: PASS int32 4
print '("PASS int32 ",I0)', int32
! CHECK: PASS int64 8
print '("PASS int64 ",I0)', int64
! CHECK: PASS real32 4
print '("PASS real32 ",I0)', real32
! CHECK: PASS real64 8
print '("PASS real64 ",I0)', real64
end program
41 changes: 32 additions & 9 deletions flang/include/flang/Common/type-kinds.h
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -13,27 +13,50 @@
#include "real.h"
#include <cinttypes>

// Canonical lists of supported Fortran kinds for each intrinsic type.
#define FORTRAN_INTEGER_KINDS {1, 2, 4, 8, 16}
#define FORTRAN_UNSIGNED_KINDS FORTRAN_INTEGER_KINDS
#define FORTRAN_REAL_KINDS {2, 3, 4, 8, 10, 16}
#define FORTRAN_LOGICAL_KINDS {1, 2, 4, 8}
#define FORTRAN_CHARACTER_KINDS {1, 2, 4}

namespace Fortran::common {

static constexpr int maxKind{16};

template <typename T, std::size_t N>
static constexpr bool IsKindInList(const T (&kinds)[N], std::int64_t kind) {
for (std::size_t i{0}; i < N; ++i) {
if (kinds[i] == kind)
return true;
}
return false;
}

// A predicate that is true when a kind value is a kind that could possibly
// be supported for an intrinsic type category on some target instruction
// set architecture.
static constexpr bool IsValidKindOfIntrinsicType(
TypeCategory category, std::int64_t kind) {
switch (category) {
case TypeCategory::Integer:
case TypeCategory::Unsigned:
return kind == 1 || kind == 2 || kind == 4 || kind == 8 || kind == 16;
case TypeCategory::Unsigned: {
constexpr int kinds[] = FORTRAN_INTEGER_KINDS;
return IsKindInList(kinds, kind);
}
case TypeCategory::Real:
case TypeCategory::Complex:
return kind == 2 || kind == 3 || kind == 4 || kind == 8 || kind == 10 ||
kind == 16;
case TypeCategory::Character:
return kind == 1 || kind == 2 || kind == 4;
case TypeCategory::Logical:
return kind == 1 || kind == 2 || kind == 4 || kind == 8;
case TypeCategory::Complex: {
constexpr int kinds[] = FORTRAN_REAL_KINDS;
return IsKindInList(kinds, kind);
}
case TypeCategory::Character: {
constexpr int kinds[] = FORTRAN_CHARACTER_KINDS;
return IsKindInList(kinds, kind);
}
case TypeCategory::Logical: {
constexpr int kinds[] = FORTRAN_LOGICAL_KINDS;
return IsKindInList(kinds, kind);
}
default:
return false;
}
Expand Down
5 changes: 4 additions & 1 deletion flang/module/iso_fortran_env_impl.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
!===-- module/iso_fortran_env_impl.f90 --=--------------------------------===!
!===-- module/iso_fortran_env_impl.f90 --=----------------------------------===!
!
! Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
! See https://llvm.org/LICENSE.txt for license information.
Expand All @@ -9,6 +9,9 @@
! This MODULE implements part of the ISO_FORTRAN_ENV module file, which
! partially requires linkable symbols for some entities defined
! (e.g., real_kinds).
!
! The runtime symbols are in flang-rt/lib/runtime/iso_fortran_env_impl.cpp and
! must be kept up-to-date.

module iso_fortran_env_impl
implicit none
Expand Down
Loading