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

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

with Ada.Calendar; use Ada.Calendar;\r
\r
package Opt7 is\r
\r
   type time_t is (Absolute_Time, Delta_Time);\r
\r
   procedure Parse (Str       :     String;\r
                    Time_Type : out time_t;\r
                    Abs_Time  : out Time;\r
                    Delt_Time : out Duration);\r
\r
end Opt7;\r