OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Paul Brook <paul@codesourcery.com>

Browse Source 
2004-06-29  Tobias Schlueter  <tobias.schlueter@physik.uni-muenchen.de>
Paul Brook  <paul@codesourcery.com>

* runtime/normalize.c (normalize_r4_i4, normalize_r8_i8): Fix
comments.
* intrinsics/rand.c (rand): Call irand() in call to normalize_r4_i4.

Co-Authored-By: Paul Brook <paul@codesourcery.com>

From-SVN: r83880
This commit is contained in:
Tobias Schlüter 2004-06-30 00:52:58 +02:00 committed by Tobias Schlüter
parent dfdf6a9440
commit beabab5904
3 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
libgfortran/ChangeLog
View File

@ -1,3 +1,10 @@
2004-06-29 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
Paul Brook <paul@codesourcery.com>
* runtime/normalize.c (normalize_r4_i4, normalize_r8_i8): Fix
comments.
* intrinsics/rand.c (rand): Call irand() in call to normalize_r4_i4.
2004-06-27 Bud Davis <bdavis9659@comcast.net> 2004-06-27 Bud Davis <bdavis9659@comcast.net>
PR gfortran/12839 PR gfortran/12839

2
libgfortran/intrinsics/rand.c
View File

@ -82,5 +82,5 @@ prefix(irand) (GFC_INTEGER_4 *i)
GFC_REAL_4 GFC_REAL_4
prefix(rand) (GFC_INTEGER_4 *i) prefix(rand) (GFC_INTEGER_4 *i)
{ {
return normalize_r4_i4 (i - 1, GFC_RAND_M1); return normalize_r4_i4 (irand (i) - 1, GFC_RAND_M1 - 1);
} }

4
libgfortran/runtime/normalize.c
View File

@ -81,7 +81,7 @@ almostone_r8 ()
} }
/* Convert an unsigned integer in the range [0..x) into a /* Convert an unsigned integer in the range [0..x] into a
real the range [0..1). */ real the range [0..1). */
GFC_REAL_4 GFC_REAL_4
@ -96,7 +96,7 @@ normalize_r4_i4 (GFC_UINTEGER_4 i, GFC_UINTEGER_4 x)
} }
/* Convert an unsigned integer in the range [0..x) into a /* Convert an unsigned integer in the range [0..x] into a
real the range [0..1). */ real the range [0..1). */
GFC_REAL_8 GFC_REAL_8