-- Testing procedure block

procedure goodtest2 is
begin
  null;
end goodtest2;