Sign in
llvm
/
llvm
/
refs/heads/release_29
/
.
/
test
/
FrontendAda
/
debug_var_size.ads
blob: e8863cbddf94d73e049a4da5fbcbcb96be61f0e6 [
file
] [
log
] [
blame
]
--
RUN
:
%
llvmgcc
-
S
-
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
;