From: Eric Botcazou <ebotcazou@adacore.com>
Date: Wed, 4 Nov 2015 20:32:54 +0000 (+0000)
Subject: * gnat.dg/slice9.adb: New test.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=a3afde42598578a00cd15c98e70c14f704bc39ae;p=gcc.git

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

From-SVN: r229779
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 40a5dd2ef8a..1733e60e691 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+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
diff --git a/gcc/testsuite/gnat.dg/slice9.adb b/gcc/testsuite/gnat.dg/slice9.adb
new file mode 100644
index 00000000000..2a90a9c631c
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/slice9.adb
@@ -0,0 +1,18 @@
+-- { 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;