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 + + PR fortran/68426 + * simplify (gfc_simplify_spread): Adjust locus. + 2016-07-08 Cesar Philippidis * 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; }