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