mirror of
git://gcc.gnu.org/git/gcc.git
synced 2025-01-15 23:06:01 +08:00
re PR libfortran/24794 (problem with namelist input of character array)
2005-11-22 Jerry DeLisle <jvdelisle@gcc.gnu.org> PR libgfortran/24794 * io/list_read.c (read_character): Add auto completion on short namelist reads. From-SVN: r107394
This commit is contained in:
parent
79a6d9b7ff
commit
c4a108fd8e
@ -1,3 +1,9 @@
|
|||||||
|
2005-11-22 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
||||||
|
|
||||||
|
PR libgfortran/24794
|
||||||
|
* io/list_read.c (read_character): Add auto completion on short
|
||||||
|
namelist reads.
|
||||||
|
|
||||||
2005-11-21 David Edelsohn <edelsohn@gnu.org>
|
2005-11-21 David Edelsohn <edelsohn@gnu.org>
|
||||||
|
|
||||||
* io/io.h (_LARGE_FILES): Undefine for AIX.
|
* io/io.h (_LARGE_FILES): Undefine for AIX.
|
||||||
|
@ -704,6 +704,11 @@ read_character (st_parameter_dt *dtp, int length __attribute__ ((unused)))
|
|||||||
goto get_string;
|
goto get_string;
|
||||||
|
|
||||||
default:
|
default:
|
||||||
|
if (dtp->u.p.namelist_mode)
|
||||||
|
{
|
||||||
|
unget_char (dtp,c);
|
||||||
|
return;
|
||||||
|
}
|
||||||
push_char (dtp, c);
|
push_char (dtp, c);
|
||||||
goto get_string;
|
goto get_string;
|
||||||
}
|
}
|
||||||
|
Loading…
Reference in New Issue
Block a user