Gitiles
Code Review Sign In
gerrit-public.fairphone.software / platform / external / llvm / 901b5750b2af095bb0e359f4d2c3debef3ad57e6 / . / test / FrontendAda / vce.adb
blob: f24045cbee3f08db616d6461e373ba8e9348fc26 [file] [log] [blame]
Duncan Sands2ceab522007-07-23 13:41:53 +0000[diff] [blame]1-- RUN: %llvmgcc -c %s
Dan Gohmanf17a25c2007-07-18 16:29:46 +0000[diff] [blame]2procedure VCE is
3 S : String (1 .. 2);
4 B : Character := 'B';
5begin
6 S := 'A' & B;
7end;