gcc/testsuite/gnat.dg/opt7.ads

   1 with Ada.Calendar; use Ada.Calendar;
   2
   3 package Opt7 is
   4
   5    type time_t is (Absolute_Time, Delta_Time);
   6
   7    procedure Parse (Str       :     String;
   8                     Time_Type : out time_t;
   9                     Abs_Time  : out Time;
  10                     Delt_Time : out Duration);
  11
  12 end Opt7;