diff options
Diffstat (limited to 'libgfortran/m4/eoshift1.m4')
| -rw-r--r-- | libgfortran/m4/eoshift1.m4 | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/libgfortran/m4/eoshift1.m4 b/libgfortran/m4/eoshift1.m4 index 898f778c9e7..9cf6fa9a84a 100644 --- a/libgfortran/m4/eoshift1.m4 +++ b/libgfortran/m4/eoshift1.m4 @@ -51,24 +51,24 @@ eoshift1_`'atype_kind (const gfc_array_char *ret, 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; |