pck.adb

gdb-6.8 Linux下的调试程序 最新版本

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;