Gitiles
Code Review
Sign In
gerrit-public.fairphone.software
/
platform
/
external
/
llvm
/
d60a18dfbc33b33ab07146641b72fbd33c25d69c
/
.
/
test
/
FrontendAda
/
unc_constructor.ads
blob: d6f8db50d897d212f0a690bb50f21e94497d4e51 [
file
] [
log
] [
blame
]
package
Unc_Constructor
is
type C
is
null
record
;
type A
is
array
(
Positive
range
<>)
of C
;
A0
:
constant A
;
procedure P
(
X
:
A
);
private
A0
:
aliased constant A
:=
(
1
..
0
=>
(
null
record
));
end
;