diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2007-09-08 10:21:05 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2007-09-08 10:21:05 +0200 |
| commit | f1979d7e894829152d25f823db27aef06b518219 (patch) | |
| tree | 2da082c845a6bad0b0743452130cdd2d189dc073 | |
| parent | 3f39439132738db54daf330c866ad0cde305392d (diff) | |
| download | gcc-f1979d7e894829152d25f823db27aef06b518219.zip gcc-f1979d7e894829152d25f823db27aef06b518219.tar.gz gcc-f1979d7e894829152d25f823db27aef06b518219.tar.bz2 | |
Add support file for controlled2.adb
From-SVN: r128264
| -rw-r--r-- | gcc/testsuite/gnat.dg/controlled1.ads | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/controlled1.ads b/gcc/testsuite/gnat.dg/controlled1.ads new file mode 100644 index 0000000..cca8aa7 --- /dev/null +++ b/gcc/testsuite/gnat.dg/controlled1.ads @@ -0,0 +1,13 @@ + +with Ada.Finalization; use Ada.Finalization; +package controlled1 is + type Test is new Controlled with null record; + procedure Add_Test (T : access Test'Class); + + type Test_Case1 is new Test with null record; + type Test_Suite is new Test with null record; + + type Test_Case is new Test_Case1 with record + Link_Under_Test : Natural; + end record; +end; |