fc97d2e68b
Implement the UNSIGNED extension type and operations under control of a language feature flag (-funsigned). This is nearly identical to the UNSIGNED feature that has been available in Sun Fortran for years, and now implemented in GNU Fortran for gfortran 15, and proposed for ISO standardization in J3/24-116.txt. See the new documentation for details; but in short, this is C's unsigned type, with guaranteed modular arithmetic for +, -, and *, and the related transformational intrinsic functions SUM & al.
54 lines
2.0 KiB
C++
54 lines
2.0 KiB
C++
//===-- runtime/edit-input.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
|
|
//
|
|
//===----------------------------------------------------------------------===//
|
|
|
|
#ifndef FORTRAN_RUNTIME_EDIT_INPUT_H_
|
|
#define FORTRAN_RUNTIME_EDIT_INPUT_H_
|
|
|
|
#include "format.h"
|
|
#include "io-stmt.h"
|
|
#include "flang/Decimal/decimal.h"
|
|
|
|
namespace Fortran::runtime::io {
|
|
|
|
RT_API_ATTRS bool EditIntegerInput(
|
|
IoStatementState &, const DataEdit &, void *, int kind, bool isSigned);
|
|
|
|
template <int KIND>
|
|
RT_API_ATTRS bool EditRealInput(IoStatementState &, const DataEdit &, void *);
|
|
|
|
RT_API_ATTRS bool EditLogicalInput(
|
|
IoStatementState &, const DataEdit &, bool &);
|
|
|
|
template <typename CHAR>
|
|
RT_API_ATTRS bool EditCharacterInput(
|
|
IoStatementState &, const DataEdit &, CHAR *, std::size_t);
|
|
|
|
extern template RT_API_ATTRS bool EditRealInput<2>(
|
|
IoStatementState &, const DataEdit &, void *);
|
|
extern template RT_API_ATTRS bool EditRealInput<3>(
|
|
IoStatementState &, const DataEdit &, void *);
|
|
extern template RT_API_ATTRS bool EditRealInput<4>(
|
|
IoStatementState &, const DataEdit &, void *);
|
|
extern template RT_API_ATTRS bool EditRealInput<8>(
|
|
IoStatementState &, const DataEdit &, void *);
|
|
extern template RT_API_ATTRS bool EditRealInput<10>(
|
|
IoStatementState &, const DataEdit &, void *);
|
|
// TODO: double/double
|
|
extern template RT_API_ATTRS bool EditRealInput<16>(
|
|
IoStatementState &, const DataEdit &, void *);
|
|
|
|
extern template RT_API_ATTRS bool EditCharacterInput(
|
|
IoStatementState &, const DataEdit &, char *, std::size_t);
|
|
extern template RT_API_ATTRS bool EditCharacterInput(
|
|
IoStatementState &, const DataEdit &, char16_t *, std::size_t);
|
|
extern template RT_API_ATTRS bool EditCharacterInput(
|
|
IoStatementState &, const DataEdit &, char32_t *, std::size_t);
|
|
|
|
} // namespace Fortran::runtime::io
|
|
#endif // FORTRAN_RUNTIME_EDIT_INPUT_H_
|