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/shape.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/shape.m4')
| -rw-r--r-- | libgfortran/m4/shape.m4 | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/libgfortran/m4/shape.m4 b/libgfortran/m4/shape.m4 index a219a8bb32a..1902d7514d6 100644 --- a/libgfortran/m4/shape.m4 +++ b/libgfortran/m4/shape.m4 @@ -34,15 +34,15 @@ Boston, MA 02110-1301, USA. */ #include "libgfortran.h"' include(iparm.m4)dnl -`#if defined (HAVE_'rtype_name`)' +`#if defined (HAVE_'rtype_name`) -extern void shape_`'rtype_kind (rtype * const restrict ret, - const rtype * const restrict array); -export_proto(shape_`'rtype_kind); +extern void shape_'rtype_kind` ('rtype` * const restrict ret, + const 'rtype` * const restrict array); +export_proto(shape_'rtype_kind`); void -shape_`'rtype_kind (rtype * const restrict ret, - const rtype * const restrict array) +shape_'rtype_kind` ('rtype` * const restrict ret, + const 'rtype` * const restrict array) { int n; index_type stride; @@ -56,4 +56,4 @@ shape_`'rtype_kind (rtype * const restrict ret, } } -#endif +#endif' |