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: r18191

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index 174a15ffe82775b8b7533de59b379c1bf6ed4589..d52adc7111725e1270161de32018980abbc05106 100644 (file)
--- 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 Oct 10 13:00:48 1997  Craig Burley  <burley@gnu.ai.mit.edu>
 
        * ste.c (ffeste_begin_iterdo_): Fix loop setup so iteration

diff --git a/gcc/f/expr.c b/gcc/f/expr.c
index 8f41f3db721f9a7ae75fc09994d941d2f76a8675..fe407060932f9bd0822fd471047040b6fe31124d 100644 (file)
--- a/gcc/f/expr.c
+++ b/gcc/f/expr.c
@@ -18530,6 +18530,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 3cd7e62f35b5bf7f34ac1b54d4052937a7d8ffcb..ddc8bdf768e216b4cdae90d0f151c816436ac530 100644 (file)
--- a/gcc/f/news.texi
+++ b/gcc/f/news.texi
@@ -26,6 +26,11 @@ 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
 Fix @code{g77} version of @code{libf2c} so it no longer
 produces a spurious @samp{I/O recursion} diagnostic at run time