From: Arnaud Charlet <charlet@gcc.gnu.org>
Date: Wed, 19 Dec 2007 16:17:40 +0000 (+0100)
Subject: Make type limited as per Ada 2005 rules.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=41d4f4a794638918620b77fc226abd61438e5af0;p=gcc.git

Make type limited as per Ada 2005 rules.

From-SVN: r131067
---

diff --git a/gcc/testsuite/gnat.dg/test_image_p.ads b/gcc/testsuite/gnat.dg/test_image_p.ads
index 5a788236409..95715b8b5d3 100644
--- a/gcc/testsuite/gnat.dg/test_image_p.ads
+++ b/gcc/testsuite/gnat.dg/test_image_p.ads
@@ -13,7 +13,7 @@ private
   type type1 is tagged record
      f2 : array_t2;
   end record;
-    type type3 is record
+    type type3 is limited record
         the_task : aliased task_t (type3'Access);
         the_array : array_t (1 .. 10) := (others => to_type1 (-1));
     end record;