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

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

package TREE_STATIC_Def is

   type Int is record
      Value : Integer;
   end record;

   procedure check (I : Int; v : integer);

   One : constant Int := (Value => 1);
end;