diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2007-09-26 12:41:08 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2007-09-26 12:41:08 +0200 |
| commit | ba6dccf8f9334926354056be32b55a09c7ead740 (patch) | |
| tree | 3c57ed15b01311e57a6520c42567bb1bfd2b2ffe /gcc | |
| parent | 6928628c9f673e98485ea9804e6d223465065f9f (diff) | |
| download | gcc-ba6dccf8f9334926354056be32b55a09c7ead740.zip gcc-ba6dccf8f9334926354056be32b55a09c7ead740.tar.gz gcc-ba6dccf8f9334926354056be32b55a09c7ead740.tar.bz2 | |
Update test.
From-SVN: r128778
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/gnat.dg/aggr5.ads | 7 | ||||
| -rw-r--r-- | gcc/testsuite/gnat.dg/aggr6.adb | 13 | ||||
| -rw-r--r-- | gcc/testsuite/gnat.dg/renaming1.adb | 1 |
3 files changed, 0 insertions, 21 deletions
diff --git a/gcc/testsuite/gnat.dg/aggr5.ads b/gcc/testsuite/gnat.dg/aggr5.ads deleted file mode 100644 index e5a0f9f..0000000 --- a/gcc/testsuite/gnat.dg/aggr5.ads +++ /dev/null @@ -1,7 +0,0 @@ - -package aggr5 is - type Event is limited interface; - type Event_Access is access all Event'Class; - type Q_Action_Event is limited interface and Event; - function Build (X : integer) return Event_Access; -end aggr5; diff --git a/gcc/testsuite/gnat.dg/aggr6.adb b/gcc/testsuite/gnat.dg/aggr6.adb deleted file mode 100644 index 89f9702..0000000 --- a/gcc/testsuite/gnat.dg/aggr6.adb +++ /dev/null @@ -1,13 +0,0 @@ --- { dg-do compile } - -with aggr5; -procedure aggr6 is - procedure Block is - Wrapper : aliased aggr5.Q_Action_Event'Class - := aggr5.Q_Action_Event'Class (aggr5.Build (0)); - begin - null; - end; -begin - null; -end; diff --git a/gcc/testsuite/gnat.dg/renaming1.adb b/gcc/testsuite/gnat.dg/renaming1.adb index 8f5e515..d033c9a 100644 --- a/gcc/testsuite/gnat.dg/renaming1.adb +++ b/gcc/testsuite/gnat.dg/renaming1.adb @@ -3,7 +3,6 @@ with Text_IO; use Text_IO; -use type Text_IO.File_Access; package body renaming1 is procedure Fo (A : Text_IO.File_Access) is begin |