54f37133b7
Mostly mechanical changes in preparation of extracting the Flang-RT "subproject" in #110217. This PR intends to only move pre-existing files to the new folder structure, with no behavioral change. Common files (headers, testing, cmake) shared by Flang-RT and Flang remain in `flang/`. Some cosmetic changes and files paths were necessary: * Relative paths to the new path for the source files and `add_subdirectory`. * Add the new location's include directory to `include_directories` * The unittest/Evaluate directory has unitests for flang-rt and Flang. A new `CMakeLists.txt` was introduced for the flang-rt tests. * Change the `#include` paths relative to the include directive * clang-format on the `#include` directives * Since the paths are part if the copyright header and include guards, a script was used to canonicalize those * `test/Runtime` and runtime tests in `test/Driver` are moved, but the lit.cfg.py mechanism to execute the will only be added in #110217.
60 lines
1.9 KiB
C++
60 lines
1.9 KiB
C++
//===-- examples/ExternalHelloWorld/external-hello.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 "flang/Runtime/io-api.h"
|
|
#include "flang/Runtime/main.h"
|
|
#include "flang/Runtime/stop.h"
|
|
#include <cstring>
|
|
#include <limits>
|
|
|
|
using namespace Fortran::runtime::io;
|
|
|
|
void output1() {
|
|
auto io{IONAME(BeginExternalListOutput)()};
|
|
const char str[]{"Hello, world!"};
|
|
IONAME(OutputAscii)(io, str, std::strlen(str));
|
|
IONAME(OutputInteger64)(io, 678);
|
|
IONAME(OutputReal64)(io, 0.0);
|
|
IONAME(OutputReal64)(io, 2.0 / 3.0);
|
|
IONAME(OutputReal64)(io, 1.0e99);
|
|
IONAME(OutputReal64)(io, std::numeric_limits<double>::infinity());
|
|
IONAME(OutputReal64)(io, -std::numeric_limits<double>::infinity());
|
|
IONAME(OutputReal64)(io, std::numeric_limits<double>::quiet_NaN());
|
|
IONAME(OutputComplex64)(io, 123.0, -234.0);
|
|
IONAME(OutputLogical)(io, false);
|
|
IONAME(OutputLogical)(io, true);
|
|
IONAME(EndIoStatement)(io);
|
|
}
|
|
|
|
void input1() {
|
|
auto io{IONAME(BeginExternalListOutput)()};
|
|
const char prompt[]{"Enter an integer value:"};
|
|
IONAME(OutputAscii)(io, prompt, std::strlen(prompt));
|
|
IONAME(EndIoStatement)(io);
|
|
|
|
io = IONAME(BeginExternalListInput)();
|
|
std::int64_t n{-666};
|
|
IONAME(InputInteger)(io, n);
|
|
IONAME(EndIoStatement)(io);
|
|
|
|
io = IONAME(BeginExternalListOutput)();
|
|
const char str[]{"Result:"};
|
|
IONAME(OutputAscii)(io, str, std::strlen(str));
|
|
IONAME(OutputInteger64)(io, n);
|
|
IONAME(EndIoStatement)(io);
|
|
}
|
|
|
|
int main(int argc, const char *argv[], const char *envp[]) {
|
|
RTNAME(ProgramStart)(argc, argv, envp, nullptr);
|
|
output1();
|
|
input1();
|
|
RTNAME(PauseStatement)();
|
|
RTNAME(ProgramEndStatement)();
|
|
return 0;
|
|
}
|