diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2008-03-09 15:34:33 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2008-03-09 15:34:33 +0000 |
| commit | eafaa35bc232db247a96872f785e7fd5a3c69cb7 (patch) | |
| tree | 2e8e3265f1bb65f796a726dc75a05851c2b7f5ad | |
| parent | be3d47899e7cb4631032a36de11a4cc8bcde7bcb (diff) | |
| download | gcc-eafaa35bc232db247a96872f785e7fd5a3c69cb7.zip gcc-eafaa35bc232db247a96872f785e7fd5a3c69cb7.tar.gz gcc-eafaa35bc232db247a96872f785e7fd5a3c69cb7.tar.bz2 | |
frame_overflow.adb: Improve portability.
* gnat.dg/frame_overflow.adb: Improve portability.
From-SVN: r133054
| -rw-r--r-- | gcc/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | 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 aff51c6..ee2790b 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-08 H.J. Lu <hongjiu.lu@intel.com> PR target/35350 diff --git a/gcc/testsuite/gnat.dg/frame_overflow.adb b/gcc/testsuite/gnat.dg/frame_overflow.adb index 4172fc0..286c93d 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 |