aboutsummaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/opt53.adb
blob: 936277db85f65fad9f396b6b5852df5801be39b2 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
-- { dg-do compile }
-- { dg-options "-O2 -fdump-tree-optimized" }

function Opt53 (Val, Max : Positive) return Positive is
begin
   if Val >= Max then
      return Max;
   end if;
   return Val + 1;
end;

-- { dg-final { scan-tree-dump-not "gnat_rcheck" "optimized" } }