Update test to follow Ada 2005 rules.

From-SVN: r131066

diff --git a/gcc/testsuite/gnat.dg/access_discr.adb b/gcc/testsuite/gnat.dg/access_discr.adb
index 4e61c2be66130d6212927dc9af680cac3ebed2c6..a036f554a76a06abd994fe5407c1355bc71debda 100644 (file)
--- 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);