[Bug fortran/111271] New: gcc/fortran/trans-expr.cc:1134:8: warning: duplicated ‘if’ condition [-Wduplicated-cond]

[dcb314 at hotmail dot com via Gcc-bugs]

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

            Bug ID: 111271
           Summary: gcc/fortran/trans-expr.cc:1134:8: warning: duplicated
                    ‘if’ condition [-Wduplicated-cond]
           Product: gcc
           Version: unknown
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: dcb314 at hotmail dot com
  Target Milestone: ---

Source code is

  if (unlimited_poly)
    {
       // ...
    }
  else if (unlimited_poly)
    { 
      ctree = gfc_class_len_get (var);
      gfc_add_modify (&parmse->pre, ctree,
                      fold_convert (TREE_TYPE (ctree),
                                    integer_zero_node));
    }      

Suggest code rework.