From fd53dbe0515c7ba9d2f9a54fdbb34cc26c23785f Mon Sep 17 00:00:00 2001
From: Steve Kargl <sgk@troutmask.apl.washington.edu>
Date: Wed, 30 Jun 2004 08:21:54 +0000
Subject: [PATCH] rand.c (rand): Wrap the irand() call from the previous commit
 in prefix.

	* intrinsics/rand.c (rand): Wrap the irand() call from the previous
	commit in prefix.

Co-Authored-By: Steven Bosscher <stevenb@suse.de>

From-SVN: r83895
---
 libgfortran/ChangeLog         | 6 ++++++
 libgfortran/intrinsics/rand.c | 2 +-
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 749b11f..507383d 100644
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,9 @@
+2004-06-30  Steve Kargl  <sgk@troutmask.apl.washington.edu>
+	    Steven Bosscher  <stevenb@suse.de>
+
+	* intrinsics/rand.c (rand): Wrap the irand() call from the previous
+	commit in prefix.
+
 2004-06-29  Tobias Schlueter  <tobias.schlueter@physik.uni-muenchen.de>
 	Paul Brook  <paul@codesourcery.com>
 
diff --git a/libgfortran/intrinsics/rand.c b/libgfortran/intrinsics/rand.c
index 4678de4..d59e168 100644
--- 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 (irand (i) - 1, GFC_RAND_M1 - 1);
+  return normalize_r4_i4 (prefix(irand) (i) - 1, GFC_RAND_M1 - 1);
 }
-- 
2.7.4