Sign in
llvm
/
llvm
/
refs/heads/release_26
/
.
/
test
/
FrontendAda
/
Support
/
var_size.ads
blob: 6a570cba8bd1f2df2c13bec5c7c263702a8b88ae [
file
] [
log
] [
blame
]
package
Var_Size
is
type T
(
Length
:
Natural
)
is
record
A
:
String
(
1
..
Length
);
B
:
String
(
1
..
Length
);
end
record
;
function
A
(
X
:
T
)
return
String
;
end
;