diff options
| author | Dave Love <fx@gcc.gnu.org> | 1998-10-02 07:54:36 +0000 |
|---|---|---|
| committer | Dave Love <fx@gcc.gnu.org> | 1998-10-02 07:54:36 +0000 |
| commit | de7f278af402046fb6a117221ddc42e945daea51 (patch) | |
| tree | f2cf204173817f26532a803a6cd0fb09e33f6d78 | |
| parent | fa23c636113aae0cdcf4b03392c1eb1ef7651b61 (diff) | |
| download | gcc-de7f278af402046fb6a117221ddc42e945daea51.zip gcc-de7f278af402046fb6a117221ddc42e945daea51.tar.gz gcc-de7f278af402046fb6a117221ddc42e945daea51.tar.bz2 | |
(ffecom_expr_intrinsic_): Fix return type for RAND.
From-SVN: r22744
| -rw-r--r-- | gcc/f/com.c | 2 |
1 files changed, 1 insertions, 1 deletions
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); |