MODULE TBadParent;
TYPE
  CLASS Sub (Nope);
    n : INTEGER;
  END Sub;
BEGIN
END TBadParent.