diff options
author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-06-24 23:09:47 +0000 |
---|---|---|
committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-06-24 23:09:47 +0000 |
commit | b8df40861b04c1a2f3df288f5bbc09f1b3ab458d (patch) | |
tree | e416cbfafea6eff078339a5402a6af4e0b5549e1 | |
parent | b52ee43769dfbb00e304f164a74aaaa4694be28c (diff) | |
download | gcc-b8df40861b04c1a2f3df288f5bbc09f1b3ab458d.tar.gz |
2005-06-24 Jerry DeLisle <jvdelisle@verizon.net>
PR libfortran/21915
* intrinsics/hyper.c: New file, adds wrapper functions
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@101303 138bc75d-0d04-0410-961f-82ee72b054a4
-rw-r--r-- | libgfortran/intrinsics/hyper.c | 56 |
1 files changed, 56 insertions, 0 deletions
diff --git a/libgfortran/intrinsics/hyper.c b/libgfortran/intrinsics/hyper.c new file mode 100644 index 00000000000..6b88ba12f83 --- /dev/null +++ b/libgfortran/intrinsics/hyper.c @@ -0,0 +1,56 @@ +/* Wrapper for systems without the C99 acosh(), asinh(), and atanh() functions + Copyright (C) 2005 Free Software Foundation, Inc. + +This file is part of the GNU Fortran 95 runtime library (libgfortran). + +Libgfortran is free software; you can redistribute it and/or +modify it under the terms of the GNU General Public +License as published by the Free Software Foundation; either +version 2 of the License, or (at your option) any later version. + +In addition to the permissions in the GNU General Public License, the +Free Software Foundation gives you unlimited permission to link the +compiled version of this file into combinations with other programs, +and to distribute those combinations without any restriction coming +from the use of this file. (The General Public License restrictions +do apply in other respects; for example, they cover modification of +the file, and distribution when not linked into a combine +executable.) + +Libgfortran is distributed in the hope that it will be useful, +but WITHOUT ANY WARRANTY; without even the implied warranty of +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +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 "config.h" +#include <math.h> +#include "libgfortran.h" + +#if HAVE_ACOSH && !HAVE_ACOSHF +float +acoshf (float x) +{ + return (float) acosh ((double) x); +} +#endif + +#if HAVE_ASINH && !HAVE_ASINHF +float +asinhf (float x) +{ + return (float) asinh ((double) x); +} +#endif + +#if HAVE_ATANH && !HAVE_ATANHF +float +atanhf (float x) +{ + return (float) atanh ((double) x); +} +#endif |