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

package body Pck is

   procedure Proc (I : Integer) is
      Not_In_Scope : Integer := 77;
   begin
      Inner.Inside_Variable := Not_In_Scope + I;
   end Proc;

end Pck;
Commit	Line	Data
439048e8 JB	1	package body Pck is
	2
	3	procedure Proc (I : Integer) is
	4	Not_In_Scope : Integer := 77;
	5	begin
	6	Inner.Inside_Variable := Not_In_Scope + I;
	7	end Proc;
	8
	9	end Pck;