Gitiles
Code Review
Sign In
gerrit-public.fairphone.software
/
fp2-dev
/
platform
/
external
/
llvm
/
09b51c348c9966bb6472f509bcf790ca98f8150c
/
.
/
test
/
FrontendAda
/
vce.adb
blob: f24045cbee3f08db616d6461e373ba8e9348fc26 [
file
] [
log
] [
blame
]
Duncan Sands
1b4b256
2007-07-23 13:41:53 +0000
[
diff
] [
blame
]
1
--
RUN
:
%
llvmgcc
-
c
%
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
;