mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-23 13:23:47 +00:00
6413b4fb08
tests/invalid_onlydepend:
Move the one test case in tests/invalid for which we want to check
the error messages generated during the generation of dependencies
to this new test directory.
tests/invalid_nodepend:
Move all test cases in tests/invalid which get errors during the
generation of dependencies but for which we want to check the error
messages generated during normal compilation to this new test directory.
tests/invalid_nodepend/Mmakefile:
tests/invalid_nodepend/Mercury.options:
tests/invalid_onlydepend/Mmakefile:
tests/invalid_onlydepend/Mercury.options:
Versions of the same files in tests/invalid, but containing only
the entries relevant to the moved test cases.
tests/invalid/Mmakefile:
tests/invalid/Mercury.options:
Delete the entries that refer to the moved test cases.
tests/README:
Document the two new test directories.
tools/bootcheck:
Add invalid_onlydepend and invalid_nodepend to the list of
test directories.
38 lines
795 B
Mathematica
38 lines
795 B
Mathematica
%---------------------------------------------------------------------------%
|
|
% vim: ts=4 sw=4 et ft=mercury
|
|
%---------------------------------------------------------------------------%
|
|
|
|
:- module duplicate_modes.
|
|
|
|
:- pred p.
|
|
:- mode p is det.
|
|
p.
|
|
|
|
:- pred q(int, int).
|
|
:- mode q(ground >> ground, free >> ground) is det.
|
|
:- mode q(in, out) is det.
|
|
:- mode q(in, out) is det.
|
|
q(X, X).
|
|
|
|
:- pred r(int, int).
|
|
:- mode r(in, in) is det.
|
|
:- mode r(in, in) is semidet.
|
|
|
|
r(_, _).
|
|
|
|
% this one is legal (albeit not yet supported)
|
|
:- pred s(int, int).
|
|
:- mode s(in, out) is multi.
|
|
:- mode s(in, out) is cc_multi.
|
|
|
|
s(_, 42).
|
|
s(_, 43).
|
|
|
|
% this one is legal (albeit not yet supported)
|
|
:- pred t(int, int).
|
|
:- mode t(in(bound(1)), out) is multi.
|
|
:- mode t(in(bound(2)), out) is cc_multi.
|
|
|
|
t(_, 42).
|
|
t(_, 43).
|