* gnat.dg/slice9.adb: New test.

From-SVN: r229779

gcc/testsuite/ChangeLog

+2015-11-04  Eric Botcazou  <ebotcazou@adacore.com>
+
+	* gnat.dg/slice9.adb: New test.
+
 2015-11-04  Nathan Sidwell  <nathan@codesourcery.com>
 
 	* gfortran.dg/goacc/reduction-2.f95: Delete.
@@ -8,10 +12,6 @@
 	* gcc.dg/tree-ssa/restrict-7.c: New test.
 	* gcc.dg/tree-ssa/restrict-8.c: New test.
 
-2015-11-04  Eric Botcazou  <ebotcazou@adacore.com>
-
-	* gnat.dg/slice9.adb: New test.
-
 2015-11-03  Martin Sebor  <msebor@redhat.com>
 
 	PR c++-common/67882

gcc/testsuite/gnat.dg/slice9.adb

+-- { dg-do compile }
+
+procedure Slice9 is
+
+  function Ident (I : Integer) return Integer is
+  begin
+    return I;
+  end;
+
+  subtype S is String (Ident(5)..Ident(9));
+
+  Dest : S;
+
+  Src : String (Ident(1)..Ident(5)) := "ABCDE";
+
+begin
+  Dest (Ident(5)..Ident(7)) := Src (Ident(1)..Ident(3));
+end;