aboutsummaryrefslogtreecommitdiffstats
path: root/test/FrontendAda/vce_lv.adb
blob: 4ca4d5c8b542e0fd47b15015de072c1c0195d563 (plain)
1
2
3
4
5
6
7
8
9
-- RUN: %llvmgcc -c %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;