OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR libfortran/35863 ([F2003] Implement ENCODING="UTF-8")

Browse Source 
2008-08-15  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/35863
	* io.c (gfc_match_open): Enable UTF-8 in checks.
	* simplify.c (gfc_simplify_selected_char_kind): Enable iso_10646.

From-SVN: r139146
This commit is contained in:
Jerry DeLisle 2008-08-16 03:36:32 +00:00
parent f179cbcab7
commit dad80a1bff
3 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

@ -1,3 +1,9 @@
2008-08-15 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/35863
* io.c (gfc_match_open): Enable UTF-8 in checks.
* simplify.c (gfc_simplify_selected_char_kind): Enable iso_10646.
2008-08-14 Janus Weil <janus@gcc.gnu.org>
PR fortran/36705

3
gcc/fortran/io.c
View File

@ -1706,8 +1706,7 @@ gfc_match_open (void)
if (open->encoding->expr_type == EXPR_CONSTANT)
{
/* TODO: Implement UTF-8 here. */
static const char * encoding[] = { "DEFAULT", NULL };
static const char * encoding[] = { "DEFAULT", "UTF-8", NULL };
if (!compare_to_allowed_values ("ENCODING", encoding, NULL, NULL,
open->encoding->value.character.string,

2
gcc/fortran/simplify.c
View File

@ -3795,6 +3795,8 @@ gfc_simplify_selected_char_kind (gfc_expr *e)
if (gfc_compare_with_Cstring (e, "ascii", false) == 0
|| gfc_compare_with_Cstring (e, "default", false) == 0)
kind = 1;
else if (gfc_compare_with_Cstring (e, "iso_10646", false) == 0)
kind = 4;
else
kind = -1;