random.c (random_r4): Burn a random number.
authorTobias Schlüter <tobi@gcc.gnu.org>
Sun, 13 Jun 2004 17:48:23 +0000 (19:48 +0200)
committerTobias Schlüter <tobi@gcc.gnu.org>
Sun, 13 Jun 2004 17:48:23 +0000 (19:48 +0200)
commit9d409075cb2e052ce66b91bdc791b8c6cf37dcbb
treefc484396bdda47521367fb8716d0ca9abbf92796
parent132da1a5aa17e496019e1603ce3d59fe1e61d44d
random.c (random_r4): Burn a random number.

2004-06-13  Steven G. Kargl  <kargls@comcast.net>

* random.c (random_r4): Burn a random number.
(random_r8): fix infinite loop.

From-SVN: r83062
libgfortran/ChangeLog
libgfortran/intrinsics/random.c