1*627a8ac7SPeter Klausler //===-- runtime/extensions.cpp --------------------------------------------===//
2*627a8ac7SPeter Klausler //
3*627a8ac7SPeter Klausler // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
4*627a8ac7SPeter Klausler // See https://llvm.org/LICENSE.txt for license information.
5*627a8ac7SPeter Klausler // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
6*627a8ac7SPeter Klausler //
7*627a8ac7SPeter Klausler //===----------------------------------------------------------------------===//
8*627a8ac7SPeter Klausler 
9*627a8ac7SPeter Klausler // These C-coded entry points with Fortran-mangled names implement legacy
10*627a8ac7SPeter Klausler // extensions that will eventually be implemented in Fortran.
11*627a8ac7SPeter Klausler 
12*627a8ac7SPeter Klausler #include "flang/Runtime/extensions.h"
13*627a8ac7SPeter Klausler #include "flang/Runtime/io-api.h"
14*627a8ac7SPeter Klausler 
15*627a8ac7SPeter Klausler extern "C" {
16*627a8ac7SPeter Klausler 
17*627a8ac7SPeter Klausler // SUBROUTINE FLUSH(N)
18*627a8ac7SPeter Klausler //   FLUSH N
19*627a8ac7SPeter Klausler // END
20*627a8ac7SPeter Klausler namespace Fortran::runtime::io {
FORTRAN_SUBROUTINE_NAME(flush)21*627a8ac7SPeter Klausler void FORTRAN_SUBROUTINE_NAME(flush)(const int &unit) {
22*627a8ac7SPeter Klausler   Cookie cookie{IONAME(BeginFlush)(unit, __FILE__, __LINE__)};
23*627a8ac7SPeter Klausler   IONAME(EndIoStatement)(cookie);
24*627a8ac7SPeter Klausler }
25*627a8ac7SPeter Klausler } // namespace Fortran::runtime::io
26*627a8ac7SPeter Klausler } // extern "C"
27