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/set_exponent.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/set_exponent.m4')
| -rw-r--r-- | libgfortran/m4/set_exponent.m4 | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/libgfortran/m4/set_exponent.m4 b/libgfortran/m4/set_exponent.m4 index 91ba9523b98..417cc66b342 100644 --- a/libgfortran/m4/set_exponent.m4 +++ b/libgfortran/m4/set_exponent.m4 @@ -34,16 +34,16 @@ Boston, MA 02110-1301, USA. */ include(`mtype.m4')dnl -`#if defined (HAVE_'real_type`) && defined (HAVE_SCALBN'Q`) && defined (HAVE_FREXP'Q`)' +`#if defined (HAVE_'real_type`) && defined (HAVE_SCALBN'Q`) && defined (HAVE_FREXP'Q`) -extern real_type set_exponent_r`'kind (real_type s, GFC_INTEGER_4 i); -export_proto(set_exponent_r`'kind); +extern 'real_type` set_exponent_r'kind` ('real_type` s, GFC_INTEGER_4 i); +export_proto(set_exponent_r'kind`); -real_type -set_exponent_r`'kind (real_type s, GFC_INTEGER_4 i) +'real_type` +set_exponent_r'kind` ('real_type` s, GFC_INTEGER_4 i) { int dummy_exp; - return scalbn`'q (frexp`'q (s, &dummy_exp), i); + return scalbn'q` (frexp'q` (s, &dummy_exp), i); } -#endif +#endif' |