resolve.c (compare_case): Give arguments correct type.

2005-01-14  Steven G. Kargl  <kargls@comcast.net>

	* resolve.c (compare_case): Give arguments correct type.

From-SVN: r93637

gcc/fortran/ChangeLog

+2005-01-14  Steven G. Kargl  <kargls@comcast.net>
+
+	* resolve.c (compare_case): Give arguments correct type.
+
 2005-01-13  Kazu Hirata  <kazu@cs.umass.edu>
 
 	* iresolve.c, trans-common.c, trans-types.c: Fix comment

gcc/fortran/resolve.c

@@ -2496,12 +2496,8 @@ resolve_allocate_expr (gfc_expr * e)
    op1 > op2.  Assumes we're not dealing with the default case.  */
 
 static int
-compare_cases (const void * _op1, const void * _op2)
+compare_cases (const gfc_case * op1, const gfc_case * op2)
 {
-  const gfc_case *op1, *op2;
-
-  op1 = (const gfc_case *) _op1;
-  op2 = (const gfc_case *) _op2;
 
   if (op1->low == NULL) /* op1 = (:N) */
     {