flang/runtime/FortranMain/Fortran_main.c

   1 //===-- runtime/FortranMain/Fortran_main.c --------------------------------===//
   2 //
   3 // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
   4 // See https://llvm.org/LICENSE.txt for license information.
   5 // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
   6 //
   7 //===----------------------------------------------------------------------===//
   8
   9 #include "flang/Runtime/main.h"
  10 #include "flang/Runtime/stop.h"
  11
  12 /* main entry into PROGRAM */
  13 void _QQmain(void);
  14
  15 extern const struct EnvironmentDefaultList *_QQEnvironmentDefaults;
  16
  17 /* C main stub */
  18 int main(int argc, const char *argv[], const char *envp[]) {
  19   RTNAME(ProgramStart)(argc, argv, envp, _QQEnvironmentDefaults);
  20   _QQmain();
  21   RTNAME(ProgramEndStatement)();
  22   return 0;
  23 }