From fd53dbe0515c7ba9d2f9a54fdbb34cc26c23785f Mon Sep 17 00:00:00 2001 From: Steve Kargl Date: Wed, 30 Jun 2004 08:21:54 +0000 Subject: 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 From-SVN: r83895 --- libgfortran/intrinsics/rand.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'libgfortran/intrinsics/rand.c') 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); } -- cgit v1.1