diff options
Diffstat (limited to 'gcc/f/expr.c')
| -rw-r--r-- | gcc/f/expr.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/f/expr.c b/gcc/f/expr.c index 4d618db..8dbab2f 100644 --- a/gcc/f/expr.c +++ b/gcc/f/expr.c @@ -18540,6 +18540,7 @@ ffeexpr_token_arguments_ (ffelexToken ft, ffebld expr, ffelexToken t) only if next token isn't the close-paren for REAL(me). */ if ((ffeexpr_stack_->previous != NULL) + && (ffeexpr_stack_->previous->exprstack != NULL) && (ffeexpr_stack_->previous->exprstack->type == FFEEXPR_exprtypeOPERAND_) && ((reduced = ffeexpr_stack_->previous->exprstack->u.operand) != NULL) && (ffebld_op (reduced) == FFEBLD_opSYMTER) |