From b9baa3ce059b8f07c64867399ecd355faf254b82 Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Sun, 9 Mar 2008 15:35:54 +0000 Subject: [PATCH] frame_overflow.adb: Improve portability. * gnat.dg/frame_overflow.adb: Improve portability. From-SVN: r133056 --- 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 10b5a150d4c2..e7ff57751668 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-06 Daniel Jacobowitz * 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 -- 2.47.2