diff options
| -rw-r--r-- | gcc/f/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/f/expr.c | 1 | ||||
| -rw-r--r-- | gcc/f/news.texi | 5 |
3 files changed, 11 insertions, 0 deletions
diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog index 8ddfeb5..94031d8 100644 --- a/gcc/f/ChangeLog +++ b/gcc/f/ChangeLog @@ -1,3 +1,8 @@ +Fri Feb 20 12:45:53 1998 Craig Burley <burley@gnu.org> + + * expr.c (ffeexpr_token_arguments_): Make sure + outer exprstack isn't null. + Fri Feb 20 10:11:20 1998 Craig Burley <burley@gnu.org> * Make-lang.in (f77.install-info): Fix typo in script. 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) diff --git a/gcc/f/news.texi b/gcc/f/news.texi index 3b9ece3..2853dfd 100644 --- a/gcc/f/news.texi +++ b/gcc/f/news.texi @@ -27,6 +27,10 @@ involve a combination of these elements. @heading In 0.5.22: @itemize @bullet @item +Fix a compiler crash on statements such as +@samp{PRINT *, (REAL(Z(I)),I=1,2)}, where +@samp{Z} is @code{DOUBLE COMPLEX}. + @item Improve diagnostic messages from @code{libf2c} so it is more likely that the printing of the @@ -47,6 +51,7 @@ is a constant. This provides a cleaner run-time diagnostic as provided by @code{libf2c} for statements like @samp{PRINT '(I1', 42}. +@item Fix @code{SIGNAL} intrinsic so it offers portable support for 64-bit systems (such as Digital Alphas running GNU/Linux). |