From de7f278af402046fb6a117221ddc42e945daea51 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Fri, 2 Oct 1998 07:54:36 +0000 Subject: [PATCH] (ffecom_expr_intrinsic_): Fix return type for RAND. From-SVN: r22744 --- gcc/f/com.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gcc/f/com.c b/gcc/f/com.c index fc1f6a5..9db1f84 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.7.4