flang/runtime/iostat.cpp

   1 //===-- runtime/iostat.cpp ------------------------------------------------===//
   2 //
   3 // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
   4 // See https://llvm.org/LICENSE.txt for license information.
   5 // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
   6 //
   7 //===----------------------------------------------------------------------===//
   8
   9 #include "flang/Runtime/iostat.h"
  10
  11 namespace Fortran::runtime::io {
  12 RT_OFFLOAD_API_GROUP_BEGIN
  13
  14 const char *IostatErrorString(int iostat) {
  15   switch (iostat) {
  16   case IostatOk:
  17     return "No error";
  18   case IostatEnd:
  19     return "End of file during input";
  20   case IostatEor:
  21     return "End of record during non-advancing input";
  22   case IostatUnflushable:
  23     return "FLUSH not possible";
  24   case IostatInquireInternalUnit:
  25     return "INQUIRE on internal unit";
  26   case IostatGenericError:
  27     return "I/O error"; // dummy value, there's always a message
  28   case IostatRecordWriteOverrun:
  29     return "Excessive output to fixed-size record";
  30   case IostatRecordReadOverrun:
  31     return "Excessive input from fixed-size record";
  32   case IostatInternalWriteOverrun:
  33     return "Internal write overran available records";
  34   case IostatErrorInFormat:
  35     return "Bad FORMAT";
  36   case IostatErrorInKeyword:
  37     return "Bad keyword argument value";
  38   case IostatEndfileDirect:
  39     return "ENDFILE on direct-access file";
  40   case IostatEndfileUnwritable:
  41     return "ENDFILE on read-only file";
  42   case IostatOpenBadRecl:
  43     return "OPEN with bad RECL= value";
  44   case IostatOpenUnknownSize:
  45     return "OPEN of file of unknown size";
  46   case IostatOpenBadAppend:
  47     return "OPEN(POSITION='APPEND') of unpositionable file";
  48   case IostatWriteToReadOnly:
  49     return "Attempted output to read-only file";
  50   case IostatReadFromWriteOnly:
  51     return "Attempted input from write-only file";
  52   case IostatBackspaceNonSequential:
  53     return "BACKSPACE on non-sequential file";
  54   case IostatBackspaceAtFirstRecord:
  55     return "BACKSPACE at first record";
  56   case IostatRewindNonSequential:
  57     return "REWIND on non-sequential file";
  58   case IostatWriteAfterEndfile:
  59     return "WRITE after ENDFILE";
  60   case IostatFormattedIoOnUnformattedUnit:
  61     return "Formatted I/O on unformatted file";
  62   case IostatUnformattedIoOnFormattedUnit:
  63     return "Unformatted I/O on formatted file";
  64   case IostatListIoOnDirectAccessUnit:
  65     return "List-directed or NAMELIST I/O on direct-access file";
  66   case IostatUnformattedChildOnFormattedParent:
  67     return "Unformatted child I/O on formatted parent unit";
  68   case IostatFormattedChildOnUnformattedParent:
  69     return "Formatted child I/O on unformatted parent unit";
  70   case IostatChildInputFromOutputParent:
  71     return "Child input from output parent unit";
  72   case IostatChildOutputToInputParent:
  73     return "Child output to input parent unit";
  74   case IostatShortRead:
  75     return "Read from external unit returned insufficient data";
  76   case IostatMissingTerminator:
  77     return "Sequential record missing its terminator";
  78   case IostatBadUnformattedRecord:
  79     return "Erroneous unformatted sequential file record structure";
  80   case IostatUTF8Decoding:
  81     return "UTF-8 decoding error";
  82   case IostatUnitOverflow:
  83     return "UNIT number is out of range";
  84   case IostatBadRealInput:
  85     return "Bad REAL input value";
  86   case IostatBadScaleFactor:
  87     return "Bad REAL output scale factor (kP)";
  88   case IostatBadAsynchronous:
  89     return "READ/WRITE(ASYNCHRONOUS='YES') on unit without "
  90            "OPEN(ASYNCHRONOUS='YES')";
  91   case IostatBadWaitUnit:
  92     return "WAIT(UNIT=) for a bad or unconnected unit number";
  93   case IostatBOZInputOverflow:
  94     return "B/O/Z input value overflows variable";
  95   case IostatIntegerInputOverflow:
  96     return "Integer input value overflows variable";
  97   case IostatRealInputOverflow:
  98     return "Real or complex input value overflows type";
  99   case IostatCannotReposition:
 100     return "Attempt to reposition a unit which is connected to a file that can "
 101            "only be processed sequentially";
 102   case IostatOpenAlreadyConnected:
 103     return "OPEN of file already connected to another unit";
 104   case IostatBadWaitId:
 105     return "WAIT(ID=nonzero) for an ID value that is not a pending operation";
 106   case IostatTooManyAsyncOps:
 107     return "Too many asynchronous operations pending on unit";
 108   case IostatBadBackspaceUnit:
 109     return "BACKSPACE on unconnected unit";
 110   case IostatBadUnitNumber:
 111     return "Negative unit number is not allowed";
 112   case IostatBadFlushUnit:
 113     return "FLUSH attempted on a bad or unconnected unit number";
 114   case IostatBadOpOnChildUnit:
 115     return "Impermissible I/O statement on child I/O unit";
 116   case IostatBadNewUnit:
 117     return "NEWUNIT= without FILE= or STATUS='SCRATCH'";
 118   case IostatBadListDirectedInputSeparator:
 119     return "List-directed input value has trailing unused characters";
 120   case IostatNonExternalDefinedUnformattedIo:
 121     return "Defined unformatted I/O without an external unit";
 122   default:
 123     return nullptr;
 124   }
 125 }
 126
 127 RT_OFFLOAD_API_GROUP_END
 128
 129 } // namespace Fortran::runtime::io