diff options
| author | Jakub Jelinek <jakub@redhat.com> | 2015-02-12 10:13:58 +0000 |
|---|---|---|
| committer | Jakub Jelinek <jakub@redhat.com> | 2015-02-12 10:13:58 +0000 |
| commit | 70a0fe566ad0f94ff9cdf98bb230135c6d75f683 (patch) | |
| tree | b049bced061eb1c69d160aaee2452dbc3d15ec49 /gcc/testsuite/gnat.dg/unchecked_convert1.adb | |
| parent | f17e41c12d71ca74fe59bcf3ea59fe7410918673 (diff) | |
| parent | 00087f8041b7e9708c37eb315ebf25999043f3c9 (diff) | |
svn merge -r219311:220635 svn+ssh://gcc.gnu.org/svn/gcc/branches/gcc-4_9-branchredhat/gcc-4_9-branch
git-svn-id: https://gcc.gnu.org/svn/gcc/branches/redhat/gcc-4_9-branch@220644 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite/gnat.dg/unchecked_convert1.adb')
| -rw-r--r-- | gcc/testsuite/gnat.dg/unchecked_convert1.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gcc/testsuite/gnat.dg/unchecked_convert1.adb b/gcc/testsuite/gnat.dg/unchecked_convert1.adb index eb63d59a884..1a02c195b7c 100644 --- a/gcc/testsuite/gnat.dg/unchecked_convert1.adb +++ b/gcc/testsuite/gnat.dg/unchecked_convert1.adb @@ -4,6 +4,7 @@ with Ada.Unchecked_Conversion; procedure Unchecked_Convert1 is + type Byte is mod 2**8; type Stream is array (Natural range <>) of Byte; @@ -24,9 +25,10 @@ procedure Unchecked_Convert1 is return Do_Sum (To_Chunk (S(S'First .. S'First + Rec'Size / 8 - 1))); end; - A : Stream (1..9); + A : Stream (1..9) := (others => 0); I : Integer; begin + A (9) := 1; I := Sum (A(1..8)); end; |