blob: 7beab9540d0ade9ea4b906f600cc315cd86db7fb [file] [log] [blame]
-- { dg-do compile }
with Discr34_Pkg; use Discr34_Pkg;
procedure Discr34 is
Object : Rec := F;
begin
null;
end;