git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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
This commit is contained in:
Steve Kargl 2004-06-30 08:21:54 +00:00 committed by Steven Bosscher
parent dd0d10e80c
commit fd53dbe051
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
libgfortran/ChangeLog
View File

@ -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> 2004-06-29 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
Paul Brook <paul@codesourcery.com> Paul Brook <paul@codesourcery.com>

2
libgfortran/intrinsics/rand.c
View File

@ -82,5 +82,5 @@ prefix(irand) (GFC_INTEGER_4 *i)
GFC_REAL_4 GFC_REAL_4
prefix(rand) (GFC_INTEGER_4 *i) 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);
} }