mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-05-01 09:14:08 +00:00
ae5f8d4ce7
compiler/parse_tree_out_sym_name.m:
As above.
tests/invalid/*.err_exp:
tests/term/*.trans_opt_exp:
tests/warnings/test_tscp.exp:
Update these files to expect the *absence* of unnecessary parentheses
around sym_names.
tests/term/foreign_valid.m:
Export some pragmas to avoid warnings that are irrelevant to the test.
14 lines
1.2 KiB
Plaintext
14 lines
1.2 KiB
Plaintext
:- module inf_const_bug.
|
|
|
|
:- pragma termination_info(inf_const_bug.bar(builtin.in) = builtin.out, infinite, can_loop).
|
|
:- pragma termination_info(inf_const_bug.foo(builtin.in) = builtin.out, infinite, can_loop).
|
|
:- pragma termination_info(inf_const_bug.map(builtin.in, builtin.in) = builtin.out, infinite, can_loop).
|
|
:- pragma termination_info(inf_const_bug.multiply(builtin.in, builtin.in) = builtin.out, infinite, cannot_loop).
|
|
:- pragma termination_info(inf_const_bug.square(builtin.in) = builtin.out, infinite, cannot_loop).
|
|
|
|
:- pragma termination2_info(inf_const_bug.bar(builtin.in) = builtin.out, constraints([le([term(0, r(-1, 1))], r(-1, 1)), le([term(1, r(-1, 1))], r(-1, 1))]), not_set, can_loop).
|
|
:- pragma termination2_info(inf_const_bug.foo(builtin.in) = builtin.out, constraints([le([term(0, r(-1, 1))], r(-3, 1)), le([term(1, r(-1, 1))], r(-3, 1))]), not_set, can_loop).
|
|
:- pragma termination2_info(inf_const_bug.map(builtin.in, builtin.in) = builtin.out, constraints([]), not_set, can_loop).
|
|
:- pragma termination2_info(inf_const_bug.multiply(builtin.in, builtin.in) = builtin.out, constraints([]), not_set, cannot_loop).
|
|
:- pragma termination2_info(inf_const_bug.square(builtin.in) = builtin.out, constraints([]), not_set, cannot_loop).
|