From: Craig Burley <craig@jcb-sc.com>
Date: Tue, 29 Jun 1999 02:27:42 +0000 (-0600)
Subject: com.c (ffecom_prepare_expr_): A COMPLEX intrinsic needs a temp even if -fno-f2c.
X-Git-Tag: prereleases/gcc-2.95-test~106
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=cae39e4e23a3b7b5dc449c3e64fa81f33a2ca8a1;p=thirdparty%2Fgcc.git

com.c (ffecom_prepare_expr_): A COMPLEX intrinsic needs a temp even if -fno-f2c.

h
	* com.c (ffecom_prepare_expr_): A COMPLEX intrinsic needs
	a temp even if -fno-f2c.
	* version.c: Bump version.

From-SVN: r27832
---

diff --git a/gcc/f/com.c b/gcc/f/com.c
index 9500956cc22b..c326fedaae78 100644
--- 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)