diff options
| author | Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2007-08-15 12:35:57 +0000 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2007-08-15 12:35:57 +0000 |
| commit | ee5d176a88399eeb47d76f37531257b62b5f36d3 (patch) | |
| tree | 329a6ad9ddc89df708274b59d457f1bd0a0e9cb7 /gcc | |
| parent | 49317655fe694ad6e5d21de25b68753b3d0c8b87 (diff) | |
| download | gcc-ee5d176a88399eeb47d76f37531257b62b5f36d3.zip gcc-ee5d176a88399eeb47d76f37531257b62b5f36d3.tar.gz gcc-ee5d176a88399eeb47d76f37531257b62b5f36d3.tar.bz2 | |
re PR fortran/33077 (RANDOM_SEED failure for integer(kind=8))
PR fortran/33077
* intrinsics/random.c (random_seed_i8): Fix code logic.
* gfortran.dg/random_7.f90: Initialize variable.
From-SVN: r127512
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/random_7.f90 | 3 |
2 files changed, 8 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 86abadd..bde9f73 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2007-08-15 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> + + PR fortran/33077 + * gfortran.dg/random_7.f90: Initialize variable. + 2007-08-15 Jakub Jelinek <jakub@redhat.com> PR middle-end/33074 diff --git a/gcc/testsuite/gfortran.dg/random_7.f90 b/gcc/testsuite/gfortran.dg/random_7.f90 index 46d8ccb..6435a34 100644 --- a/gcc/testsuite/gfortran.dg/random_7.f90 +++ b/gcc/testsuite/gfortran.dg/random_7.f90 @@ -7,8 +7,11 @@ program trs integer, allocatable, dimension(:) :: seed, check call test_random_seed(size) allocate(seed(size),check(size)) + seed(:) = huge(seed) / 17 call test_random_seed(put=seed) call test_random_seed(get=check) + print *, seed + print *, check if (any (seed /= check)) call abort contains subroutine test_random_seed(size, put, get) |