This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[Ada] Tweak gnat.dg/frame_overflow.adb
- From: Eric Botcazou <ebotcazou at adacore dot com>
- To: gcc-patches at gcc dot gnu dot org
- Date: Sun, 9 Mar 2008 16:36:26 +0100
- Subject: [Ada] Tweak gnat.dg/frame_overflow.adb
To let it pass everywhere.
Tested on i586-suse-linux, applied on all branches.
2008-03-09 Eric Botcazou <ebotcazou@adacore.com>
* gnat.dg/frame_overflow.adb: Improve portability.
--
Eric Botcazou
Index: frame_overflow.adb
===================================================================
--- frame_overflow.adb (revision 132837)
+++ frame_overflow.adb (working copy)
@@ -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