mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-08 19:20:44 +08:00
Code Issues Packages Projects Releases Wiki Activity

* gnat.dg/specs/sync_iface_test.ads: New test.

Browse Source 
From-SVN: r138402
This commit is contained in:
Arnaud Charlet 2008-07-31 12:49:43 +00:00 committed by Arnaud Charlet
parent f32b9cd128
commit 37ff8abac0
2 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,7 @@
2008-07-31 Arnaud Charlet <charlet@adacore.com>
* gnat.dg/specs/sync_iface_test.ads: New test.
2008-07-31 H.J. Lu <hongjiu.lu@intel.com>
* gcc.dg/torture/stackalign/pr16660-1.c: Include "check.h".

14
gcc/testsuite/gnat.dg/specs/sync_iface_test.ads Normal file
View File

@ -0,0 +1,14 @@
-- { dg-do compile }
-- { dg-options "-gnatc" }
package Sync_Iface_Test is
type Iface is limited interface;
procedure Do_Test
(Container : in out Iface;
Process : access procedure (E : Natural)) is abstract;
protected type Buffer is new Iface with
overriding procedure Do_Test
(Process : access procedure (E : Natural));
end;
end;