From 1a52e5650a3ee6399f9a0729ae8b22111d37d9dd Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Wed, 19 Dec 2007 17:16:28 +0100 Subject: [PATCH] Update test to follow Ada 2005 rules. From-SVN: r131066 --- gcc/testsuite/gnat.dg/access_discr.adb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gcc/testsuite/gnat.dg/access_discr.adb b/gcc/testsuite/gnat.dg/access_discr.adb index 4e61c2be661..a036f554a76 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); -- 2.30.2