summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/test_ext1.adb
blob: 8accc70d04231ec8a055958bf671ac02701465a1 (plain)
1
2
3
4
5
6
7
8
-- { dg-do compile }

with ext1; use ext1;
procedure test_ext1 is
    X : Regular_Smiley;
begin
    X.Set_Mood;
end;