PR ipa/83051
[official-gcc.git] / gcc / testsuite / gnat.dg / initializes.ads
blobd7b2f93342fbf31f949a216658117240ab255331
1 package Initializes is
2 protected PO is
3 procedure Proc;
4 private
5 X : Boolean := True;
6 end PO;
8 protected type PT is
9 procedure Proc;
10 private
11 X : Boolean := True;
12 end PT;
13 end Initializes;