1 //===-- runtime/namelist.cpp ----------------------------------------------===//
9 #include "namelist.h"
22 // NAMELIST input, plus a byte for NUL termination.
121           "Identifier '%s...' in NAMELIST input group is too long", buffer);  in GetLowerCaseName()
147         "NAMELIST input subscript value overflow");  in GetSubscriptValue()
183           "Too many subscripts for rank-%d NAMELIST group item '%s'",  in HandleSubscripts()
190           handler.SignalError("Subscript %jd out of range %jd..%jd in NAMELIST "  in HandleSubscripts()
210                 "NAMELIST group item '%s' dimension %d",  in HandleSubscripts()
249             "Bad subscripts for NAMELIST input group item '%s'", name);  in HandleSubscripts()
253           "Bad subscripts (missing ')') for NAMELIST input group item '%s'",  in HandleSubscripts()
262   // Support the near-universal extension of NAMELIST input into a  in StorageSequenceExtension()
335         "Bad substring bounds for NAMELIST input group item '%s'", name);  in HandleSubstring()
338         "Bad substring (missing ')') for NAMELIST input group item '%s'", name);  in HandleSubstring()
378                 "NAMELIST component reference '%%%s' of input group "  in HandleComponent()
394             "NAMELIST component reference '%%%s' of input group item %s is not "  in HandleComponent()
399       handler.Crash("Derived type object '%s' in NAMELIST is missing its "  in HandleComponent()
403       handler.SignalError("NAMELIST component reference '%%%s' of input group "  in HandleComponent()
408     handler.SignalError("NAMELIST component reference of input group item %s "  in HandleComponent()
415 // Advance to the terminal '/' of a namelist group or leading '&'/'$'
447   // Find this namelist group's header in the input  in IODEF()
457       // Extension: comment lines without ! before namelist groups  in IODEF()
470           "NAMELIST input group does not begin with '&' or '$' (at '%lc')",  in IODEF()
476       handler.SignalError("NAMELIST input group has no name");  in IODEF()
492           "NAMELIST input group '%s' was not terminated at '%c'",  in IODEF()
504           "'%s' is not an item in NAMELIST group '%s'", name, group.groupName);  in IODEF()
535                                 "NAMELIST group '%s'",  in IODEF()
563       handler.SignalError("No '=' found after item '%s' in NAMELIST group '%s'",  in IODEF()
593         "No '/' found after NAMELIST group '%s'", group.groupName);  in IODEF()