* gdb.ada (bar.ads, bar.adb, null_record.adb): New files.

[thirdparty/binutils-gdb.git] / gdb / testsuite / gdb.ada / null_record.adb

with Bar; use Bar;

procedure Null_Record is
begin
   Do_Nothing;
end Null_Record;