Sign in
llvm
/
llvm
/
refs/heads/release_26
/
.
/
test
/
FrontendAda
/
vce_lv.adb
blob: 4ca4d5c8b542e0fd47b15015de072c1c0195d563 [
file
] [
log
] [
blame
]
--
RUN
:
%
llvmgcc
-
c
%
s
procedure VCE_LV
is
type P
is
access
String
;
type T
is
new
P
(
5
..
7
);
subtype U
is
String
(
5
..
7
);
X
:
T
:=
new
U
'(others => '
A
');
begin
null;
end;