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 5a7882364095ebb7ddab7104c0ea14f1f94cf7b8..95715b8b5d30e7796bbf43cd7566bb71369aba59 100644 (file)
--- 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;