diff options
| author | Craig Burley <burley@gnu.org> | 1998-02-22 14:39:08 -0500 |
|---|---|---|
| committer | Jeff Law <law@gcc.gnu.org> | 1998-02-22 12:39:08 -0700 |
| commit | b50fa387cb36938fe364ce6da63230cec10cfc36 (patch) | |
| tree | a74be17cefff3c94c91cfff1320bacb66a9caed5 /gcc/f/expr.c | |
| parent | a52ad720f49dfcad889aa34f6c0df5523a2de8a6 (diff) | |
| download | gcc-b50fa387cb36938fe364ce6da63230cec10cfc36.zip gcc-b50fa387cb36938fe364ce6da63230cec10cfc36.tar.gz gcc-b50fa387cb36938fe364ce6da63230cec10cfc36.tar.bz2 | |
expr.c (ffeexpr_token_arguments_): Make sure outer exprstack isn't null.
* expr.c (ffeexpr_token_arguments_): Make sure
outer exprstack isn't null.
From-SVN: r18190
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) |