diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2007-12-19 17:16:28 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2007-12-19 17:16:28 +0100 |
| commit | 1a52e5650a3ee6399f9a0729ae8b22111d37d9dd (patch) | |
| tree | 9e8446d9fc124ed1714776700f8047365b081e72 | |
| parent | 8460ef76d3cc608abbc7911bc864a5be6a99e2ae (diff) | |
| download | gcc-1a52e5650a3ee6399f9a0729ae8b22111d37d9dd.zip gcc-1a52e5650a3ee6399f9a0729ae8b22111d37d9dd.tar.gz gcc-1a52e5650a3ee6399f9a0729ae8b22111d37d9dd.tar.bz2 | |
Update test to follow Ada 2005 rules.
From-SVN: r131066
| -rw-r--r-- | gcc/testsuite/gnat.dg/access_discr.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/testsuite/gnat.dg/access_discr.adb b/gcc/testsuite/gnat.dg/access_discr.adb index 4e61c2b..a036f55 100644 --- a/gcc/testsuite/gnat.dg/access_discr.adb +++ b/gcc/testsuite/gnat.dg/access_discr.adb @@ -11,7 +11,7 @@ procedure access_discr is type Two_Iface (Parent : access One) is limited new Iface with null record; type Two_Base (Parent : access One) is new Base with null record; - type One is record + type One is limited record TA : Two_Alone (One'Access); TI : Two_Iface (One'Access); -- OFFENDING LINE TB : Two_Base (One'Access); |