PR libfortran/34291
* io/list_read.c (read_character): When reading an unquoted string,
return if special characters that could signify the end of the namelist
read are encountered.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@130548
138bc75d-0d04-0410-961f-
82ee72b054a4
+2007-11-30 Jerry DeLisle <jvdelisle@gcc.gnu.org>
+
+ PR libfortran/34291
+ * io/list_read.c (read_character): When reading an unquoted string,
+ return if special characters that could signify the end of the namelist
+ read are encountered.
+
2007-11-29 Steven G. Kargl <kargls@comcast.net>
PR libfortran/33583
if (dtp->u.p.namelist_mode)
{
if (dtp->u.p.current_unit->flags.delim == DELIM_APOSTROPHE
- || dtp->u.p.current_unit->flags.delim == DELIM_QUOTE)
+ || dtp->u.p.current_unit->flags.delim == DELIM_QUOTE
+ || c == '&' || c == '$' || c == '/')
{
unget_char (dtp, c);
return;
goto get_string;
}
}
-
+
l_push_char (dtp, c);
+
if (c == '=' || c == '(')
{
dtp->u.p.item_count = 0;
/* The string is too long to be a valid object name so assume that it
is a string to be read in as a value. */
+ dtp->u.p.item_count = 0;
dtp->u.p.line_buffer_enabled = 1;
goto get_string;
}