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

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

package Loop_Optimization7_Pkg is
  pragma Pure;

  type Rec is record
    F : Float;
  end record;

  function Conv (Trig : Rec) return Rec;

end Loop_Optimization7_Pkg;