From 5dfd4cdab97760ca5449996e768ec09ce00f8279 Mon Sep 17 00:00:00 2001 From: cesar Date: Sat, 31 Oct 2015 17:55:03 +0000 Subject: 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 --- gcc/fortran/openmp.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'gcc/fortran/openmp.c') 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 -- cgit v1.2.1