[Bug ada/56474] [4.8/4.9 regression] bogus Storage_Error raised for record containing empty zero-based array

[ebotcazou at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=56474

--- Comment #19 from Eric Botcazou <ebotcazou at gcc dot gnu.org> 2013-05-07 08:07:27 UTC ---
Author: ebotcazou
Date: Tue May  7 07:59:37 2013
New Revision: 198663

URL: http://gcc.gnu.org/viewcvs?rev=198663&root=gcc&view=rev
Log:
    PR ada/56474
    * gcc-interface/decl.c (gnat_to_gnu_entity) <E_Array_Subtype>: Use
    int_const_binop to shift bounds by 1 when they are integer constants.

Added:
    trunk/gcc/testsuite/gnat.dg/specs/array3.ads
Modified:
    trunk/gcc/ada/ChangeLog
    trunk/gcc/ada/gcc-interface/decl.c
    trunk/gcc/testsuite/ChangeLog