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);