* m4/minloc1.m4: Update copyright year and ajust headers order.

[pf3gnuchains/gcc-fork.git] / libgfortran / m4 / fraction.m4

diff --git a/libgfortran/m4/fraction.m4 b/libgfortran/m4/fraction.m4
index 13cd5aa..3c8ed95 100644 (file)
--- a/libgfortran/m4/fraction.m4
+++ b/libgfortran/m4/fraction.m4
@@ -1,5 +1,5 @@
 `/* Implementation of the FRACTION intrinsic
-   Copyright 2003 Free Software Foundation, Inc.
+   Copyright 2003, 2007 Free Software Foundation, Inc.
    Contributed by Richard Henderson <rth@redhat.com>.
 
 This file is part of the GNU Fortran 95 runtime library (libgfortran).
@@ -25,19 +25,23 @@ GNU General Public License for more details.
 
 You should have received a copy of the GNU General Public
 License along with libgfortran; see the file COPYING.  If not,
-write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-Boston, MA 02111-1307, USA.  */
-#include <math.h>
+write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+Boston, MA 02110-1301, USA.  */
+
 #include "libgfortran.h"'
 
 include(`mtype.m4')dnl
 
-extern real_type fraction_r`'kind (real_type s);
-export_proto(fraction_r`'kind);
+`#if defined (HAVE_'real_type`) && defined (HAVE_FREXP'Q`)
+
+extern 'real_type` fraction_r'kind` ('real_type` s);
+export_proto(fraction_r'kind`);
 
-real_type
-fraction_r`'kind (real_type s)
+'real_type`
+fraction_r'kind` ('real_type` s)
 {
   int dummy_exp;
-  return frexp`'q (s, &dummy_exp);
+  return frexp'q` (s, &dummy_exp);
 }
+
+#endif'