c91ba04328
Split some headers into headers for public and private declarations in preparation for #110217. Moving the runtime-private headers in runtime-private include directory will occur in #110298. * Do not use `sizeof(Descriptor)` in the compiler. The size of the descriptor is target-dependent while `sizeof(Descriptor)` is the size of the Descriptor for the host platform which might be too small when cross-compiling to a different platform. Another problem is that the emitted assembly ((cross-)compiling to the same target) is not identical between Flang's running on different systems. Moving the declaration of `class Descriptor` out of the included header will also reduce the amount of #included sources. * Do not use `sizeof(ArrayConstructorVector)` and `alignof(ArrayConstructorVector)` in the compiler. Same reason as with `Descriptor`. * Compute the descriptor's extra flags without instantiating a Descriptor. `Fortran::runtime::Descriptor` is defined in the runtime source, but not the compiler source. * Move `InquiryKeywordHashDecode` into runtime-private header. The function is defined in the runtime sources and trying to call it in the compiler would lead to a link-error. * Move allocator-kind magic numbers into common header. They are the only declarations out of `allocator-registry.h` in the compiler as well. This does not make Flang cross-compile ready yet, the main goal is to avoid transitive header dependencies from Flang to clang-rt. There are more assumptions that host platform is the same as the target platform.
57 lines
2.0 KiB
C++
57 lines
2.0 KiB
C++
//===-- flang/unittests/Runtime/LogicalFormatTest.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
|
|
//
|
|
//===----------------------------------------------------------------------===//
|
|
|
|
#include "CrashHandlerFixture.h"
|
|
#include "flang/Runtime/descriptor.h"
|
|
#include "flang/Runtime/io-api-consts.h"
|
|
#include <algorithm>
|
|
#include <array>
|
|
#include <cstring>
|
|
#include <gtest/gtest.h>
|
|
#include <tuple>
|
|
|
|
using namespace Fortran::runtime;
|
|
using namespace Fortran::runtime::io;
|
|
|
|
TEST(IOApiTests, LogicalFormatTest) {
|
|
static constexpr int bufferSize{29};
|
|
char buffer[bufferSize];
|
|
|
|
// Create format for all types and values to be written
|
|
const char *format{"(L,L3,I3,L2,L2,I3,L2,A3,L2,L,F4.1,L2)"};
|
|
auto cookie{IONAME(BeginInternalFormattedOutput)(
|
|
buffer, bufferSize, format, std::strlen(format))};
|
|
|
|
// Write string, integer, and logical values to buffer
|
|
IONAME(OutputLogical)(cookie, true);
|
|
IONAME(OutputLogical)(cookie, false);
|
|
IONAME(OutputInteger64)(cookie, 6);
|
|
IONAME(OutputInteger32)(cookie, 22);
|
|
IONAME(OutputInteger32)(cookie, 0);
|
|
IONAME(OutputInteger32)(cookie, -2);
|
|
IONAME(OutputCharacter)(cookie, "ABC", 3);
|
|
IONAME(OutputCharacter)(cookie, "AB", 2);
|
|
IONAME(OutputReal64)(cookie, 0.0);
|
|
IONAME(OutputCharacter)(cookie, "", 0);
|
|
IONAME(OutputReal32)(cookie, 2.3);
|
|
IONAME(OutputReal32)(cookie, 2.3);
|
|
|
|
// Ensure IO succeeded
|
|
auto status{IONAME(EndIoStatement)(cookie)};
|
|
ASSERT_EQ(status, 0) << "logical format: '" << format << "' failed, status "
|
|
<< static_cast<int>(status);
|
|
|
|
// Ensure final buffer matches expected string output
|
|
static const std::string expect{"T F 6 T F -2 T AB FF 2.3 T"};
|
|
|
|
// expect.size() == bufferSize - 1
|
|
std::string bufferStr = std::string(buffer, bufferSize - 1);
|
|
ASSERT_TRUE(expect == bufferStr)
|
|
<< "Expected '" << expect << "', got '" << bufferStr << "'";
|
|
}
|