diff options
Diffstat (limited to 'gcc-4.6/gcc/fortran/interface.c')
| -rw-r--r-- | gcc-4.6/gcc/fortran/interface.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc-4.6/gcc/fortran/interface.c b/gcc-4.6/gcc/fortran/interface.c index d68310b..eece7f4 100644 --- a/gcc-4.6/gcc/fortran/interface.c +++ b/gcc-4.6/gcc/fortran/interface.c @@ -1838,7 +1838,7 @@ get_expr_storage_size (gfc_expr *e) { /* The string length is the substring length. Set now to full string length. */ - if (ref->u.ss.length == NULL + if (!ref->u.ss.length || !ref->u.ss.length->length || ref->u.ss.length->length->expr_type != EXPR_CONSTANT) return 0; |