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

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 65841f833f7a72aa475ebe4162edc82e614eda40..749b11f3e6d20e036585cbc068f807dfc29c1d94 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -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>
 
        PR gfortran/12839

diff --git a/libgfortran/intrinsics/rand.c b/libgfortran/intrinsics/rand.c
index d9add00af6f4f191aa91ebe19135d5c418ba1e3f..4678de4aa0a10ebc2aabc89b80e2d71be19c806f 100644 (file)
--- a/libgfortran/intrinsics/rand.c
+++ b/libgfortran/intrinsics/rand.c
@@ -82,5 +82,5 @@ prefix(irand) (GFC_INTEGER_4 *i)
 GFC_REAL_4
 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);
 }

diff --git a/libgfortran/runtime/normalize.c b/libgfortran/runtime/normalize.c
index a62d71dc5f017c7ec0c96923569f332a30614313..ce553762a0b40741b72d07ed94f489ca6c901570 100644 (file)
--- 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