From: Craig Burley <burley@gnu.org>
Date: Sun, 22 Feb 1998 19:40:45 +0000 (-0500)
Subject: expr.c (ffeexpr_token_arguments_): Make sure outer exprstack isn't null.
X-Git-Tag: prereleases/egcs-1.0.2-prerelease~12
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=ffaffba589a38db746b1edaac0d174fe5f1358b0;p=thirdparty%2Fgcc.git

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 174a15ffe827..d52adc711172 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 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 8f41f3db721f..fe407060932f 100644
--- 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 3cd7e62f35b5..ddc8bdf768e2 100644
--- 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