mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-01-10 07:34:28 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR libfortran/36094 (Runtime error show_locus not working correctly)

Browse Source 
2008-05-01  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libfortran/36094
	* runtime/error.c (show_locus): Provide modified error message when
	filename has not yet been associated with a unit number.
	* io/open.c (encoding_opt[]): Comment out "utf-8" option and add TODO.

From-SVN: r134876
This commit is contained in:
Jerry DeLisle 2008-05-02 01:33:16 +00:00
parent 7cbb32e769
commit c26cc9a6a6
3 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
libgfortran/ChangeLog
View File

@ -1,3 +1,10 @@
2008-05-01 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/36094
* runtime/error.c (show_locus): Provide modified error message when
filename has not yet been associated with a unit number.
* io/open.c (encoding_opt[]): Comment out "utf-8" option and add TODO.
2008-04-30 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
* intrinsics/selected_char_kind.c: New file.

2
libgfortran/io/open.c
View File

@ -107,7 +107,7 @@ static const st_option decimal_opt[] =
static const st_option encoding_opt[] =
{
{ "utf-8", ENCODING_UTF8},
/* TODO { "utf-8", ENCODING_UTF8}, */
{ "default", ENCODING_DEFAULT},
{ NULL, 0}
};

5
libgfortran/runtime/error.c
View File

@ -202,6 +202,11 @@ show_locus (st_parameter_common *cmp)
(int) cmp->line, cmp->filename, cmp->unit, filename);
free_mem (filename);
}
else
{
st_printf ("At line %d of file %s (unit = %d)\n",
(int) cmp->line, cmp->filename, cmp->unit);
}
return;
}