summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/test_image.adb
blob: 8f94301434e81986a029352a0e26df1139dc2351 (plain)
1
2
3
4
5
6
7
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;