diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2015-11-04 20:32:54 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2015-11-04 20:32:54 +0000 |
| commit | a3afde42598578a00cd15c98e70c14f704bc39ae (patch) | |
| tree | f0074a57080639b6427cbe8b7efedfac2672ead1 /gcc | |
| parent | 5d6823a25ec072c8f342a94f86ab159d4659c43d (diff) | |
| download | gcc-a3afde42598578a00cd15c98e70c14f704bc39ae.zip gcc-a3afde42598578a00cd15c98e70c14f704bc39ae.tar.gz gcc-a3afde42598578a00cd15c98e70c14f704bc39ae.tar.bz2 | |
* gnat.dg/slice9.adb: New test.
From-SVN: r229779
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 8 | ||||
| -rw-r--r-- | gcc/testsuite/gnat.dg/slice9.adb | 18 |
2 files changed, 22 insertions, 4 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 40a5dd2..1733e60 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 0000000..2a90a9c --- /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; |