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 9500956cc22b104c514b7b20a5e9625f61cefab9..c326fedaae785fe8fe5f3db4044780df03dadc8e 100644 (file)
--- 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)