diff options
| author | tkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-03-14 19:26:38 +0000 |
|---|---|---|
| committer | tkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-03-14 19:26:38 +0000 |
| commit | 0a6b5f6b02d7417cf1267d62c8cd6a6a9cc0774f (patch) | |
| tree | 30e3cd3e0ab7d3d112d7ba8f0a2d73539d5d59fd /libgfortran/m4/transpose.m4 | |
| parent | d0660800d70a8f2b1a83125748cbec0dba43e7ab (diff) | |
| download | gcc-0a6b5f6b02d7417cf1267d62c8cd6a6a9cc0774f.tar.gz | |
2007-03-14 Thomas Koenig <Thomas.Koenig@online.de>
PR libfortran/30690
* all.m4: Quote everything, except for m4 macros.
* any.m4: Likewise.
* count.m4: Likewise.
* cshift1.m4: Likewise.
* eoshift1.m4: Likewise.
* eoshift3.m4: Likewise.
* exponent.m4: Likewise.
* fraction.m4: Likewise.
* in_pack.m4: Likewise.
* in_unpack.m4: Likewise.
* matmul.m4: Likewise.
* matmull.m4: Likewise.
* nearest.m4: Likewise.
* pow.m4: Likewise.
* product.m4: Likewise.
* reshape.m4: Likewise.
* rrspacing.m4: Likewise.
* set_exponent.m4: Likewise.
* shape.m4: Likewise.
* spacing.m4: Likewise.
* transpose.m4: Likewise.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@122927 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/m4/transpose.m4')
| -rw-r--r-- | libgfortran/m4/transpose.m4 | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/libgfortran/m4/transpose.m4 b/libgfortran/m4/transpose.m4 index 1511258a1de..bd0577f089f 100644 --- a/libgfortran/m4/transpose.m4 +++ b/libgfortran/m4/transpose.m4 @@ -33,22 +33,22 @@ Boston, MA 02110-1301, USA. */ #include "libgfortran.h"' include(iparm.m4)dnl -`#if defined (HAVE_'rtype_name`)' +`#if defined (HAVE_'rtype_name`) -extern void transpose_`'rtype_code (rtype * const restrict ret, - rtype * const restrict source); -export_proto(transpose_`'rtype_code); +extern void transpose_'rtype_code` ('rtype` * const restrict ret, + 'rtype` * const restrict source); +export_proto(transpose_'rtype_code`); void -transpose_`'rtype_code (rtype * const restrict ret, - rtype * const restrict source) +transpose_'rtype_code` ('rtype` * const restrict ret, + 'rtype` * const restrict source) { /* r.* indicates the return array. */ index_type rxstride, rystride; - rtype_name *rptr; + 'rtype_name` *rptr; /* s.* indicates the source array. */ index_type sxstride, systride; - const rtype_name *sptr; + const 'rtype_name` *sptr; index_type xcount, ycount; index_type x, y; @@ -68,7 +68,7 @@ transpose_`'rtype_code (rtype * const restrict ret, ret->dim[1].ubound = source->dim[0].ubound - source->dim[0].lbound; ret->dim[1].stride = ret->dim[0].ubound+1; - ret->data = internal_malloc_size (sizeof (rtype_name) * size0 ((array_t *) ret)); + ret->data = internal_malloc_size (sizeof ('rtype_name`) * size0 ((array_t *) ret)); ret->offset = 0; } @@ -97,4 +97,4 @@ transpose_`'rtype_code (rtype * const restrict ret, } } -#endif +#endif' |