* com.c (ffecom_init_0): Use `dconsthalf'.

From-SVN: r69991

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index 1333be2d7212311c124878062c6fbc1cb2c8d104..99ffa7f4754f83c3fbd9d047b4923170826d8b4a 100644 (file)
--- a/gcc/f/ChangeLog
+++ b/gcc/f/ChangeLog
@@ -1,3 +1,7 @@
+Thu Jul 31 01:47:27 2003  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
+
+       * com.c (ffecom_init_0): Use `dconsthalf'.
+
 Sat Jul 19 12:03:03 2003  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
 
        * com.c data.c expr.c fini.c g77spec.c global.c lab.c lex.c name.c

diff --git a/gcc/f/com.c b/gcc/f/com.c
index aec04b6c53816283e736ce3671bd772a70a828ee..a6a9bf9061bbac2629079348871903d095452b51 100644 (file)
--- a/gcc/f/com.c
+++ b/gcc/f/com.c
@@ -11818,13 +11818,8 @@ ffecom_init_0 (void)
 
   ffecom_float_zero_ = build_real (float_type_node, dconst0);
   ffecom_double_zero_ = build_real (double_type_node, dconst0);
-  {
-    REAL_VALUE_TYPE point_5;
-
-    REAL_ARITHMETIC (point_5, RDIV_EXPR, dconst1, dconst2);
-    ffecom_float_half_ = build_real (float_type_node, point_5);
-    ffecom_double_half_ = build_real (double_type_node, point_5);
-  }
+  ffecom_float_half_ = build_real (float_type_node, dconsthalf);
+  ffecom_double_half_ = build_real (double_type_node, dconsthalf);
 
   /* Do "extern int xargc;".  */