2010-11-11 Jakub Jelinek <jakub@redhat.com>
[official-gcc.git] / gcc / testsuite / gnat.dg / test_ext1.adb
blob8accc70d04231ec8a055958bf671ac02701465a1
1 -- { dg-do compile }
3 with ext1; use ext1;
4 procedure test_ext1 is
5 X : Regular_Smiley;
6 begin
7 X.Set_Mood;
8 end;