blob: 8accc70d04231ec8a055958bf671ac02701465a1 [file] [log] [blame]
-- { dg-do compile }
with ext1; use ext1;
procedure test_ext1 is
X : Regular_Smiley;
begin
X.Set_Mood;
end;