procedure Foo is
begin
   raise Foo_Error;
end Foo;