2015-07-03 Christophe Lyon <christophe.lyon@linaro.org>
[official-gcc.git] / gcc / testsuite / gnat.dg / test_image.adb
blob8f94301434e81986a029352a0e26df1139dc2351
1 -- { dg-do run }
3 with test_image_p;
4 procedure test_image is
5 my_at5c : test_image_p.a_type5_class;
6 begin
7 my_at5c := new test_image_p.type5;
8 end;