gdb/testsuite/lib/gnat_debug_info_test.adb

with Ada.Text_IO;

procedure GNAT_Debug_Info_Test is
begin
   Ada.Text_IO.Put_Line("Hello, world!");
end GNAT_Debug_Info_Test;