/* Implementation of the TRANSPOSE intrinsic
- Copyright 2003, 2005 Free Software Foundation, Inc.
+ Copyright 2003, 2005, 2006, 2007 Free Software Foundation, Inc.
Contributed by Tobias Schlüter
This file is part of the GNU Fortran 95 runtime library (libgfortran).
write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301, USA. */
-#include "config.h"
-#include <assert.h>
#include "libgfortran.h"
+#include <assert.h>
+
#if defined (HAVE_GFC_INTEGER_8)
{
/* r.* indicates the return array. */
index_type rxstride, rystride;
- GFC_INTEGER_8 *rptr;
+ GFC_INTEGER_8 * restrict rptr;
/* s.* indicates the source array. */
index_type sxstride, systride;
const GFC_INTEGER_8 *sptr;
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;