remove unused files
[platform/upstream/gcc48.git] / gcc / testsuite / gnat.dg / controlled5.adb
1 -- { dg-do run }
2
3 with Controlled5_Pkg; use Controlled5_Pkg;
4
5 procedure Controlled5 is
6    V : Root'Class := Dummy (300);
7 begin
8    null;
9 end;