re PR fortran/79841 (Inconsistent diagnostics in fortran/openmp.c, function check_sym...

2017-03-03  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/79841
	* openmp.c (check_symbol_not_pointer): Adjust diagnostic.

From-SVN: r245891

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 3e4fde1676408b61f2b27b472d57aaf75c90c947..8321cea619b089516299ba86583da9cc64ce5a4e 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2017-03-03  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+       PR fortran/79841
+       * openmp.c (check_symbol_not_pointer): Adjust diagnostic.
+
 2017-02-28  Paul Thomas  <pault@gcc.gnu.org>
 
        PR fortran/79739

diff --git a/gcc/fortran/openmp.c b/gcc/fortran/openmp.c
index 3ca23493251f281c31726219a9b96a7da44078de..753dc5ada592e321ba1ef2862ed8d08b2d2aa13e 100644 (file)
--- a/gcc/fortran/openmp.c
+++ b/gcc/fortran/openmp.c
@@ -3732,7 +3732,7 @@ check_symbol_not_pointer (gfc_symbol *sym, locus loc, const char *name)
     gfc_error ("POINTER object %qs of derived type in %s clause at %L",
               sym->name, name, &loc);
   if (sym->ts.type == BT_DERIVED && sym->attr.cray_pointer)
-    gfc_error ("Cray pointer object of derived type %qs in %s clause at %L",
+    gfc_error ("Cray pointer object %qs of derived type in %s clause at %L",
               sym->name, name, &loc);
   if (sym->ts.type == BT_DERIVED && sym->attr.cray_pointee)
     gfc_error ("Cray pointee object of derived type %qs in %s clause at %L",