mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-16 09:53:36 +00:00
fdd141bf77
tests/invalid/*.{m,err_exp}:
tests/misc_tests/*.m:
tests/mmc_make/*.m:
tests/par_conj/*.m:
tests/purity/*.m:
tests/stm/*.m:
tests/string_format/*.m:
tests/structure_reuse/*.m:
tests/submodules/*.m:
tests/tabling/*.m:
tests/term/*.m:
tests/trailing/*.m:
tests/typeclasses/*.m:
tests/valid/*.m:
tests/warnings/*.{m,exp}:
Make these tests use four-space indentation, and ensure that
each module is imported on its own line. (I intend to use the latter
to figure out which subdirectories' tests can be executed in parallel.)
These changes usually move code to different lines. For the tests
that check compiler error messages, expect the new line numbers.
browser/cterm.m:
browser/tree234_cc.m:
Import only one module per line.
tests/hard_coded/boyer.m:
Fix something I missed.
36 lines
769 B
Mathematica
36 lines
769 B
Mathematica
%---------------------------------------------------------------------------%
|
|
% vim: ts=4 sw=4 et ft=mercury
|
|
%---------------------------------------------------------------------------%
|
|
%
|
|
% Some versions of the compiler get the solution context wrong: they think
|
|
% that since the call to p2 and its check unification are inside a cut,
|
|
% the call to p1 ought to be inside a cut as well.
|
|
|
|
:- module soln_context.
|
|
|
|
:- interface.
|
|
|
|
:- pred q is semidet.
|
|
|
|
:- implementation.
|
|
|
|
q :-
|
|
p1(X, Y),
|
|
p2(X, Y).
|
|
|
|
:- pred p1(int, int).
|
|
:- mode p1(free >> free, out) is nondet.
|
|
:- pragma no_inline(p1/2).
|
|
|
|
p1(_, 42) :-
|
|
semidet_fail.
|
|
|
|
:- pred p2(int, int).
|
|
:- mode p2(out, in) is nondet.
|
|
:- pragma no_inline(p2/2).
|
|
|
|
p2(X, X) :-
|
|
semidet_true.
|
|
p2(X, X) :-
|
|
semidet_true.
|