mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-18 02:43:40 +00:00
469a26b218
Estimated hours taken: 2 compiler/det_report.m: Report an error if a "forward" mode of a function, (a mode for which all the arguments are fully input) has determinism nondet, multi, cc_nondet or cc_multi. Such functions should be illegal because they break referential transparency. doc/reference_manual.texi: Document the above change. tests/invalid/Mmake: tests/invalid/multisoln_func.m: Test cases for the above change.
47 lines
877 B
Mathematica
47 lines
877 B
Mathematica
:- module multisoln_func.
|
|
:- interface.
|
|
:- import_module io.
|
|
|
|
:- pred main(io__state::di, io__state::uo) is det.
|
|
|
|
:- implementation.
|
|
:- import_module int, list, std_util.
|
|
|
|
main --> [].
|
|
|
|
:- func f(int) = list(int).
|
|
:- mode f(in) = out is cc_multi. % illegal
|
|
|
|
f(X) = L :-
|
|
unsorted_solutions((pred(Y::out) is multi :- Y = X ; Y = X + 1), L).
|
|
|
|
:- func test = int.
|
|
:- mode test = out is cc_multi. % illegal
|
|
|
|
test = 123.
|
|
test = 456.
|
|
|
|
% test type inference
|
|
|
|
:- mode test2 = out is multi. % illegal
|
|
test2 = 123.
|
|
test2 = 456.
|
|
|
|
:- mode test3(in) = out is nondet. % illegal
|
|
test3(1) = 123.
|
|
test3(1) = 456.
|
|
|
|
:- mode test3b(in) = out is cc_nondet. % illegal
|
|
test3b(1) = 123.
|
|
test3b(1) = 456.
|
|
|
|
% this one is legal
|
|
:- func test4(int::out) = (int::out) is multi.
|
|
test4(1) = 1.
|
|
test4(2) = 2.
|
|
|
|
% this one is legal
|
|
:- func test5(int::out) = (int::in) is cc_nondet.
|
|
test5(1) = 42.
|
|
test5(2) = 42.
|