Gitiles
Code Review
Sign In
gerrit-public.fairphone.software
/
fp2-dev
/
platform
/
external
/
llvm
/
e209c383038f9e58c52c8b168879874818c63b11
/
.
/
test
/
FrontendAda
/
init_size.ads
blob: 1d76ba24f3414d7b02f5644fd27666343dd690e2 [
file
] [
log
] [
blame
]
--
RUN
:
%
llvmgcc
-
c
%
s
package
Init_Size
is
type T
(
B
:
Boolean
:=
False
)
is
record
case
B
is
when
False
=>
I
:
Integer
;
when
True
=>
J
:
Long_Long_Integer
;
--
Bigger
than I
end
case
;
end
record
;
A_T
:
constant T
:=
(
False
,
0
);
end
;