diff options
Diffstat (limited to 'libgfortran/m4/cshift1.m4')
| -rw-r--r-- | libgfortran/m4/cshift1.m4 | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/libgfortran/m4/cshift1.m4 b/libgfortran/m4/cshift1.m4 index 7288c35f934..308c3dc40f8 100644 --- a/libgfortran/m4/cshift1.m4 +++ b/libgfortran/m4/cshift1.m4 @@ -46,24 +46,24 @@ cshift1_`'atype_kind (const gfc_array_char * ret, const atype * h, const atype_name * pwhich) { /* r.* indicates the return array. */ - index_type rstride[GFC_MAX_DIMENSIONS - 1]; + index_type rstride[GFC_MAX_DIMENSIONS]; index_type rstride0; index_type roffset; char *rptr; char *dest; /* s.* indicates the source array. */ - index_type sstride[GFC_MAX_DIMENSIONS - 1]; + index_type sstride[GFC_MAX_DIMENSIONS]; index_type sstride0; index_type soffset; const char *sptr; const char *src; /* h.* indicates the shift array. */ - index_type hstride[GFC_MAX_DIMENSIONS - 1]; + index_type hstride[GFC_MAX_DIMENSIONS]; index_type hstride0; const atype_name *hptr; - index_type count[GFC_MAX_DIMENSIONS - 1]; - index_type extent[GFC_MAX_DIMENSIONS - 1]; + index_type count[GFC_MAX_DIMENSIONS]; + index_type extent[GFC_MAX_DIMENSIONS]; index_type dim; index_type size; index_type len; |