diff options
| author | Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de> | 2004-06-30 00:52:58 +0200 |
|---|---|---|
| committer | Tobias Schlüter <tobi@gcc.gnu.org> | 2004-06-30 00:52:58 +0200 |
| commit | beabab5904b43e49b479b6f722924f496f649109 (patch) | |
| tree | 33f194e6e87cabdd4b26008174916dc89723b98d /libgfortran/runtime | |
| parent | dfdf6a9440609d8a58c6625b31d34509dd2df838 (diff) | |
| download | gcc-beabab5904b43e49b479b6f722924f496f649109.zip gcc-beabab5904b43e49b479b6f722924f496f649109.tar.gz gcc-beabab5904b43e49b479b6f722924f496f649109.tar.bz2 | |
Paul Brook <paul@codesourcery.com>
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
Diffstat (limited to 'libgfortran/runtime')
| -rw-r--r-- | libgfortran/runtime/normalize.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libgfortran/runtime/normalize.c b/libgfortran/runtime/normalize.c index a62d71d..ce55376 100644 --- a/libgfortran/runtime/normalize.c +++ b/libgfortran/runtime/normalize.c @@ -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). */ 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). */ GFC_REAL_8 |