anon2.adb « gnat.dg « testsuite « gcc - cbb-gcc-4.6.4 - compiler building blocks: cbb-gcc-4.6.4: including full support for the midipix targets

summary refs log tree commit diff

path: root/gcc/testsuite/gnat.dg/anon2.adb

blob: c114fcc8555aa8ea8fa9c12166bf60ced0ee1a61 (plain)

-- { dg-do compile }

with anon1;
procedure anon2 is
begin
   if anon1.F /= null then
      null;
   end if;
end anon2;