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 000000000..8f9430143
--- /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;