diff options
Diffstat (limited to 'libgfortran/intrinsics/random.c')
| -rw-r--r-- | libgfortran/intrinsics/random.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libgfortran/intrinsics/random.c b/libgfortran/intrinsics/random.c index 120c951..09a3fea 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. */ |