iresolve.c (gfc_resolve_random_number): Clean up conditional.
authorSteven G. Kargl <kargls@comcast.net>
Sun, 30 May 2004 10:49:50 +0000 (10:49 +0000)
committerPaul Brook <pbrook@gcc.gnu.org>
Sun, 30 May 2004 10:49:50 +0000 (10:49 +0000)
commit5f251c2603135f0565ac08898410d795dff8e8d0
treec7388f0241ffd16eefa7c8649497e527ecdcbeba
parentebeb17c7bb8d07d412b5f02786fb79b0ab0ad2b9
iresolve.c (gfc_resolve_random_number): Clean up conditional.

* iresolve.c (gfc_resolve_random_number): Clean up conditional.
libgfortran/
* libgfortran.h (random_seed): Update prototype.
* intrinsics/random.c: Disable old implementation and add new one.
testsuite/
* gfortran.fortran-torture/execute/random_1.f90: New test.

From-SVN: r82443
gcc/fortran/ChangeLog
gcc/fortran/iresolve.c
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.fortran-torture/execute/random_1.f90 [new file with mode: 0644]
libgfortran/ChangeLog
libgfortran/intrinsics/random.c
libgfortran/libgfortran.h