+2007-01-09 Paul Thomas <pault@gcc.gnu.org>
+
+ PR fortran/30408
+ * resolve.c (resolve_code): Use the code->expr character length
+ directly to set length of llen.
+
+2007-01-09 Jerry DeLisle <jvdelisle@gcc.gnu.org>
+
+ PR fortran/30408
+ * lang.opt: Add Wcharacter_truncation option.
+ * options.c (gfc_init_options): Initialize
+ gfc_option.warn_character_truncation to zero.
+ (gfc_handle_option): Add case for OPT_Wcharacter_truncation.
+
2007-01-08 Steven G. Kargl <kargl@gcc.gnu.org>
* interface.c, intrinsic.c, gfortranspec.c, io.c, f95-lang.c,
iresolve.c, match.c: Update Copyright years. Whitespace.
-
2007-01-08 Richard Guenther <rguenther@suse.de>
* trans-io.c (transfer_array_desc): Use build_int_cst instead
Fortran
Warn about missing ampersand in continued character constants
+Wcharacter-truncation
+Fortran
+Warn about truncated character expressions
+
Wconversion
Fortran
Warn about implicit conversion
gfc_option.warn_aliasing = 0;
gfc_option.warn_ampersand = 0;
+ gfc_option.warn_character_truncation = 0;
gfc_option.warn_conversion = 0;
gfc_option.warn_implicit_interface = 0;
gfc_option.warn_line_truncation = 0;
gfc_option.warn_ampersand = value;
break;
+ case OPT_Wcharacter_truncation:
+ gfc_option.warn_character_truncation = value;
+ break;
+
case OPT_Wconversion:
gfc_option.warn_conversion = value;
break;
&& gfc_option.warn_character_truncation)
{
int llen = 0, rlen = 0;
- gfc_symbol *sym;
- sym = code->expr->symtree->n.sym;
- if (sym->ts.cl->length->expr_type == EXPR_CONSTANT)
- llen = mpz_get_si (sym->ts.cl->length->value.integer);
+
+ if (code->expr->ts.cl != NULL
+ && code->expr->ts.cl->length != NULL
+ && code->expr->ts.cl->length->expr_type == EXPR_CONSTANT)
+ llen = mpz_get_si (code->expr->ts.cl->length->value.integer);
if (code->expr2->expr_type == EXPR_CONSTANT)
rlen = code->expr2->value.character.length;