From: Dave Love <d.love@dl.ac.uk>
Date: Thu, 8 Oct 1998 06:34:36 +0000 (+0000)
Subject: com.c (ffecom_expr_intrinsic_): Fix return type for RAND.
X-Git-Tag: prereleases/egcs-1.1.1-pre~28
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=424a57f356c135fa8165bf09583819fcabeb19b5;p=thirdparty%2Fgcc.git

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 35b88abedfd1..cf4f146d4248 100644
--- 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 fc1f6a5fc771..9db1f8462f4b 100644
--- 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);