2008-04-14 Robert Dewar <dewar@adacore.com>

[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gnat.dg / deep_old.adb

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