From d057afcdca7fedd93f85a7f2e8af06ed156c51bf Mon Sep 17 00:00:00 2001 From: Cesar Philippidis Date: Sat, 31 Oct 2015 10:55:03 -0700 Subject: [PATCH] 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 --- gcc/fortran/ChangeLog | 7 +++++++ gcc/fortran/openmp.c | 2 +- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 8b180ab98d8..a7c2cef15f5 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,10 @@ +2015-10-31 Cesar Philippidis + + PR Bootstrap/68168 + + * openmp.c (resolve_omp_clauses): Pass &n->where when calling + gfc_error. + 2015-10-30 Cesar Philippidis * gfortran.h (gfc_omp_namespace): Add locus where member. 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 -- 2.30.2