Gitiles
Code Review
Sign In
gerrit-public.fairphone.software
/
platform
/
external
/
llvm
/
713bc585ef5f60129c950f69392cefa85b9aaac1
/
.
/
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;