/* Compiler arithmetic header.
- Copyright (C) 2000, 2001, 2002, 2004 Free Software Foundation, Inc.
+ Copyright (C) 2000, 2001, 2002, 2004, 2005, 2006
+ Free Software Foundation, Inc.
Contributed by Steven Bosscher
This file is part of GCC.
#include "gfortran.h"
-/* MPFR does not have mpfr_atan2(), which needs to return the principle
- value of atan2(). MPFR also does not have the conversion of a mpfr_t
- to a mpz_t, so declare a function for this as well. */
+/* MPFR also does not have the conversion of a mpfr_t to a mpz_t, so declare
+ a function for this as well. */
-void arctangent2 (mpfr_t, mpfr_t, mpfr_t);
-void gfc_mpfr_to_mpz(mpz_t, mpfr_t);
+void gfc_mpfr_to_mpz (mpz_t, mpfr_t);
void gfc_set_model_kind (int);
void gfc_set_model (mpfr_t);
arith gfc_range_check (gfc_expr *);
int gfc_compare_expr (gfc_expr *, gfc_expr *);
-int gfc_compare_string (gfc_expr *, gfc_expr *, const int *);
+int gfc_compare_string (gfc_expr *, gfc_expr *);
/* Constant folding for gfc_expr trees. */
gfc_expr *gfc_uplus (gfc_expr * op);