[Bug fortran/97218] New: gcc/fortran/resolve.c:6807: pointless Assignment

[dcb314 at hotmail dot com]

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

            Bug ID: 97218
           Summary: gcc/fortran/resolve.c:6807: pointless Assignment
           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: ---

I can't quite remember if we have had this one before.
My apologies if this is already known about.

Source code is

          for (; args; args = args->next)
            if (expr == args->expr)
              expr = args->expr;

git blame says:

94fae14bf8aa (Paul Thomas              2012-01-02 12:46:08 +0000  6805)        
  for (; args; args = args->next)
94fae14bf8aa (Paul Thomas              2012-01-02 12:46:08 +0000  6806)        
    if (expr == args->expr)
94fae14bf8aa (Paul Thomas              2012-01-02 12:46:08 +0000  6807)        
      expr = args->expr;