blob: 6cd1bcfd24ec4b5ab02d37bf3075aa6919f7fe80 [file] [log] [blame]
-- { dg-do compile }
procedure Constant1 is
Def_Const : constant Integer;
pragma Import (Ada, Def_Const);
begin
null;
end;