From: Eric Botcazou <ebotcazou@adacore.com>
Date: Sun, 9 Mar 2008 15:35:54 +0000 (+0000)
Subject: frame_overflow.adb: Improve portability.
X-Git-Tag: prereleases/gcc-4.2.4-rc1~89
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b9baa3ce059b8f07c64867399ecd355faf254b82;p=thirdparty%2Fgcc.git

frame_overflow.adb: Improve portability.

	* gnat.dg/frame_overflow.adb: Improve portability.

From-SVN: r133056
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 10b5a150d4c2..e7ff57751668 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2008-03-09  Eric Botcazou  <ebotcazou@adacore.com>
+
+	* gnat.dg/frame_overflow.adb: Improve portability.
+
 2008-03-06  Daniel Jacobowitz  <dan@codesourcery.com>
 
 	* gcc.c-torture/execute/20080222-1.c: New test.
diff --git a/gcc/testsuite/gnat.dg/frame_overflow.adb b/gcc/testsuite/gnat.dg/frame_overflow.adb
index 4172fc013ce9..286c93d59838 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