Mercurial > hg > CbC > CbC_llvm
diff flang/runtime/iostat.cpp @ 221:79ff65ed7e25
LLVM12 Original
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Tue, 15 Jun 2021 19:15:29 +0900 |
parents | 0572611fdcc8 |
children | c4bab56944e8 |
line wrap: on
line diff
--- a/flang/runtime/iostat.cpp Tue Jun 15 19:13:43 2021 +0900 +++ b/flang/runtime/iostat.cpp Tue Jun 15 19:15:29 2021 +0900 @@ -33,6 +33,26 @@ 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; }