diff options
| author | cesar <cesar@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-10-31 17:55:03 +0000 |
|---|---|---|
| committer | cesar <cesar@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-10-31 17:55:03 +0000 |
| commit | 5dfd4cdab97760ca5449996e768ec09ce00f8279 (patch) | |
| tree | 7ed534108fdd44866e8a39fff352fc02f4f26f28 /gcc/fortran/openmp.c | |
| parent | ce2ac1629f0aa497f2fc4577e30ce15d7f3fdee6 (diff) | |
| download | gcc-5dfd4cdab97760ca5449996e768ec09ce00f8279.tar.gz | |
PR Bootstrap/68168
gcc/fortran/
* openmp.c (resolve_omp_clauses): Pass &n->where when calling
gfc_error.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@229631 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/openmp.c')
| -rw-r--r-- | gcc/fortran/openmp.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/openmp.c b/gcc/fortran/openmp.c index 3fd19b82fa1..e59139cfef6 100644 --- a/gcc/fortran/openmp.c +++ b/gcc/fortran/openmp.c @@ -2922,7 +2922,7 @@ resolve_omp_clauses (gfc_code *code, gfc_omp_clauses *omp_clauses, { if (!code && (!n->sym->attr.dummy || n->sym->ns != ns)) gfc_error ("Variable %qs is not a dummy argument at %L", - n->sym->name, n->where); + n->sym->name, &n->where); continue; } if (n->sym->attr.flavor == FL_PROCEDURE |