OSDN Git Service

* tree-ssa-pre.c (create_component_ref_by_pieces_1) <ARRAY_REF>: Drop
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gnat.dg / deep_old.adb
1 --  { dg-options "-gnatws" }
2
3 procedure Deep_Old (X : Integer) is
4 begin
5    begin
6       if X = X'Old then
7          null;
8       end if;
9    end;
10 end Deep_Old;