deep_old.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/deep_old.adb

blob: d7818ff96869fcb95a347dc8e14b522c5a7fcc70 (plain)

--  { dg-options "-gnatws" }

procedure Deep_Old (X : Integer) is
begin
   begin
      if X = X'Old then
         null;
      end if;
   end;
end Deep_Old;