diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2006-10-31 19:20:42 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2006-10-31 19:20:42 +0100 |
| commit | ea7339d1fb89c9744b481ae314b451e90c7dcc63 (patch) | |
| tree | d761b541ac4e898876b36c14e2f2b0aeef0750e9 /gcc/testsuite/gnat.dg/test_image.adb | |
| parent | c8945d5632cc44d3f05178c67b73b666cc64c8a4 (diff) | |
| download | gcc-ea7339d1fb89c9744b481ae314b451e90c7dcc63.zip gcc-ea7339d1fb89c9744b481ae314b451e90c7dcc63.tar.gz gcc-ea7339d1fb89c9744b481ae314b451e90c7dcc63.tar.bz2 | |
Add new Ada test cases.
From-SVN: r118332
Diffstat (limited to 'gcc/testsuite/gnat.dg/test_image.adb')
| -rw-r--r-- | gcc/testsuite/gnat.dg/test_image.adb | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/test_image.adb b/gcc/testsuite/gnat.dg/test_image.adb new file mode 100644 index 0000000..8f94301 --- /dev/null +++ b/gcc/testsuite/gnat.dg/test_image.adb @@ -0,0 +1,8 @@ +-- { dg-do run } + +with test_image_p; +procedure test_image is + my_at5c : test_image_p.a_type5_class; +begin + my_at5c := new test_image_p.type5; +end; |