mirror of
https://github.com/intel/llvm.git
synced 2026-02-08 00:50:03 +08:00
5d5b968252
Complete the rework of the initial implementation of external I/O to fix problems found in testing (tests to follow); add handlers for hitherto unimplemented PAUSE, FLUSH, ENDFILE, BACKSPACE, and REWIND statements. Reviewed By: tskeith, sscalpone Differential Revision: https://reviews.llvm.org/D83162
30 lines
1.0 KiB
C++
30 lines
1.0 KiB
C++
//===-- runtime/stop.h ------------------------------------------*- 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
|
|
//
|
|
//===----------------------------------------------------------------------===//
|
|
|
|
#ifndef FORTRAN_RUNTIME_STOP_H_
|
|
#define FORTRAN_RUNTIME_STOP_H_
|
|
|
|
#include "c-or-cpp.h"
|
|
#include "entry-names.h"
|
|
#include <stdlib.h>
|
|
|
|
FORTRAN_EXTERN_C_BEGIN
|
|
|
|
// Program-initiated image stop
|
|
NORETURN void RTNAME(StopStatement)(int code DEFAULT_VALUE(EXIT_SUCCESS),
|
|
bool isErrorStop DEFAULT_VALUE(false), bool quiet DEFAULT_VALUE(false));
|
|
NORETURN void RTNAME(StopStatementText)(const char *,
|
|
bool isErrorStop DEFAULT_VALUE(false), bool quiet DEFAULT_VALUE(false));
|
|
void RTNAME(PauseStatement)(NO_ARGUMENTS);
|
|
NORETURN void RTNAME(FailImageStatement)(NO_ARGUMENTS);
|
|
NORETURN void RTNAME(ProgramEndStatement)(NO_ARGUMENTS);
|
|
|
|
FORTRAN_EXTERN_C_END
|
|
|
|
#endif // FORTRAN_RUNTIME_STOP_H_
|