Gitiles
Code Review
Sign In
gerrit-public.fairphone.software
/
fp2-dev
/
platform
/
external
/
llvm
/
53910d9993cd569e70794108bff175108f6241d7
/
.
/
test
/
FrontendAda
/
vce.adb
blob: 85cdca066a296080d30fb4e78b971c899afccb66 [
file
] [
log
] [
blame
]
Duncan Sands
53910d9
2010-11-25 21:21:59 +0000
[
diff
] [
blame^
]
1
--
RUN
:
%
llvmgcc
-
S
%
s
Chris Lattner
e10988d
2007-04-03 21:46:22 +0000
[
diff
] [
blame
]
2
procedure VCE
is
3
S
:
String
(
1
..
2
);
4
B
:
Character
:=
'B'
;
5
begin
6
S
:=
'A'
&
B
;
7
end
;