Commit d057afcd by Cesar Philippidis Committed by Cesar Philippidis

re PR bootstrap/68168 (r229609 breaks bootstrap)

	PR Bootstrap/68168

	gcc/fortran/
	* openmp.c (resolve_omp_clauses): Pass &n->where when calling
	gfc_error.

From-SVN: r229631
parent 64c7c095
2015-10-31 Cesar Philippidis <cesar@codesourcery.com>
PR Bootstrap/68168
* openmp.c (resolve_omp_clauses): Pass &n->where when calling
gfc_error.
2015-10-30 Cesar Philippidis <cesar@codesourcery.com> 2015-10-30 Cesar Philippidis <cesar@codesourcery.com>
* gfortran.h (gfc_omp_namespace): Add locus where member. * gfortran.h (gfc_omp_namespace): Add locus where member.
......
...@@ -2922,7 +2922,7 @@ resolve_omp_clauses (gfc_code *code, gfc_omp_clauses *omp_clauses, ...@@ -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)) if (!code && (!n->sym->attr.dummy || n->sym->ns != ns))
gfc_error ("Variable %qs is not a dummy argument at %L", gfc_error ("Variable %qs is not a dummy argument at %L",
n->sym->name, n->where); n->sym->name, &n->where);
continue; continue;
} }
if (n->sym->attr.flavor == FL_PROCEDURE if (n->sym->attr.flavor == FL_PROCEDURE
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment