* random.c (random_seed): Use correct variable.

From-SVN: r82167

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index e6cfffb132c9df397289afec2b70fa8d5284c686..edf4919f3b7711a544557625d30437dbddf953a4 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,7 @@
+2004-05-23  Steven G. Kargl  <kargls@comcast.net>
+
+       * random.c (random_seed): Use correct variable.
+
 2004-05-22  Steven G. Kargl  <kargls@comcast.net>
 
        * intrinsics/system_clock: New file.

diff --git a/libgfortran/intrinsics/random.c b/libgfortran/intrinsics/random.c
index 120c9517fa2f11b69b797f295d8a3f42f662b5e9..09a3fea62dd2211daae416a0e2bed44ebfabfa5d 100644 (file)
--- a/libgfortran/intrinsics/random.c
+++ b/libgfortran/intrinsics/random.c
@@ -121,7 +121,7 @@ random_seed (GFC_INTEGER_4 * size, const gfc_array_i4 * put,
        abort ();
 
       /* If this is the case the array is a temporary */
-      if (get->dim[0].stride == 0)
+      if (put->dim[0].stride == 0)
        return;
 
       /*  This code now should do correct strides. */