Sorry ... my example more geared as to what to type and let SE do the formatting.
Seems that a space, which currently triggers the Syntax expansion, (or "Return" if used instead of space to skip Syntax expansion) would feel like the most natural time to correct the indentation. (Eclipse triggers the indentation correction on the "return" but doesn't seem to do Syntax Expansion for the begin block.)
Expected indentation (which is also what the Beautifier does) is "begin" is under the "p".
package body example is
procedure test is
i : integer;
begin -- test
end test;
end example;