diff options
Diffstat (limited to 'libgfortran/generated/transpose_r16.c')
| -rw-r--r-- | libgfortran/generated/transpose_r16.c | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/libgfortran/generated/transpose_r16.c b/libgfortran/generated/transpose_r16.c index 797f3c2e557..ba4c09e7470 100644 --- a/libgfortran/generated/transpose_r16.c +++ b/libgfortran/generated/transpose_r16.c @@ -1,5 +1,5 @@ /* Implementation of the TRANSPOSE intrinsic - Copyright 2003, 2005 Free Software Foundation, Inc. + Copyright 2003, 2005, 2006 Free Software Foundation, Inc. Contributed by Tobias Schlüter This file is part of the GNU Fortran 95 runtime library (libgfortran). @@ -71,11 +71,6 @@ transpose_r16 (gfc_array_r16 * const restrict ret, ret->offset = 0; } - if (ret->dim[0].stride == 0) - ret->dim[0].stride = 1; - if (source->dim[0].stride == 0) - source->dim[0].stride = 1; - sxstride = source->dim[0].stride; systride = source->dim[1].stride; xcount = source->dim[0].ubound + 1 - source->dim[0].lbound; |