forked from OSchip/llvm-project
40 lines
1.2 KiB
C++
40 lines
1.2 KiB
C++
//===-- 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 "main.h"
|
|
#include "environment.h"
|
|
#include "terminator.h"
|
|
#include "unit.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[]) {
|
|
std::atexit(Fortran::runtime::NotifyOtherImagesOfNormalEnd);
|
|
Fortran::runtime::executionEnvironment.Configure(argc, argv, envp);
|
|
ConfigureFloatingPoint();
|
|
Fortran::runtime::Terminator terminator{"ProgramStart()"};
|
|
Fortran::runtime::io::ExternalFile::InitializePredefinedUnits(terminator);
|
|
}
|
|
}
|