diff options
| author | Dave Love <d.love@dl.ac.uk> | 1998-10-08 06:34:36 +0000 |
|---|---|---|
| committer | Dave Love <fx@gcc.gnu.org> | 1998-10-08 06:34:36 +0000 |
| commit | 424a57f356c135fa8165bf09583819fcabeb19b5 (patch) | |
| tree | 583a64eb7610fb244dfe104d4ad4fa4d1bb118de | |
| parent | 14748a7df6ae57ffe61875455c9213ab9e8fcdb2 (diff) | |
| download | gcc-424a57f356c135fa8165bf09583819fcabeb19b5.tar.gz | |
com.c (ffecom_expr_intrinsic_): Fix return type for RAND.
1998-10-02 Dave Love <d.love@dl.ac.uk>
* com.c (ffecom_expr_intrinsic_): Fix return type for RAND.
From-SVN: r22916
| -rw-r--r-- | gcc/f/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/f/com.c | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog index 35b88abedfd..cf4f146d424 100644 --- a/gcc/f/ChangeLog +++ b/gcc/f/ChangeLog @@ -1,3 +1,7 @@ +1998-10-02 Dave Love <d.love@dl.ac.uk> + + * com.c (ffecom_expr_intrinsic_): Fix return type for RAND. + Fri Oct 2 01:27:06 1998 Kamil Iskra <iskra@student.uci.agh.edu.pl> * Make-lang.in (f77.install-common): Add missing "else true;". 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); |