binutils-gdb/gdb/testsuite/gdb.ada/exec_changed/first.adb

procedure First is
begin
   null;
end First;