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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 8b180ab98d861c66b8897db947d6494c8041a45d..a7c2cef15f5b6f036f8b7dea9297497bcf1a48f8 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,10 @@
+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>
 
        * gfortran.h (gfc_omp_namespace): Add locus where member.

diff --git a/gcc/fortran/openmp.c b/gcc/fortran/openmp.c
index 3fd19b82fa14604e779e07c37274d357b7f8993c..e59139cfef698d152cabe697f75bf74f4c3c9bc4 100644 (file)
--- 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