From: kargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Fri, 8 Jul 2016 22:24:44 +0000 (+0000)
Subject: 2016-07-08  Steven G. Kargl  <kargl@gcc.gnu.org>
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=ab2a022d563763f32451b1234a1b3cad24b0bbac;p=thirdparty%2Fgcc.git

2016-07-08  Steven G. Kargl  <kargl@gcc.gnu.org>

	PR fortran/68426
	* simplify (gfc_simplify_spread): Adjust locus.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@238186 138bc75d-0d04-0410-961f-82ee72b054a4
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 4faf79780abf..61bd1afcbd4b 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2016-07-08  Steven G. Kargl  <kargl@gcc.gnu.org>
+
+	PR fortran/68426
+	* simplify (gfc_simplify_spread): Adjust locus.
+
 2016-07-08  Cesar Philippidis  <cesar@codesourcery.com>
 
 	* parse.c (matcha): Define.
diff --git a/gcc/fortran/simplify.c b/gcc/fortran/simplify.c
index 4c8bb830808a..95a8d1080a4c 100644
--- a/gcc/fortran/simplify.c
+++ b/gcc/fortran/simplify.c
@@ -6183,8 +6183,7 @@ gfc_simplify_spread (gfc_expr *source, gfc_expr *dim_expr, gfc_expr *ncopies_exp
     }
   else
     {
-      gfc_error ("Simplification of SPREAD at %L not yet implemented",
-		 &source->where);
+      gfc_error ("Simplification of SPREAD at %C not yet implemented");
       return &gfc_bad_expr;
     }