libadalang_tools_22.0.0_c9028428/testsuite/tests/refactoring_safe_rename/U706-002/main.adb

1
2
3
4
5
6
with Ada.Text_IO; use Ada.Text_IO;
procedure Main is
   type Cargo is (Bar, Baz, Qux);
begin
   Ada.Text_IO.Put_Line (Bar'Image);
end Main;