Sign in
llvm
/
llvm
/
607faa54b2ea98f97171b0094e18cc10681b8fde
/
.
/
test
/
FrontendAda
/
Support
/
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
;