OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

Browse Source 
From-SVN: r229779
This commit is contained in:
Eric Botcazou 2015-11-04 20:32:54 +00:00 committed by Eric Botcazou
parent 5d6823a25e
commit a3afde4259
2 changed files with 22 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gcc/testsuite/ChangeLog
View File

@ -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

18
gcc/testsuite/gnat.dg/slice9.adb Normal file
View File

@ -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;