Fix ICE involving -fno-f2c and COMPLEX intrinsic invocation

From-SVN: r27817

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index f94aa6ff08b3b61d76c5e21c4bf7065fc46246f2..1838e2d56d713ed90510a1e5e80c1ad2f8dbbd85 100644 (file)
--- a/gcc/f/ChangeLog
+++ b/gcc/f/ChangeLog
@@ -1,3 +1,10 @@
+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.

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)

diff --git a/gcc/f/version.c b/gcc/f/version.c
index 9b211b1074b91e49ae209d31bc20f9a91f26e96f..cba4229e05d5992d5c383bb03b06f9f7d2a6aa99 100644 (file)
--- a/gcc/f/version.c
+++ b/gcc/f/version.c
@@ -1 +1 @@
-const char *ffe_version_string = "0.5.25 19990526 (prerelease)";
+const char *ffe_version_string = "0.5.25 19990628 (prerelease)";