gcc/libgfortran/io
Jakub Jelinek 24722ea98e list_read.c (snprintf): Define if HAVE_SNPRINTF isn't defined.
* io/list_read.c (snprintf): Define if HAVE_SNPRINTF isn't defined.
	(nml_read_obj): Add nml_err_msg_size argument.  Pass it down to
	recursive call.  Use snprintf instead of sprintf when %s nl->var_name
	is used.
	(nml_get_obj_data): Add nml_err_msg_size argument.  Pass it down to
	nml_read_obj call.  Use snprintf instead of sprintf when %s
	nl->var_name is used.  Pass nml_err_msg to nml_parse_qualifier instead
	of parse_err_msg array.  Append " for namelist variable " and
	nl->var_name to it.
	(namelist_read): Increase size of nml_err_msg array to 200.  Pass
	sizeof nml_err_msg as extra argument to nml_get_obj_data.

	* gfortran.dg/namelist_47.f90: New test.

From-SVN: r134132
2008-04-09 11:00:31 +02:00
..
close.c
file_pos.c
format.c
inquire.c PR fortran/25829 28655 2008-04-07 22:05:52 +00:00
intrinsics.c
io.h PR fortran/25829 28655 2008-04-07 22:05:52 +00:00
list_read.c list_read.c (snprintf): Define if HAVE_SNPRINTF isn't defined. 2008-04-09 11:00:31 +02:00
lock.c
open.c PR fortran/25829 28655 2008-04-07 22:05:52 +00:00
read.c PR fortran/25829 28655 2008-04-07 22:05:52 +00:00
size_from_kind.c
transfer.c PR fortran/25829 28655 2008-04-07 22:05:52 +00:00
unit.c PR fortran/25829 28655 2008-04-07 22:05:52 +00:00
unix.c
write_float.def
write.c PR fortran/25829 28655 2008-04-07 22:05:52 +00:00