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;
|
|
}
|