diff options
| author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-06-24 23:12:32 +0000 |
|---|---|---|
| committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-06-24 23:12:32 +0000 |
| commit | cbaea6fd825eb9b86bd8803300ee38df68ebb396 (patch) | |
| tree | 5e42ffb6be150d57d6f5548e53e219862aadd26c /gcc/fortran/iresolve.c | |
| parent | b8df40861b04c1a2f3df288f5bbc09f1b3ab458d (diff) | |
| download | ppe42-gcc-cbaea6fd825eb9b86bd8803300ee38df68ebb396.tar.gz ppe42-gcc-cbaea6fd825eb9b86bd8803300ee38df68ebb396.zip | |
2005-06-24 Jerry DeLisle <jvdelisle@verizon.net>
PR fortran/21915
* gfortran.h: Add symbols for new intrinsics
* intrinsic.c: Add acosh, asinh, and atanh
* intrinsic.h: Add prototypes
* iresolve.c (gfc_resolve_acosh): New function
(gfc_resolve_asinh): New
(gfc_resolve_atanh): New
* mathbuiltins.def: Add defines
* simplify.c (gfc_simplify_acosh): New function
(gfc_simplify_asinh): New
(gfc_simplify_atanh): New
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@101304 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/iresolve.c')
| -rw-r--r-- | gcc/fortran/iresolve.c | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/gcc/fortran/iresolve.c b/gcc/fortran/iresolve.c index e9392871fef..a45001ed7cd 100644 --- a/gcc/fortran/iresolve.c +++ b/gcc/fortran/iresolve.c @@ -84,6 +84,15 @@ gfc_resolve_acos (gfc_expr * f, gfc_expr * x) void +gfc_resolve_acosh (gfc_expr * f, gfc_expr * x) +{ + f->ts = x->ts; + f->value.function.name = + gfc_get_string ("__acosh_%c%d", gfc_type_letter (x->ts.type), x->ts.kind); +} + + +void gfc_resolve_aimag (gfc_expr * f, gfc_expr * x) { f->ts.type = BT_REAL; @@ -177,6 +186,13 @@ gfc_resolve_asin (gfc_expr * f, gfc_expr * x) gfc_get_string ("__asin_%c%d", gfc_type_letter (x->ts.type), x->ts.kind); } +void +gfc_resolve_asinh (gfc_expr * f, gfc_expr * x) +{ + f->ts = x->ts; + f->value.function.name = + gfc_get_string ("__asinh_%c%d", gfc_type_letter (x->ts.type), x->ts.kind); +} void gfc_resolve_atan (gfc_expr * f, gfc_expr * x) @@ -186,6 +202,13 @@ gfc_resolve_atan (gfc_expr * f, gfc_expr * x) gfc_get_string ("__atan_%c%d", gfc_type_letter (x->ts.type), x->ts.kind); } +void +gfc_resolve_atanh (gfc_expr * f, gfc_expr * x) +{ + f->ts = x->ts; + f->value.function.name = + gfc_get_string ("__atanh_%c%d", gfc_type_letter (x->ts.type), x->ts.kind); +} void gfc_resolve_atan2 (gfc_expr * f, gfc_expr * x, |
