Untabified and resubmitted: Patch to gfortran PR13742

[Paul Brook]

> >>+              if (h->sym->value)
> >>+                {
> >>+                  if (h->offset < offset)
> >>+                    gfc_error ("Unsupported form of initialization"
> >>+                               " of EQUIVALENCEd variables");
> >
> > This should use sorry().
>
> It is never used in gcc/fortran directory, and I am trying to
> follow the example.

It's actually used via gfc_todo_error, because sorry() returns.

Paul