tree_static_use.adb « gnat.dg « testsuite « gcc - cbb-gcc-4.6.4 - compiler building blocks: cbb-gcc-4.6.4: including full support for the midipix targets

summary refs log tree commit diff

path: root/gcc/testsuite/gnat.dg/tree_static_use.adb

blob: ff02b54565cdfdaeccf86853d673845db193a8bf (plain)

-- { dg-do run }
-- { dg-options "-O1" }

with TREE_STATIC_Def; use TREE_STATIC_Def;

procedure TREE_STATIC_Use is
   I : Int := One;
begin
   check (I, 1);
end;