6f8cea3f90
This PR proposes to add `Stop` and `ErrorStop` PRIF call procedures to the MIF dialect. If the `-fcoarray` flag is passed, then all calls to `STOP` and `ERROR STOP` will use those of PRIF in flang-rt. Thes procedure has been registered during the initialization (mif::InitOp). --------- Co-authored-by: Dan Bonachea <dobonachea@lbl.gov>
48 lines
1.5 KiB
C++
48 lines
1.5 KiB
C++
//===-- lib/runtime/main.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/main.h"
|
|
#include "flang-rt/runtime/environment.h"
|
|
#include "flang-rt/runtime/terminator.h"
|
|
#include <cfenv>
|
|
#include <cstdio>
|
|
#include <cstdlib>
|
|
|
|
static void ConfigureFloatingPoint() {
|
|
#ifdef feclearexcept // a macro in some environments; omit std::
|
|
feclearexcept(FE_ALL_EXCEPT);
|
|
#else
|
|
std::feclearexcept(FE_ALL_EXCEPT);
|
|
#endif
|
|
#ifdef fesetround
|
|
fesetround(FE_TONEAREST);
|
|
#else
|
|
std::fesetround(FE_TONEAREST);
|
|
#endif
|
|
}
|
|
|
|
extern "C" {
|
|
void RTNAME(ProgramStart)(int argc, const char *argv[], const char *envp[],
|
|
const EnvironmentDefaultList *envDefaults) {
|
|
Fortran::runtime::executionEnvironment.Configure(
|
|
argc, argv, envp, envDefaults);
|
|
ConfigureFloatingPoint();
|
|
// I/O is initialized on demand so that it works for non-Fortran main().
|
|
}
|
|
|
|
void RTNAME(ByteswapOption)() {
|
|
if (Fortran::runtime::executionEnvironment.conversion ==
|
|
Fortran::runtime::Convert::Unknown) {
|
|
// The environment variable overrides the command-line option;
|
|
// either of them take precedence over explicit OPEN(CONVERT=) specifiers.
|
|
Fortran::runtime::executionEnvironment.conversion =
|
|
Fortran::runtime::Convert::Swap;
|
|
}
|
|
}
|
|
}
|