diff options
| author | Steven G. Kargl <kargls@comcast.net> | 2004-05-30 10:49:50 +0000 |
|---|---|---|
| committer | Paul Brook <pbrook@gcc.gnu.org> | 2004-05-30 10:49:50 +0000 |
| commit | 5f251c2603135f0565ac08898410d795dff8e8d0 (patch) | |
| tree | c7388f0241ffd16eefa7c8649497e527ecdcbeba /libgfortran/libgfortran.h | |
| parent | ebeb17c7bb8d07d412b5f02786fb79b0ab0ad2b9 (diff) | |
| download | gcc-5f251c2603135f0565ac08898410d795dff8e8d0.zip gcc-5f251c2603135f0565ac08898410d795dff8e8d0.tar.gz gcc-5f251c2603135f0565ac08898410d795dff8e8d0.tar.bz2 | |
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
Diffstat (limited to 'libgfortran/libgfortran.h')
| -rw-r--r-- | libgfortran/libgfortran.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libgfortran/libgfortran.h b/libgfortran/libgfortran.h index 6234e25..a4c2759 100644 --- a/libgfortran/libgfortran.h +++ b/libgfortran/libgfortran.h @@ -399,8 +399,8 @@ GFC_INTEGER_4 compare_string (GFC_INTEGER_4, const char *, /* random.c */ #define random_seed prefix(random_seed) -void random_seed (GFC_INTEGER_4 * size, const gfc_array_i4 * put, - const gfc_array_i4 * get); +void random_seed (GFC_INTEGER_4 * size, gfc_array_i4 * put, + gfc_array_i4 * get); #endif |