{ %NORUN}
{ %fail }
program tw25077;

TYPE AnyName = TYPE PROCEDURE (A : INTEGER);

begin
end.