Gitiles
Code Review Sign In
gerrit-public.fairphone.software / toolchain / llvm-project / c78fbf98774c4511f67a9909a5a08d201c617c63 / . / llvm / test / FrontendAda / vce.adb
blob: f24045cbee3f08db616d6461e373ba8e9348fc26 [file] [log] [blame]
Duncan Sands17474402007-07-23 13:41:53 +0000[diff] [blame]1-- RUN: %llvmgcc -c %s
Chris Lattner412c70e2007-04-03 21:46:22 +0000[diff] [blame]2procedure VCE is
3 S : String (1 .. 2);
4 B : Character := 'B';
5begin
6 S := 'A' & B;
7end;