mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-16 18:40:57 +08:00
Code Issues Packages Projects Releases Wiki Activity

* gnat.dg/interface5.ad[sb]: New test.

Browse Source 
From-SVN: r135995
This commit is contained in:
Arnaud Charlet 2008-05-27 09:30:35 +00:00 committed by Arnaud Charlet
parent aeff280b14
commit f6879a7559
3 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
gcc/testsuite/ChangeLog
View File

@ -1,6 +1,7 @@
2008-05-27 Arnaud Charlet <charlet@adacore.com>
* gnat.dg/sync1.ad[sb]: New test.
* gnat.dg/interface5.ad[sb]: New test.
2008-05-27 Kaveh R. Ghazi <ghazi@caip.rutgers.edu>

7
gcc/testsuite/gnat.dg/interface5.adb Normal file
View File

@ -0,0 +1,7 @@
-- { dg-do compile }
package body interface5 is
function F (Object : Child) return access Child is
begin
return null;
end F;
end interface5;

9
gcc/testsuite/gnat.dg/interface5.ads Normal file
View File

@ -0,0 +1,9 @@
package interface5 is
type B is tagged null record;
type I is interface;
function F (Object : I) return access I is abstract;
type Child is new B and I with null record;
function F (Object : Child) return access Child;
end interface5;