Gitiles
Code Review
Sign In
gerrit-public.fairphone.software
/
fp2-dev
/
platform
/
external
/
llvm
/
e209c383038f9e58c52c8b168879874818c63b11
/
.
/
test
/
FrontendAda
/
debug_var_size.ads
blob: ea966fbae0fe878df4886374144ecc6572b368a5 [
file
] [
log
] [
blame
]
--
RUN
:
%
llvmgcc
-
c
-
g
%
s
package
Debug_Var_Size
is
subtype
Length_Type
is
Positive
range
1
..
64
;
type T
(
Length
:
Length_Type
:=
1
)
is
record
Varying_Length
:
String
(
1
..
Length
);
Fixed_Length
:
Boolean
;
end
record
;
end
;