From a4fb8087d01315632563efe727d1c3d75cf17d33 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Mon, 25 Jan 2010 16:25:29 +0000 Subject: [PATCH] * gnat.dg/array_bounds_test.adb: New test. From-SVN: r156216 --- gcc/testsuite/ChangeLog | 4 ++++ gcc/testsuite/gnat.dg/array_bounds_test.adb | 15 +++++++++++++++ 2 files changed, 19 insertions(+) create mode 100644 gcc/testsuite/gnat.dg/array_bounds_test.adb diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 46b1eb071f7..d0a4de2315b 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2010-01-25 Arnaud Charlet + + * gnat.dg/array_bounds_test.adb: New test. + 2010-01-25 Tobias Burnus PR fortran/42858 diff --git a/gcc/testsuite/gnat.dg/array_bounds_test.adb b/gcc/testsuite/gnat.dg/array_bounds_test.adb new file mode 100644 index 00000000000..5be27ff804b --- /dev/null +++ b/gcc/testsuite/gnat.dg/array_bounds_test.adb @@ -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; -- 2.30.2