libadalang/testsuite/tests/python/prep_data_file/foo.adb

with Ada.Text_IO; use Ada.Text_IO;

procedure Foo is
#if X'Defined then
   procedure $X is
   begin
      Put_Line ("$X");
   end $X;
#else
   procedure Bar is null;
#end if;
begin
   Bar;
end Foo;