opt38.adb « gnat.dg « testsuite « gcc « gcc-4.9 - toolchain_gcc - toolchain/gcc

about summary refs log tree commit diff stats

path: root/gcc-4.9/gcc/testsuite/gnat.dg/opt38.adb

blob: 143f4fade19dcf0c8cbf1b802cfd4149a9b232c9 (plain)

-- { dg-do run }
-- { dg-options "-O2 -gnatn" }

with Opt38_Pkg; use Opt38_Pkg;

procedure Opt38 is
begin
  Test (-1);
end;