Sign in
gnu
/
gcc
/
93ac832f1846e4867aa6537f76f510fab8e3e87d
/
.
/
gcc
/
testsuite
/
gnat.dg
/
opt7.ads
blob: 99224bf3612b5beeb49a1e8fd24296dd0a4afb98 [
file
] [
log
] [
blame
]
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
;