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