diff options
| author | Steve Kargl <sgk@troutmask.apl.washington.edu> | 2004-06-30 08:21:54 +0000 |
|---|---|---|
| committer | Steven Bosscher <steven@gcc.gnu.org> | 2004-06-30 08:21:54 +0000 |
| commit | fd53dbe0515c7ba9d2f9a54fdbb34cc26c23785f (patch) | |
| tree | 02902794c4208014954c51581ac78e12ae840dfb | |
| parent | dd0d10e80ca4ad80b7aef0d581da2ee41871fcc2 (diff) | |
| download | gcc-fd53dbe0515c7ba9d2f9a54fdbb34cc26c23785f.zip gcc-fd53dbe0515c7ba9d2f9a54fdbb34cc26c23785f.tar.gz gcc-fd53dbe0515c7ba9d2f9a54fdbb34cc26c23785f.tar.bz2 | |
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
| -rw-r--r-- | libgfortran/ChangeLog | 6 | ||||
| -rw-r--r-- | libgfortran/intrinsics/rand.c | 2 |
2 files changed, 7 insertions, 1 deletions
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); } |