From: Steven G. Kargl <kargl@gcc.gnu.org>
Date: Fri, 8 Jul 2016 22:24:44 +0000 (+0000)
Subject: re PR fortran/68426 (Simplification of SPREAD with a derived type element is unimplem... 
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=98d4439c040d801270efbb7244ade003538a6414;p=gcc.git

re PR fortran/68426 (Simplification of SPREAD with a derived type element is unimplemented)

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

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

From-SVN: r238186
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 4faf79780ab..61bd1afcbd4 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 4c8bb830808..95a8d1080a4 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;
     }