Gitiles
Code Review Sign In
gerrit-public.fairphone.software / fp2-dev / platform / external / llvm / cad129bcc0a23d1acfb6560f12ff1066c7b42ba0 / . / test / FrontendAda / vce.adb
blob: 85cdca066a296080d30fb4e78b971c899afccb66 [file] [log] [blame]
Duncan Sands53910d92010-11-25 21:21:59 +0000[diff] [blame]1-- RUN: %llvmgcc -S %s
Chris Lattnere10988d2007-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;