0ec3ac9b7f
To accomplish this, this patch creates an optional list of environment variable default values to be set by the runtime to allow directly using the existing runtime implementation of FORT_CONVERT for I/O conversions.
24 lines
760 B
C
24 lines
760 B
C
//===-- runtime/FortranMain/Fortran_main.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/Runtime/stop.h"
|
|
|
|
/* main entry into PROGRAM */
|
|
void _QQmain(void);
|
|
|
|
extern const struct EnvironmentDefaultList *_QQEnvironmentDefaults;
|
|
|
|
/* C main stub */
|
|
int main(int argc, const char *argv[], const char *envp[]) {
|
|
RTNAME(ProgramStart)(argc, argv, envp, _QQEnvironmentDefaults);
|
|
_QQmain();
|
|
RTNAME(ProgramEndStatement)();
|
|
return 0;
|
|
}
|