blob: 9fe6d22de85de65ab029355040caac453abf8bae [file] [log] [blame]
//===-- runtime/iostat.cpp --------------------------------------*- C++ -*-===//
// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
// See for license information.
// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
#include "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 IostatEndfileNonSequential:
return "ENDFILE on non-sequential 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";
return nullptr;
} // namespace Fortran::runtime::io