diff options
| author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-05-02 01:33:16 +0000 |
|---|---|---|
| committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-05-02 01:33:16 +0000 |
| commit | 6d548e5ce2c30a87f96c48d5ba7fff6c7b6dcd6a (patch) | |
| tree | 82b7da964ed54742a86325c50e8da514f0edffbf /libgfortran | |
| parent | 4641e06b5e5a15dc6a8c1654ed235479f402c5a1 (diff) | |
| download | gcc-6d548e5ce2c30a87f96c48d5ba7fff6c7b6dcd6a.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@134876 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/ChangeLog | 7 | ||||
| -rw-r--r-- | libgfortran/io/open.c | 2 | ||||
| -rw-r--r-- | libgfortran/runtime/error.c | 5 |
3 files changed, 13 insertions, 1 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index dbdaa0decee..63b6ad0ddc8 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -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. diff --git a/libgfortran/io/open.c b/libgfortran/io/open.c index 4e904d37df9..83e37ee22fd 100644 --- a/libgfortran/io/open.c +++ b/libgfortran/io/open.c @@ -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} }; diff --git a/libgfortran/runtime/error.c b/libgfortran/runtime/error.c index f0a4ff2291d..8cd966fa23f 100644 --- a/libgfortran/runtime/error.c +++ b/libgfortran/runtime/error.c @@ -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; } |