diff options
| author | Kaveh R. Ghazi <ghazi@caip.rutgers.edu> | 2009-09-25 04:40:36 +0000 |
|---|---|---|
| committer | Kaveh Ghazi <ghazi@gcc.gnu.org> | 2009-09-25 04:40:36 +0000 |
| commit | 677494982bb51e11620b30a5f17601dba987a10c (patch) | |
| tree | 8b12684724014aca9ef8bda131ce111dbb857ccf | |
| parent | 7930dab0d62ac6c4d6b3145744b9597e8c88dfe3 (diff) | |
| download | gcc-677494982bb51e11620b30a5f17601dba987a10c.zip gcc-677494982bb51e11620b30a5f17601dba987a10c.tar.gz gcc-677494982bb51e11620b30a5f17601dba987a10c.tar.bz2 | |
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
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/simplify.c | 12 |
2 files changed, 12 insertions, 6 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 650adca..e7826e0 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2009-09-25 Kaveh R. Ghazi <ghazi@caip.rutgers.edu> + + * 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 <kargl@gcc.gnu.org> PR fortran/41459 diff --git a/gcc/fortran/simplify.c b/gcc/fortran/simplify.c index fbb88a4..a22dd00 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"); |