OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
This commit is contained in:
Kaveh R. Ghazi 2009-09-25 04:40:36 +00:00 committed by Kaveh Ghazi
parent 7930dab0d6
commit 677494982b
2 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

@ -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

12
gcc/fortran/simplify.c
View File

@ -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");