diff options
| author | Steven G. Kargl <kargl@gcc.gnu.org> | 2016-08-22 18:18:14 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2016-08-22 18:18:14 +0000 |
| commit | 30364ce673723a466def350c7378ddd3cc0c6c87 (patch) | |
| tree | be0b814942e26b4f91ef7f4380d3f9da39ba8c06 /gcc/fortran | |
| parent | ad7a5a8fc58e29b259f8a746899772627a493e9e (diff) | |
| download | gcc-30364ce673723a466def350c7378ddd3cc0c6c87.zip gcc-30364ce673723a466def350c7378ddd3cc0c6c87.tar.gz gcc-30364ce673723a466def350c7378ddd3cc0c6c87.tar.bz2 | |
re PR fortran/61318 (Improve error diagnostic by pointing to the expression and not to declared-at of a USE-associated variable)
2016-08-22 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/61318
* interface.c (compare_parameter): Use better locus for error message.
2016-08-22 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/61318
* gfortran.dg/pr61318.f90: New test.
From-SVN: r239667
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/interface.c | 2 |
2 files changed, 6 insertions, 2 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 900d915..a7be7c6 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,10 +1,14 @@ 2016-08-22 Steven G. Kargl <kargl@gcc.gnu.org> + PR fortran/61318 + * interface.c (compare_parameter): Use better locus for error message. + +2016-08-22 Steven G. Kargl <kargl@gcc.gnu.org> + PR fortran/77260 * gcc/fortran/trans-decl.c (generate_local_decl): Suppress warning for unused variable if symbol is entry point. - 2016-08-19 Joseph Myers <joseph@codesourcery.com> PR c/32187 diff --git a/gcc/fortran/interface.c b/gcc/fortran/interface.c index 5bd1279..b894b2f 100644 --- a/gcc/fortran/interface.c +++ b/gcc/fortran/interface.c @@ -2146,7 +2146,7 @@ compare_parameter (gfc_symbol *formal, gfc_expr *actual, { if (where) gfc_error ("Type mismatch in argument %qs at %L; passed %s to %s", - formal->name, &actual->where, gfc_typename (&actual->ts), + formal->name, where, gfc_typename (&actual->ts), gfc_typename (&formal->ts)); return 0; } |