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/format.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/format.c')
| -rw-r--r-- | libgfortran/io/format.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libgfortran/io/format.c b/libgfortran/io/format.c index 5af5c6e8bde..aa6c68bbf25 100644 --- a/libgfortran/io/format.c +++ b/libgfortran/io/format.c @@ -575,7 +575,7 @@ parse_format_list (st_parameter_dt *dtp) case FMT_DOLLAR: get_fnode (fmt, &head, &tail, FMT_DOLLAR); tail->repeat = 1; - notify_std (GFC_STD_GNU, "Extension: $ descriptor"); + notify_std (&dtp->common, GFC_STD_GNU, "Extension: $ descriptor"); goto between_desc; case FMT_T: @@ -671,7 +671,7 @@ parse_format_list (st_parameter_dt *dtp) { fmt->saved_token = t; fmt->value = 1; /* Default width */ - notify_std(GFC_STD_GNU, posint_required); + notify_std (&dtp->common, GFC_STD_GNU, posint_required); } } |