re PR fortran/68426 (Simplification of SPREAD with a derived type element is unimplem...

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 4faf79780abf33021568695903606d39a0c06af6..61bd1afcbd4ba59457540561ea8cb02ccad3aa10 100644 (file)
--- 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 4c8bb830808aa8722ffa79291a4d4cab8770b54e..95a8d1080a4c7373d48b52d3a8844ffe06917bdc 100644 (file)
--- 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;
     }