gdb/testsuite/gdb.ada/complete/pck.ads

   1 package Pck is
   2
   3    My_Global_Variable : Integer := 1;
   4
   5    Exported_Capitalized : Integer := 2;
   6    pragma Export (C, Exported_Capitalized, "Exported_Capitalized");
   7
   8    Local_Identical_One : Integer := 4;
   9    Local_Identical_Two : Integer := 8;
  10
  11    External_Identical_One : Integer := 19;
  12
  13    package Inner is
  14       Inside_Variable : Integer := 3;
  15    end Inner;
  16
  17    procedure Proc (I : Integer);
  18
  19 end Pck;