xref: /Universal-ctags/Units/parser-ada.r/ada-whitespaces-between-id-and-colon.d/input.adb (revision 2fc563d8e8495e2010a80ff4859ac17521997c4d)

--  Taken from #2933 submitted by @koenmeersman
procedure Go is
begin
  Loop_Label :
  while True loop
    declare
      procedure Not_Tagged is
      begin
        null;
      end Step_T;
    begin
      null;
    end;
  end loop Loop_Label;
end Go;