[Bug fortran/97655] New: gcc/fortran/openmp.c:4133: possible cut'n'paste error ?

[dcb314 at hotmail dot com]

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

            Bug ID: 97655
           Summary: gcc/fortran/openmp.c:4133: possible cut'n'paste error
                    ?
           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: ---

gcc/fortran/openmp.c:4133:12: style: Expression is always false because 'else
if' condition matches previous condition at line 4131. [multiCondition]

Source code is

          if (c->atomic_op == GFC_OMP_ATOMIC_READ)
            c->memorder = OMP_MEMORDER_ACQUIRE;
          else if (c->atomic_op == GFC_OMP_ATOMIC_READ)
            c->memorder = OMP_MEMORDER_RELEASE;
          else
            c->memorder = OMP_MEMORDER_ACQ_REL;