OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

From-SVN: r82167
This commit is contained in:
Steven G. Kargl 2004-05-23 16:18:22 +00:00 committed by Paul Brook
parent 40e929f398
commit 322c24252e
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
libgfortran/ChangeLog
View File

@ -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.

2
libgfortran/intrinsics/random.c
View File

@ -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. */