From 2851a02b3fd44b2abb3a17cb6dc9fff1e176c3b3 Mon Sep 17 00:00:00 2001 From: ghazi Date: Fri, 25 Sep 2009 04:40:36 +0000 Subject: [PATCH] * simplify.c (gfc_simplify_acos, gfc_simplify_acosh, gfc_simplify_asin, gfc_simplify_asinh, gfc_simplify_atan, gfc_simplify_atanh): Fix error message. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@152155 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/fortran/ChangeLog | 6 ++++++ gcc/fortran/simplify.c | 12 ++++++------ 2 files changed, 12 insertions(+), 6 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 650adca5c4e..e7826e00008 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2009-09-25 Kaveh R. Ghazi + + * simplify.c (gfc_simplify_acos, gfc_simplify_acosh, + gfc_simplify_asin, gfc_simplify_asinh, gfc_simplify_atan, + gfc_simplify_atanh): Fix error message. + 2009-09-24 Steven G. Kargl PR fortran/41459 diff --git a/gcc/fortran/simplify.c b/gcc/fortran/simplify.c index fbb88a411af..a22dd00c2d8 100644 --- a/gcc/fortran/simplify.c +++ b/gcc/fortran/simplify.c @@ -749,7 +749,7 @@ gfc_simplify_acos (gfc_expr *x) case BT_COMPLEX: return NULL; default: - gfc_internal_error ("in gfc_simplify_cos(): Bad type"); + gfc_internal_error ("in gfc_simplify_acos(): Bad type"); } result = gfc_constant_result (x->ts.type, x->ts.kind, &x->where); @@ -783,7 +783,7 @@ gfc_simplify_acosh (gfc_expr *x) case BT_COMPLEX: return NULL; default: - gfc_internal_error ("in gfc_simplify_cos(): Bad type"); + gfc_internal_error ("in gfc_simplify_acosh(): Bad type"); } return range_check (result, "ACOSH"); @@ -1045,7 +1045,7 @@ gfc_simplify_asin (gfc_expr *x) case BT_COMPLEX: return NULL; default: - gfc_internal_error ("in gfc_simplify_cos(): Bad type"); + gfc_internal_error ("in gfc_simplify_asin(): Bad type"); } return range_check (result, "ASIN"); @@ -1069,7 +1069,7 @@ gfc_simplify_asinh (gfc_expr *x) case BT_COMPLEX: return NULL; default: - gfc_internal_error ("in gfc_simplify_cos(): Bad type"); + gfc_internal_error ("in gfc_simplify_asinh(): Bad type"); } return range_check (result, "ASINH"); @@ -1093,7 +1093,7 @@ gfc_simplify_atan (gfc_expr *x) case BT_COMPLEX: return NULL; default: - gfc_internal_error ("in gfc_simplify_cos(): Bad type"); + gfc_internal_error ("in gfc_simplify_atan(): Bad type"); } return range_check (result, "ATAN"); @@ -1125,7 +1125,7 @@ gfc_simplify_atanh (gfc_expr *x) case BT_COMPLEX: return NULL; default: - gfc_internal_error ("in gfc_simplify_cos(): Bad type"); + gfc_internal_error ("in gfc_simplify_atanh(): Bad type"); } return range_check (result, "ATANH"); -- 2.11.0