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/io.c | |
| 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/io.c')
| -rw-r--r-- | gcc/fortran/io.c | 2 |
1 files changed, 1 insertions, 1 deletions
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; } |