diff options
Diffstat (limited to 'gcc/fortran/array.c')
| -rw-r--r-- | gcc/fortran/array.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/fortran/array.c b/gcc/fortran/array.c index 46c7425..4d3345f 100644 --- a/gcc/fortran/array.c +++ b/gcc/fortran/array.c @@ -607,7 +607,8 @@ gfc_append_constructor (gfc_expr *base, gfc_expr *new_expr) c->expr = new_expr; - if (new_expr->ts.type != base->ts.type || new_expr->ts.kind != base->ts.kind) + if (new_expr + && (new_expr->ts.type != base->ts.type || new_expr->ts.kind != base->ts.kind)) gfc_internal_error ("gfc_append_constructor(): New node has wrong kind"); } |