From 98d4439c040d801270efbb7244ade003538a6414 Mon Sep 17 00:00:00 2001 From: "Steven G. Kargl" Date: Fri, 8 Jul 2016 22:24:44 +0000 Subject: [PATCH] re PR fortran/68426 (Simplification of SPREAD with a derived type element is unimplemented) 2016-07-08 Steven G. Kargl PR fortran/68426 * simplify (gfc_simplify_spread): Adjust locus. From-SVN: r238186 --- gcc/fortran/ChangeLog | 5 +++++ gcc/fortran/simplify.c | 3 +-- 2 files changed, 6 insertions(+), 2 deletions(-) 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; }