1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
|
//===-- runtime/iostat.cpp --------------------------------------*- 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
//
//===----------------------------------------------------------------------===//
#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";
default:
return nullptr;
}
}
} // namespace Fortran::runtime::io
|
