aboutsummaryrefslogtreecommitdiffstats
path: root/test/FrontendAda/vce_lv.adb
blob: d1b9e0824f17c3786e37c4215396a195a014e776 (plain)
1
2
3
4
5
6
7
8
9
-- RUN: %llvmgcc -S %s
procedure VCE_LV is
   type P is access String ;
   type T is new P (5 .. 7);
   subtype U is String (5 .. 7);
   X : T := new U'(others => 'A');
begin
   null;
end;