From 66faed764371fe6385d54d6e7dc0a9cb0fa5c67f Mon Sep 17 00:00:00 2001 From: Daniel Franke Date: Wed, 19 May 2010 08:55:26 -0400 Subject: re PR fortran/38404 (Warning message identifies incorrect line) gcc/fortran/: 2010-05-19 Daniel Franke PR fortran/38404 * primary.c (match_string_constant): Move start_locus just inside the string. * data.c (create_character_intializer): Clarified truncation warning. gcc/testsuite/: 2010-05-19 Daniel Franke PR fortran/38404 * gfortran.dg/data_char_1.f90: Updated warning message. * gfortran.dg/data_array_6.f: New. From-SVN: r159561 --- gcc/fortran/data.c | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'gcc/fortran/data.c') diff --git a/gcc/fortran/data.c b/gcc/fortran/data.c index c217e1c..6561cdc 100644 --- a/gcc/fortran/data.c +++ b/gcc/fortran/data.c @@ -154,9 +154,10 @@ create_character_intializer (gfc_expr *init, gfc_typespec *ts, if (len > end - start) { + gfc_warning_now ("Initialization string starting at %L was " + "truncated to fit the variable (%d/%d)", + &rvalue->where, end - start, len); len = end - start; - gfc_warning_now ("initialization string truncated to match variable " - "at %L", &rvalue->where); } if (rvalue->ts.type == BT_HOLLERITH) -- cgit v1.1