From: Dave Love <fx@gcc.gnu.org>
Date: Fri, 2 Oct 1998 07:54:36 +0000 (+0000)
Subject: (ffecom_expr_intrinsic_): Fix return type for RAND.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=de7f278af402046fb6a117221ddc42e945daea51;p=gcc.git

(ffecom_expr_intrinsic_): Fix return type for RAND.

From-SVN: r22744
---

diff --git a/gcc/f/com.c b/gcc/f/com.c
index fc1f6a5fc77..9db1f8462f4 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);