OSDN Git Service

* iresolve.c (gfc_resolve_random_number): Clean up conditional.
authorpbrook <pbrook@138bc75d-0d04-0410-961f-82ee72b054a4>
Sun, 30 May 2004 10:49:50 +0000 (10:49 +0000)
committerpbrook <pbrook@138bc75d-0d04-0410-961f-82ee72b054a4>
Sun, 30 May 2004 10:49:50 +0000 (10:49 +0000)
commitf36ac248b3556cd7f13c76bc19a0300afcdd3ea8
treec7388f0241ffd16eefa7c8649497e527ecdcbeba
parentfbce28bc400682e2eb3201b5574403044a47cb09
* 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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@82443 138bc75d-0d04-0410-961f-82ee72b054a4
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