]> git.ipfire.org Git - thirdparty/gcc.git/commit
re PR fortran/33077 (RANDOM_SEED failure for integer(kind=8))
authorFrancois-Xavier Coudert <fxcoudert@gcc.gnu.org>
Wed, 15 Aug 2007 12:35:57 +0000 (12:35 +0000)
committerFrançois-Xavier Coudert <fxcoudert@gcc.gnu.org>
Wed, 15 Aug 2007 12:35:57 +0000 (12:35 +0000)
commitee5d176a88399eeb47d76f37531257b62b5f36d3
tree329a6ad9ddc89df708274b59d457f1bd0a0e9cb7
parent49317655fe694ad6e5d21de25b68753b3d0c8b87
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
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/random_7.f90
libgfortran/ChangeLog
libgfortran/intrinsics/random.c