Cray Pointer patch bit rot

[Jack Howarth]

    Has anyone been monitoring the bit rot in the Cray pointer patch
while the wheel's spin uselessly on licensing details? Currently the
code in the cvs has diverged to the point where this section of the
patch is no longer applies...

***************
*** 4925,4930 ****
                       sym->name, &e->where);
            continue;
          }
        
        /* Shall not be a function name, ...  */
        if (sym->attr.function || sym->attr.result || sym->attr.entry
--- 4925,4938 ----
                       sym->name, &e->where);
            continue;
          }
+ 
+       /* Shall not be a Cray pointee.  */
+       if (sym->attr.cray_pointee)
+         {
+           gfc_error ("Cray Pointee '%s' at %L cannot be an EQUIVALENCE "
+                    "object", sym->name, &e->where);
+           continue;
+         }
        
        /* Shall not be a function name, ...  */
        if (sym->attr.function || sym->attr.result || sym->attr.entry

At least someone should periodically post an updated patch to help keep
track of the damage from time.
                Jack