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