This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/14993] [gfortran] RAN (extension) intrinsic/function not supported
- From: "sgk at troutmask dot apl dot washington dot edu" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: 30 May 2004 21:51:21 -0000
- Subject: [Bug fortran/14993] [gfortran] RAN (extension) intrinsic/function not supported
- References: <20040417154917.14993.pinskia@gcc.gnu.org>
- Reply-to: gcc-bugzilla at gcc dot gnu dot org
------- Additional Comments From sgk at troutmask dot apl dot washington dot edu 2004-05-30 21:51 -------
Well, I read the URL. It is identical to the RAND() I implemented.
http://gcc.gnu.org/ml/gcc-patches/2004-05/msg02016.html
Add a "make_alias("ran");" to intrinsic.c after the declaration
of "rand".
Now, back to your code snippet. "i = ran(iseed)" should
set i = 0 for all values of iseed.
RAN is a general random number generator of the multiplicative
congruential type. The result is a floating-point number that is
uniformly distributed in the range between 0.0 inclusive and 1.0,
exclusive.
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=14993