diff options
| author | Steven G. Kargl <kargl@gcc.gnu.org> | 2016-07-30 18:18:49 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2016-07-30 18:18:49 +0000 |
| commit | 712dff3172d503c496366d148c8e3fe018b584a5 (patch) | |
| tree | a3a0ed6a9fcbc3e86119faa3baa064ae94db7fbe /gcc/fortran | |
| parent | fb42421ef060d7bc2e7f954ce12b0fdc83e57ee6 (diff) | |
| download | gcc-712dff3172d503c496366d148c8e3fe018b584a5.zip gcc-712dff3172d503c496366d148c8e3fe018b584a5.tar.gz gcc-712dff3172d503c496366d148c8e3fe018b584a5.tar.bz2 | |
re PR fortran/70006 (Duplicate errors "label not defined")
2016-07-30 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/70006
* io.c (gfc_resolve_dt): Use correct locus.
* resolve.c (resolve_branch): Ditto.
2016-07-30 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/70006
* gfortran.dg/pr70006.f90: New test.
From-SVN: r238905
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/io.c | 2 | ||||
| -rw-r--r-- | gcc/fortran/resolve.c | 2 |
3 files changed, 8 insertions, 2 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 775276b..3c137ee 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,5 +1,11 @@ 2016-07-30 Steven G. Kargl <kargl@gcc.gnu.org> + PR fortran/70006 + * io.c (gfc_resolve_dt): Use correct locus. + * resolve.c (resolve_branch): Ditto. + +2016-07-30 Steven G. Kargl <kargl@gcc.gnu.org> + PR fortran/71730 * decl.c (char_len_param_value): Check return value of gfc_reduce_init_expr(). diff --git a/gcc/fortran/io.c b/gcc/fortran/io.c index 7c648e9..0881261 100644 --- a/gcc/fortran/io.c +++ b/gcc/fortran/io.c @@ -3052,7 +3052,7 @@ gfc_resolve_dt (gfc_dt *dt, locus *loc) && dt->format_label->defined == ST_LABEL_UNKNOWN) { gfc_error ("FORMAT label %d at %L not defined", dt->format_label->value, - &dt->format_label->where); + loc); return false; } diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 23da9ac..e0a688a 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -8966,7 +8966,7 @@ resolve_branch (gfc_st_label *label, gfc_code *code) if (label->defined == ST_LABEL_UNKNOWN) { gfc_error ("Label %d referenced at %L is never defined", label->value, - &label->where); + &code->loc); return; } |