| //===-- runtime/extensions.cpp --------------------------------------------===// |
| // |
| // 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 |
| // |
| //===----------------------------------------------------------------------===// |
| |
| // These C-coded entry points with Fortran-mangled names implement legacy |
| // extensions that will eventually be implemented in Fortran. |
| |
| #include "flang/Runtime/extensions.h" |
| #include "flang/Runtime/io-api.h" |
| |
| extern "C" { |
| |
| // SUBROUTINE FLUSH(N) |
| // FLUSH N |
| // END |
| namespace Fortran::runtime::io { |
| void FORTRAN_SUBROUTINE_NAME(flush)(const int &unit) { |
| Cookie cookie{IONAME(BeginFlush)(unit, __FILE__, __LINE__)}; |
| IONAME(EndIoStatement)(cookie); |
| } |
| } // namespace Fortran::runtime::io |
| } // extern "C" |