From 424a57f356c135fa8165bf09583819fcabeb19b5 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Thu, 8 Oct 1998 06:34:36 +0000 Subject: [PATCH] com.c (ffecom_expr_intrinsic_): Fix return type for RAND. 1998-10-02 Dave Love * com.c (ffecom_expr_intrinsic_): Fix return type for RAND. From-SVN: r22916 --- gcc/f/ChangeLog | 4 ++++ gcc/f/com.c | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) 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 + + * com.c (ffecom_expr_intrinsic_): Fix return type for RAND. + Fri Oct 2 01:27:06 1998 Kamil Iskra * 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); -- 2.47.2