diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2009-04-15 09:04:56 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-15 11:04:56 +0200 |
| commit | 6891bd6c7195e0b8d1e25a712f70d03e5b05a482 (patch) | |
| tree | 1d4084284e6c010937c0046fb47f08f85eb959e9 /gcc/testsuite | |
| parent | 3b482fca4fd5b2cb58fffffa6ca2723bccf3d9d4 (diff) | |
| download | gcc-6891bd6c7195e0b8d1e25a712f70d03e5b05a482.zip gcc-6891bd6c7195e0b8d1e25a712f70d03e5b05a482.tar.gz gcc-6891bd6c7195e0b8d1e25a712f70d03e5b05a482.tar.bz2 | |
sync1.ads: Fix error now flagged by gnat.
* gnat.dg/sync1.ads: Fix error now flagged by gnat.
* gnat.dg/specs/limited1.ads: Ditto.
From-SVN: r146088
Diffstat (limited to 'gcc/testsuite')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gnat.dg/specs/limited1.ads | 2 | ||||
| -rw-r--r-- | gcc/testsuite/gnat.dg/sync1.ads | 2 |
3 files changed, 6 insertions, 3 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 422ef07..f55193f 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2009-04-15 Arnaud Charlet <charlet@adacore.com> + + * gnat.dg/sync1.ads: Fix error now flagged by gnat. + * gnat.dg/specs/limited1.ads: Ditto. + 2009-04-14 Michael Meissner <meissner@linux.vnet.ibm.com> PR testsuite/39769 diff --git a/gcc/testsuite/gnat.dg/specs/limited1.ads b/gcc/testsuite/gnat.dg/specs/limited1.ads index 268eb22..375cf66 100644 --- a/gcc/testsuite/gnat.dg/specs/limited1.ads +++ b/gcc/testsuite/gnat.dg/specs/limited1.ads @@ -5,8 +5,6 @@ package limited1 is type Buffer is limited interface; type Synchronous_Buffer_Type is synchronized interface and Buffer; - type Client_Buffer_Type is new Synchronous_Buffer_Type with private; private - type Client_Buffer_Type is new Synchronous_Buffer_Type with null record; end limited1; diff --git a/gcc/testsuite/gnat.dg/sync1.ads b/gcc/testsuite/gnat.dg/sync1.ads index 81c2f4a..3534977 100644 --- a/gcc/testsuite/gnat.dg/sync1.ads +++ b/gcc/testsuite/gnat.dg/sync1.ads @@ -1,7 +1,7 @@ package sync1 is type Chopstick_Type is synchronized interface; - type Chopstick is new Chopstick_Type with private; + type Chopstick is synchronized new Chopstick_Type with private; private protected type Chopstick is new Chopstick_Type with entry Pick_Up; |