test/FrontendAda/vce_lv.adb

   1 -- RUN: %llvmgcc -c %s
   2 procedure VCE_LV is
   3    type P is access String ;
   4    type T is new P (5 .. 7);
   5    subtype U is String (5 .. 7);
   6    X : T := new U'(others => 'A');
   7 begin
   8    null;
   9 end;