gcc-4.9/gcc/testsuite/gnat.dg/opt7.ads


1
2
3
4
5
6
7
8
9
10
11
12

with Ada.Calendar; use Ada.Calendar;

package Opt7 is

   type time_t is (Absolute_Time, Delta_Time);

   procedure Parse (Str       :     String;
                    Time_Type : out time_t;
                    Abs_Time  : out Time;
                    Delt_Time : out Duration);

end Opt7;