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

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@82167 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index e6cfffb..edf4919 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 120c951..09a3fea 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. */