From 677494982bb51e11620b30a5f17601dba987a10c Mon Sep 17 00:00:00 2001 From: "Kaveh R. Ghazi" Date: Fri, 25 Sep 2009 04:40:36 +0000 Subject: [PATCH] simplify.c (gfc_simplify_acos, [...]): Fix error message. * simplify.c (gfc_simplify_acos, gfc_simplify_acosh, gfc_simplify_asin, gfc_simplify_asinh, gfc_simplify_atan, gfc_simplify_atanh): Fix error message. From-SVN: r152155 --- 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.30.2