gdb/testsuite/gdb.ada/complete/foo.adb

   1 with Pck; use Pck;
   2
   3 procedure Foo is
   4    Some_Local_Variable : Integer := 1;
   5    External_Identical_Two : Integer := 74;
   6 begin
   7    My_Global_Variable := Some_Local_Variable + 1; -- START
   8    Proc (External_Identical_Two);
   9 end Foo;
  10