From 9a70910720861a296bc094457fa66b7afa4368bf Mon Sep 17 00:00:00 2001 From: jvdelisle Date: Wed, 10 Jan 2007 04:34:34 +0000 Subject: 2007-01-09 Paul Thomas PR fortran/30408 * resolve.c (resolve_code): Use the code->expr character length directly to set length of llen. 2007-01-09 Jerry DeLisle 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. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@120632 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/fortran/resolve.c | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'gcc/fortran/resolve.c') diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 44236e576b6..05b4dc145c3 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -5088,10 +5088,11 @@ resolve_code (gfc_code * code, gfc_namespace * ns) && 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; -- cgit v1.2.3