diff options
| author | steven <steven@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-06-30 08:21:54 +0000 |
|---|---|---|
| committer | steven <steven@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-06-30 08:21:54 +0000 |
| commit | bfe8c1cc56e09a21d55e50fae16e99c0ebea28e3 (patch) | |
| tree | 02902794c4208014954c51581ac78e12ae840dfb /libgfortran/intrinsics/rand.c | |
| parent | c7f01ad58c4992234fef6e9e2308daf151878448 (diff) | |
| download | gcc-bfe8c1cc56e09a21d55e50fae16e99c0ebea28e3.tar.gz | |
* intrinsics/rand.c (rand): Wrap the irand() call from the previous
commit in prefix.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@83895 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/intrinsics/rand.c')
| -rw-r--r-- | libgfortran/intrinsics/rand.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libgfortran/intrinsics/rand.c b/libgfortran/intrinsics/rand.c index 4678de4aa0a..d59e1688371 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); } |