991696c2eb
Corrects the runtime implementation of I/O on files with the access mode ACCESS='STREAM'. This is a collection of edge-case tweaks to ensure that the distinctions between stream and direct/sequential files, unformatted or formatted, are respected where appropriate. Moves NextInField() from io-stmt.h to io-stmt.cpp -- it was getting too big to keep in a header. This patch exposed a problem with the I/O runtime on Windows and it was reverted. This version also fixes that problem; files are now opened on Windows in binary mode to prevent inadvertent insertions of carriage returns before line feeds, and those line endings (CR+LF) are now explicitly generated. Differential Revision: https://reviews.llvm.org/D119015
64 lines
2.1 KiB
C++
64 lines
2.1 KiB
C++
//===-- runtime/iostat.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
|
|
//
|
|
//===----------------------------------------------------------------------===//
|
|
|
|
#include "flang/Runtime/iostat.h"
|
|
|
|
namespace Fortran::runtime::io {
|
|
const char *IostatErrorString(int iostat) {
|
|
switch (iostat) {
|
|
case IostatOk:
|
|
return "No error";
|
|
case IostatEnd:
|
|
return "End of file during input";
|
|
case IostatEor:
|
|
return "End of record during non-advancing input";
|
|
case IostatUnflushable:
|
|
return "FLUSH not possible";
|
|
case IostatInquireInternalUnit:
|
|
return "INQUIRE on internal unit";
|
|
case IostatGenericError:
|
|
return "I/O error"; // dummy value, there's always a message
|
|
case IostatRecordWriteOverrun:
|
|
return "Excessive output to fixed-size record";
|
|
case IostatRecordReadOverrun:
|
|
return "Excessive input from fixed-size record";
|
|
case IostatInternalWriteOverrun:
|
|
return "Internal write overran available records";
|
|
case IostatErrorInFormat:
|
|
return "Invalid FORMAT";
|
|
case IostatErrorInKeyword:
|
|
return "Bad keyword argument value";
|
|
case IostatEndfileDirect:
|
|
return "ENDFILE on direct-access file";
|
|
case IostatEndfileUnwritable:
|
|
return "ENDFILE on read-only file";
|
|
case IostatOpenBadRecl:
|
|
return "OPEN with bad RECL= value";
|
|
case IostatOpenUnknownSize:
|
|
return "OPEN of file of unknown size";
|
|
case IostatOpenBadAppend:
|
|
return "OPEN(POSITION='APPEND') of unpositionable file";
|
|
case IostatWriteToReadOnly:
|
|
return "Attempted output to read-only file";
|
|
case IostatReadFromWriteOnly:
|
|
return "Attempted input from write-only file";
|
|
case IostatBackspaceNonSequential:
|
|
return "BACKSPACE on non-sequential file";
|
|
case IostatBackspaceAtFirstRecord:
|
|
return "BACKSPACE at first record";
|
|
case IostatRewindNonSequential:
|
|
return "REWIND on non-sequential file";
|
|
case IostatWriteAfterEndfile:
|
|
return "WRITE after ENDFILE";
|
|
default:
|
|
return nullptr;
|
|
}
|
|
}
|
|
|
|
} // namespace Fortran::runtime::io
|