com.c (ffecom_expr_intrinsic_): Fix return type for RAND.

1998-10-02  Dave Love  <d.love@dl.ac.uk>
       * com.c (ffecom_expr_intrinsic_): Fix return type for RAND.

From-SVN: r22916

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index 35b88abedfd1ce3d60403f979e11e3a8e732a852..cf4f146d4248c5b3af1df1a142e9a848c8348431 100644 (file)
--- a/gcc/f/ChangeLog
+++ b/gcc/f/ChangeLog
@@ -1,3 +1,7 @@
+1998-10-02  Dave Love  <d.love@dl.ac.uk>
+
+       * com.c (ffecom_expr_intrinsic_): Fix return type for RAND.
+
 Fri Oct  2 01:27:06 1998  Kamil Iskra  <iskra@student.uci.agh.edu.pl>
 
        * Make-lang.in (f77.install-common): Add missing "else true;".

diff --git a/gcc/f/com.c b/gcc/f/com.c
index fc1f6a5fc7718e23fa866925c4155c87e063fb18..9db1f8462f4b0bec48f4aeae9de5a53871bba113 100644 (file)
--- a/gcc/f/com.c
+++ b/gcc/f/com.c
@@ -5103,7 +5103,7 @@ ffecom_expr_intrinsic_ (ffebld expr, tree dest_tree,
                                  FALSE,
                                  ((codegen_imp == FFEINTRIN_impIRAND) ?
                                   ffecom_f2c_integer_type_node :
-                                  ffecom_f2c_doublereal_type_node),
+                                  ffecom_f2c_real_type_node),
                                  arg1_tree,
                                  dest_tree, dest, dest_used,
                                  NULL_TREE, TRUE);