iresolve.c
28.2 KB
-
iresolve.c (gfc_resolve_random_number): Clean up conditional. · 5f251c26
* 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
Steven G. Kargl committed