com.c (ffecom_expr_power_integer_): Adjust expand_start_stmt_expr() invocation.

* com.c (ffecom_expr_power_integer_): Adjust
expand_start_stmt_expr() invocation.

From-SVN: r47609

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index e9728d336fcf1ea3c6d897beef889dda9c02e128..766ea98dcbf960a29d775cba569312fa14231c8d 100644 (file)
--- a/gcc/f/ChangeLog
+++ b/gcc/f/ChangeLog
@@ -1,3 +1,8 @@
+Tue Dec  4 08:28:42 2001  Alexandre Oliva  <aoliva@redhat.com>
+
+       * com.c (ffecom_expr_power_integer_): Adjust
+       expand_start_stmt_expr() invocation.
+
 Mon Dec  3 18:56:04 2001  Neil Booth  <neil@daikokuya.demon.co.uk>
 
        * com.c: Remove leading capital from diagnostic messages, as

diff --git a/gcc/f/com.c b/gcc/f/com.c
index 64aa8ffb389cfdd41de4ca6634bb2d783014687a..5916be769a2ee68e1bb593ba0194c2cfc14d4ce9 100644 (file)
--- a/gcc/f/com.c
+++ b/gcc/f/com.c
@@ -5584,7 +5584,7 @@ ffecom_expr_power_integer_ (ffebld expr)
     basetypeof_l_is_int
       = build_int_2 ((TREE_CODE (ltype) == INTEGER_TYPE), 0);
 
-    se = expand_start_stmt_expr ();
+    se = expand_start_stmt_expr (1);
 
     ffecom_start_compstmt ();