Gitiles
Code Review Sign In
gerrit-public.fairphone.software / toolchain / llvm-project / 369bddf5ad8cb1543d38d4afd12cce768292114a / . / llvm / test / FrontendAda / vce.adb
blob: 85cdca066a296080d30fb4e78b971c899afccb66 [file] [log] [blame]
Duncan Sands2b5243d2010-11-25 21:21:59 +0000[diff] [blame]1-- RUN: %llvmgcc -S %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;