aboutsummaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/const1.adb
blob: 486e9632bc576bb87bd0cf21944dbd616c5655c3 (plain)
1
2
3
4
5
6
7
8
--  { dg-do compile }

procedure const1 is
   Def_Const : constant Integer;
   pragma Import (Ada, Def_Const);
begin
   null;
end const1;