2016-07-08 Steven G. Kargl <[email protected]>
PR fortran/68426
* simplify (gfc_simplify_spread): Adjust locus.
Index: simplify.c
===================================================================
--- simplify.c (revision 238178)
+++ simplify.c (working copy)
@@ -6183,8 +6183,7 @@ gfc_simplify_spread (gfc_expr *source, g
}
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;
}
--
Steve
