diff options
Diffstat (limited to 'libgfortran/m4/cshift1.m4')
| -rw-r--r-- | libgfortran/m4/cshift1.m4 | 14 |
1 files changed, 5 insertions, 9 deletions
diff --git a/libgfortran/m4/cshift1.m4 b/libgfortran/m4/cshift1.m4 index 382537b7029..46ae7ce1335 100644 --- a/libgfortran/m4/cshift1.m4 +++ b/libgfortran/m4/cshift1.m4 @@ -24,15 +24,11 @@ Boston, MA 02111-1307, USA. */ #include <assert.h> #include <string.h> #include "libgfortran.h"' -include(types.m4)dnl -define(htype_kind, regexp(file, `_\([0-9]+\)\.', `\1'))dnl -define(htype_code,`i'rtype_name)dnl -define(htype,get_arraytype(i,htype_kind))dnl -define(htype_name, get_typename(i,htype_kind))dnl +include(iparm.m4)dnl void -`__cshift1_'htype_kind (const gfc_array_char * ret, const gfc_array_char * array, - const htype * h, const htype_name * pwhich) +`__cshift1_'atype_kind (const gfc_array_char * ret, const gfc_array_char * array, + const atype * h, const atype_name * pwhich) { /* r.* indicates the return array. */ index_type rstride[GFC_MAX_DIMENSIONS - 1]; @@ -49,7 +45,7 @@ void ` /* h.* indicates the shift array. */' index_type hstride[GFC_MAX_DIMENSIONS - 1]; index_type hstride0; - const htype_name *hptr; + const atype_name *hptr; index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; @@ -58,7 +54,7 @@ void index_type len; index_type n; int which; - htype_name sh; + atype_name sh; if (pwhich) which = *pwhich - 1; |