Small fix for -fdump-ada-spec
[official-gcc.git] / gcc / gimple-range-tests.cc
blob7e4d234ddda80e89b74469838e69937200b1c19a
1 /* Unit tests for GIMPLE range related routines.
2 Copyright (C) 2021-2023 Free Software Foundation, Inc.
4 This file is part of GCC.
6 GCC is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 3, or (at your option)
9 any later version.
11 GCC is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with GCC; see the file COPYING3. If not see
18 <http://www.gnu.org/licenses/>. */
20 #if CHECKING_P
22 #include "selftest.h"
24 namespace selftest {
26 // Test ranges of tree expressions.
27 class test_expr_eval : public gimple_ranger
29 public:
30 test_expr_eval ()
32 type = integer_type_node;
33 op0 = make_ssa_name (type);
34 op1 = make_ssa_name (type);
36 // [5,10] + [15,20] => [20, 30]
37 tree expr = fold_build2 (PLUS_EXPR, type, op0, op1);
38 int_range<2> expect (build_int_cst (type, 20), build_int_cst (type, 30));
39 int_range_max r;
41 ASSERT_TRUE (range_of_expr (r, expr));
42 ASSERT_TRUE (r == expect);
45 virtual bool range_of_expr (vrange &v, tree expr, gimple * = NULL) override
47 irange &r = as_a <irange> (v);
48 if (expr == op0)
50 r.set (build_int_cst (type, 5), build_int_cst (type, 10));
51 return true;
53 if (expr == op1)
55 r.set (build_int_cst (type, 15), build_int_cst (type, 20));
56 return true;
58 return gimple_ranger::range_of_expr (r, expr);
61 private:
62 tree op0, op1, type;
65 void
66 gimple_range_tests ()
68 test_expr_eval e;
71 } // namespace selftest
73 #endif // CHECKING_P