From eafaa35bc232db247a96872f785e7fd5a3c69cb7 Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Sun, 9 Mar 2008 15:34:33 +0000 Subject: [PATCH] frame_overflow.adb: Improve portability. * gnat.dg/frame_overflow.adb: Improve portability. From-SVN: r133054 --- gcc/testsuite/ChangeLog | 4 ++++ gcc/testsuite/gnat.dg/frame_overflow.adb | 8 +++++--- 2 files changed, 9 insertions(+), 3 deletions(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index aff51c67b2f..ee2790b5141 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2008-03-09 Eric Botcazou + + * gnat.dg/frame_overflow.adb: Improve portability. + 2008-03-08 H.J. Lu PR target/35350 diff --git a/gcc/testsuite/gnat.dg/frame_overflow.adb b/gcc/testsuite/gnat.dg/frame_overflow.adb index 4172fc013ce..286c93d5983 100644 --- a/gcc/testsuite/gnat.dg/frame_overflow.adb +++ b/gcc/testsuite/gnat.dg/frame_overflow.adb @@ -1,15 +1,17 @@ -- { dg-do compile } +with System; + procedure frame_overflow is - type Bitpos_Range_T is new Positive; + type Bitpos_Range_T is range 1..2**(System.Word_Size-1)-1; type Bitmap_Array_T is array (Bitpos_Range_T) of Boolean; type Bitmap_T is record Bits : Bitmap_Array_T := (others => False); end record; - function -- { dg-error "too large" "" } + function -- { dg-error "too large" } Set_In (Bitmap : Bitmap_T; Bitpos : Bitpos_Range_T) return Bitmap_T is Result: Bitmap_T := Bitmap; @@ -18,7 +20,7 @@ procedure frame_overflow is return Result; end; - function -- { dg-error "too large" "" } + function -- { dg-error "too large" } Negate (Bitmap : Bitmap_T) return Bitmap_T is Result: Bitmap_T; begin -- 2.30.2