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

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

Browse Source 
From-SVN: r156216
This commit is contained in:
Arnaud Charlet 2010-01-25 16:25:29 +00:00 committed by Arnaud Charlet
parent 3d92367153
commit a4fb8087d0
2 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,7 @@
2010-01-25 Arnaud Charlet <charlet@adacore.com>
* gnat.dg/array_bounds_test.adb: New test.
2010-01-25 Tobias Burnus <burnus@net-b.de>
PR fortran/42858

15
gcc/testsuite/gnat.dg/array_bounds_test.adb Normal file
View File

@ -0,0 +1,15 @@
-- { dg-do run }
with Ada.Streams; use Ada.Streams;
procedure Array_Bounds_Test is
One : constant Stream_Element := 1;
Two : constant Stream_Element := 2;
Sample : constant Stream_Element_Array := (0 => One) & Two;
begin
if Sample'First /= 0 then
raise Program_Error;
end if;
if Sample'Last /= 1 then
raise Program_Error;
end if;
end Array_Bounds_Test;