From: Steven G. Kargl <kargls@comcast.net>
Date: Sun, 23 May 2004 16:18:22 +0000 (+0000)
Subject: * random.c (random_seed): Use correct variable.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=322c24252ef6bd43aa646c7a7ebf015939e26991;p=gcc.git

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

From-SVN: r82167
---

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index e6cfffb132c..edf4919f3b7 100644
--- 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 120c9517fa2..09a3fea62dd 100644
--- 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. */