diff options
author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-07-04 01:36:31 +0000 |
---|---|---|
committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-07-04 01:36:31 +0000 |
commit | 02183b453439daa65fc2bb205afef9428f106023 (patch) | |
tree | f2a85db2fbef8080a2e4fd3757e25014aaf79285 /libgfortran/io/transfer.c | |
parent | 3b146c36e3f5c94d0b2f5b3a2a4a9667d573ad4c (diff) | |
download | gcc-02183b453439daa65fc2bb205afef9428f106023.tar.gz |
2006-07-03 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/27704
* runtime/error.c (notify_std): Pass common flags into function. Use
flags to show locus of error or warning.
* libgfortran.h: Add enum try. Add prototype for notify_std.
* io/open.c (edit_modes): Allow status="old" and add extension to
allow status="scratch"
*io/list_read.c (nml_read_obj): Update call to notify_std.
*io/io.h: Remove enum try and prototype for notify_std.
*io/transfer.c (read_sf): Update call to notify_std.
*io/format.c (parse_format_list): Update call to notify_std.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@115168 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/io/transfer.c')
-rw-r--r-- | libgfortran/io/transfer.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c index 15d403c5714..9b91536d077 100644 --- a/libgfortran/io/transfer.c +++ b/libgfortran/io/transfer.c @@ -220,7 +220,8 @@ read_sf (st_parameter_dt *dtp, int *length, int no_error) if (*q == ',') if (dtp->u.p.sf_read_comma == 1) { - notify_std (GFC_STD_GNU, "Comma in formatted numeric read."); + notify_std (&dtp->common, GFC_STD_GNU, + "Comma in formatted numeric read."); *length = n; break; } |