https://gcc.gnu.org/bugzilla/show_bug.cgi?id=85896

Thomas Koenig <tkoenig at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|NEW                         |ASSIGNED
           Assignee|unassigned at gcc dot gnu.org      |tkoenig at gcc dot 
gnu.org

--- Comment #7 from Thomas Koenig <tkoenig at gcc dot gnu.org> ---
A rare case where fixing a bug involves removing code only.

Index: simplify.c
===================================================================
--- simplify.c  (Revision 265502)
+++ simplify.c  (Arbeitskopie)
@@ -4961,11 +4961,9 @@
 simplify_min_max (gfc_expr *expr, int sign)
 {
   gfc_actual_arglist *arg, *last, *extremum;
-  gfc_intrinsic_sym * specific;

   last = NULL;
   extremum = NULL;
-  specific = expr->value.function.isym;

   arg = expr->value.function.actual;

@@ -4995,15 +4993,6 @@
   if (expr->value.function.actual->next != NULL)
     return NULL;

-  /* Convert to the correct type and kind.  */
-  if (expr->ts.type != BT_UNKNOWN)
-    return gfc_convert_constant (expr->value.function.actual->expr,
-       expr->ts.type, expr->ts.kind);
-
-  if (specific->ts.type != BT_UNKNOWN)                                         
-    return gfc_convert_constant (expr->value.function.actual->expr,            
-       specific->ts.type, specific->ts.kind);                                  
-                                                                               
   return gfc_copy_expr (expr->value.function.actual->expr);                    
 }

Reply via email to