* tree-ssa-pre.c (create_component_ref_by_pieces_1) <ARRAY_REF>: Drop

[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gnat.dg / deref1.ads

package deref1 is
  type T is tagged limited null record;
   procedure Op (Obj : in out T);
end deref1;