RFC on reduce intrinsic function, dead code?

[Jerry D]

While looking at other things I noticed what I think is dead code.

libgfortran/intrinsics/reduce.c

  bool masked = false;

which is never changed.

Farther down in the function:

      if (masked && (ext != GFC_DESCRIPTOR_EXTENT (mask, i)))
        {
          int mext = (int)GFC_DESCRIPTOR_EXTENT (mask, i);
          runtime_error ("shape mismatch between ARRAY and MASK in the REDUCE "
                         "intrinsic (%" FLM_Z "d/%d)", ext, mext);
        }

I wonder if this is supposed have been mask_present?

Regards,

Jerry