diff options
Diffstat (limited to 'libgfortran/m4/eoshift3.m4')
-rw-r--r-- | libgfortran/m4/eoshift3.m4 | 48 |
1 files changed, 24 insertions, 24 deletions
diff --git a/libgfortran/m4/eoshift3.m4 b/libgfortran/m4/eoshift3.m4 index 7df08d2a785..58f12fcddd6 100644 --- a/libgfortran/m4/eoshift3.m4 +++ b/libgfortran/m4/eoshift3.m4 @@ -35,14 +35,14 @@ Boston, MA 02110-1301, USA. */ #include "libgfortran.h"' include(iparm.m4)dnl -`#if defined (HAVE_'atype_name`)' +`#if defined (HAVE_'atype_name`) static void eoshift3 (gfc_array_char * const restrict ret, const gfc_array_char * const restrict array, - const atype * const restrict h, + const 'atype` * const restrict h, const gfc_array_char * const restrict bound, - const atype_name * const restrict pwhich, + const 'atype_name` * const restrict pwhich, index_type size, char filler) { /* r.* indicates the return array. */ @@ -57,10 +57,10 @@ eoshift3 (gfc_array_char * const restrict ret, index_type soffset; const char *sptr; const char *src; -` /* h.* indicates the shift array. */' + /* h.* indicates the shift array. */ index_type hstride[GFC_MAX_DIMENSIONS]; index_type hstride0; - const atype_name *hptr; + const 'atype_name` *hptr; /* b.* indicates the bound array. */ index_type bstride[GFC_MAX_DIMENSIONS]; index_type bstride0; @@ -72,8 +72,8 @@ eoshift3 (gfc_array_char * const restrict ret, index_type len; index_type n; int which; - atype_name sh; - atype_name delta; + 'atype_name` sh; + 'atype_name` delta; /* The compiler cannot figure out that these are set, initialize them to avoid warnings. */ @@ -160,7 +160,7 @@ eoshift3 (gfc_array_char * const restrict ret, while (rptr) { -` /* Do the shift for this dimension. */' + /* Do the shift for this dimension. */ sh = *hptr; if (( sh >= 0 ? sh : -sh ) > len) { @@ -240,43 +240,43 @@ eoshift3 (gfc_array_char * const restrict ret, } } -extern void eoshift3_`'atype_kind (gfc_array_char * const restrict, +extern void eoshift3_'atype_kind` (gfc_array_char * const restrict, const gfc_array_char * const restrict, - const atype * const restrict, + const 'atype` * const restrict, const gfc_array_char * const restrict, - const atype_name *); -export_proto(eoshift3_`'atype_kind); + const 'atype_name` *); +export_proto(eoshift3_'atype_kind`); void -eoshift3_`'atype_kind (gfc_array_char * const restrict ret, +eoshift3_'atype_kind` (gfc_array_char * const restrict ret, const gfc_array_char * const restrict array, - const atype * const restrict h, + const 'atype` * const restrict h, const gfc_array_char * const restrict bound, - const atype_name * const restrict pwhich) + const 'atype_name` * const restrict pwhich) { eoshift3 (ret, array, h, bound, pwhich, GFC_DESCRIPTOR_SIZE (array), 0); } -extern void eoshift3_`'atype_kind`'_char (gfc_array_char * const restrict, +extern void eoshift3_'atype_kind`_char (gfc_array_char * const restrict, GFC_INTEGER_4, const gfc_array_char * const restrict, - const atype * const restrict, + const 'atype` * const restrict, const gfc_array_char * const restrict, - const atype_name * const restrict, + const 'atype_name` * const restrict, GFC_INTEGER_4, GFC_INTEGER_4); -export_proto(eoshift3_`'atype_kind`'_char); +export_proto(eoshift3_'atype_kind`_char); void -eoshift3_`'atype_kind`'_char (gfc_array_char * const restrict ret, +eoshift3_'atype_kind`_char (gfc_array_char * const restrict ret, GFC_INTEGER_4 ret_length __attribute__((unused)), const gfc_array_char * const restrict array, - const atype * const restrict h, + const 'atype` * const restrict h, const gfc_array_char * const restrict bound, - const atype_name * const restrict pwhich, + const 'atype_name` * const restrict pwhich, GFC_INTEGER_4 array_length, GFC_INTEGER_4 bound_length __attribute__((unused))) { - eoshift3 (ret, array, h, bound, pwhich, array_length, ' '); + eoshift3 (ret, array, h, bound, pwhich, array_length, ''` ''`); } -#endif +#endif' |