1-- { dg-do compile }
2
3with Discr34_Pkg; use Discr34_Pkg;
4
5procedure Discr34 is
6   Object : Rec := F;
7begin
8   null;
9end;
10