1--  { dg-do compile }
2
3procedure Constant1 is
4   Def_Const : constant Integer;
5   pragma Import (Ada, Def_Const);
6begin
7   null;
8end;
9