diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2007-12-19 17:17:40 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2007-12-19 17:17:40 +0100 |
| commit | 41d4f4a794638918620b77fc226abd61438e5af0 (patch) | |
| tree | adf564f91c4dfe1a8efd52b9166d27547b26e0e8 | |
| parent | 1a52e5650a3ee6399f9a0729ae8b22111d37d9dd (diff) | |
| download | gcc-41d4f4a794638918620b77fc226abd61438e5af0.zip gcc-41d4f4a794638918620b77fc226abd61438e5af0.tar.gz gcc-41d4f4a794638918620b77fc226abd61438e5af0.tar.bz2 | |
Make type limited as per Ada 2005 rules.
From-SVN: r131067
| -rw-r--r-- | gcc/testsuite/gnat.dg/test_image_p.ads | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/testsuite/gnat.dg/test_image_p.ads b/gcc/testsuite/gnat.dg/test_image_p.ads index 5a78823..95715b8 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; |