remove unused files
[platform/upstream/gcc48.git] / gcc / testsuite / gnat.dg / constant1.adb
1 --  { dg-do compile }
2
3 procedure Constant1 is
4    Def_Const : constant Integer;
5    pragma Import (Ada, Def_Const);
6 begin
7    null;
8 end;