Fix ICE involving -fno-f2c and COMPLEX intrinsic invocation

From-SVN: r27817

Fix ICE involving -fno-f2c and COMPLEX intrinsic invocation
From-SVN: r27817
68779408 · Craig Burley · Craig Burley · 245d977a · 68779408 · 68779408
Commit 68779408 authored Jun 28, 1999 by Craig Burley Committed by Craig Burley Jun 28, 1999
Hide whitespace changes
Inline Side-by-side

Showing with 12 additions and 2 deletions

gcc/f/ChangeLog
+7 -0

gcc/f/com.c
+4 -1

gcc/f/version.c
+1 -1

No files found.
--- a/gcc/f/ChangeLog
+++ b/gcc/f/ChangeLog
+Mon Jun 28 10:43:11 1999  Craig Burley  <craig@jcb-sc.com>
+
+	* com.c (ffecom_prepare_expr_): A COMPLEX intrinsic needs
+	a temp even if -fno-f2c.
+
+	* version.c: Bump version.
+
 Mon Jun 28 21:31:35 1999  Craig Burley  <craig@jcb-sc.com>

 	* bugs.texi, news.texi: Doc upgrade to netlib libf2c as of today.

--- a/gcc/f/com.c
+++ b/gcc/f/com.c
@@ -13068,7 +13068,10 @@ ffecom_prepare_expr_ (ffebld expr, ffebld dest UNUSED)

 	      s = ffebld_symter (ffebld_left (expr));
 	      if (ffesymbol_where (s) == FFEINFO_whereCONSTANT
-		  || ! ffesymbol_is_f2c (s))
+		  || (ffesymbol_where (s) != FFEINFO_whereINTRINSIC
+		      && ! ffesymbol_is_f2c (s))
+		  || (ffesymbol_where (s) == FFEINFO_whereINTRINSIC
+		      && ! ffe_is_f2c_library ()))
 		break;
 	    }
 	  else if (ffebld_op (expr) == FFEBLD_opPOWER)

--- a/gcc/f/version.c
+++ b/gcc/f/version.c
-const char *ffe_version_string = "0.5.25 19990526 (prerelease)";
+const char *ffe_version_string = "0.5.25 19990628 (prerelease)";