[Bug ada/27225] Wide_String slice assignment in nested procedure does not work properly

[bauhaus at futureapps dot de]

------- Comment #3 from bauhaus at futureapps dot de  2006-04-30 02:35 -------
One more that doesn't work:

      result(txt'first .. txt'first + 3) := ('x', 'x', 'x', 'x');

These rewritten assignments do work as expected

      result(txt'first .. txt'first + 3) := (1 .. 4 => 'x');

      result(txt'first .. txt'first + 3) :=
         (1 => 'x', 2 => 'x', 3 => 'x', 4 => 'x');

      result(txt'first .. txt'first + 3) :=
         (txt'first .. txt'first + 3 => 'x');

referring to
Target: i686-pc-linux-gnu
Configured with: ../../gcc/configure --enable-threads --disable-nls
--enable-languages=c,ada,c++,fortran
Thread model: posix
gcc version 4.1.0


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=27225