From: Arnaud Charlet <charlet@gcc.gnu.org>
Date: Wed, 19 Dec 2007 16:16:28 +0000 (+0100)
Subject: Update test to follow Ada 2005 rules.
X-Git-Tag: releases/gcc-4.3.0~889
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=1a52e5650a3ee6399f9a0729ae8b22111d37d9dd;p=thirdparty%2Fgcc.git

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 4e61c2be6613..a036f554a76a 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);