diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-05-21 12:36:41 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-05-21 12:36:41 +0000 |
| commit | e6bd3967e54965d9b07823192c9772d71ba2d10b (patch) | |
| tree | 6d0b2480705fa940efad2d1f74cddcb48d7b0511 /gcc/fortran/primary.c | |
| parent | 1336ab126a09c21576c34cc2da416d114b6cab4b (diff) | |
| download | gcc-e6bd3967e54965d9b07823192c9772d71ba2d10b.tar.gz | |
2008-05-21 Basile Starynkevitch <basile@starynkevitch.net>
MELT branch merged with trunk r135714
* gcc/basilys.h: explicit [re-]declaration of fatail_error.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@135715 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/primary.c')
| -rw-r--r-- | gcc/fortran/primary.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/fortran/primary.c b/gcc/fortran/primary.c index be5fca094b6..a9b47d8bced 100644 --- a/gcc/fortran/primary.c +++ b/gcc/fortran/primary.c @@ -992,10 +992,10 @@ got_delim: { c = next_string_char (delimiter, &ret); - if (!gfc_wide_fits_in_byte (c)) + if (!gfc_check_character_range (c, kind)) { - gfc_error ("Unimplemented feature at %C: gfortran currently only " - "supports character strings with one-byte characters"); + gfc_error ("Character '%s' in string at %C is not representable " + "in character kind %d", gfc_print_wide_char (c), kind); return MATCH_ERROR; } |