{ %fail } unit tb0187; interface procedure p;local; implementation procedure p;local; begin end; begin end.