test_ext1.adb « gnat.dg « testsuite « gcc « gcc-4.9 - toolchain_gcc - toolchain/gcc

about summary refs log tree commit diff stats

path: root/gcc-4.9/gcc/testsuite/gnat.dg/test_ext1.adb

blob: 8accc70d04231ec8a055958bf671ac02701465a1 (plain)

-- { dg-do compile }

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