mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-15 09:23:44 +00:00
f30fc8d799
compiler/det_report.m:
Don't print a message about "actual determinism is not ok with I/O"
if the program's actual problem is that the actual determinism
differs from the declared determinism, which *is* ok with I/O.
tests/invalid/det_errors_and_io.{m,err_exp}:
New test case for this suppression.
tests/invalid/Mmakefile:
Enable the new test case.
tests/invalid/magicbox.err_exp:
tests/invalid/try_detism.err_exp:
tests/invalid/try_detism.err_exp2:
Update these old expected outputs.
54 lines
1.5 KiB
Mathematica
54 lines
1.5 KiB
Mathematica
%---------------------------------------------------------------------------%
|
|
% vim: ts=4 sw=4 et ft=mercury
|
|
%---------------------------------------------------------------------------%
|
|
%
|
|
% This test case tests the suppression of error messages like this:
|
|
%
|
|
% det_errors_and_io.m:038: In `bad_pred'(in, di, uo):
|
|
% det_errors_and_io.m:038: error: `semidet' is not a valid determinism for a
|
|
% det_errors_and_io.m:038: predicate that has I/O state arguments. The valid
|
|
% det_errors_and_io.m:038: determinisms for such predicates are `det',
|
|
% det_errors_and_io.m:038: `cc_multi' and `erroneous', since the I/O state
|
|
% det_errors_and_io.m:038: can be neither duplicated nor destroyed.
|
|
%
|
|
% Given that the predicate is declared to be det, the actual bug is that
|
|
% its actual determinism is semidet (due to the missing arm of the switch),
|
|
% NOT any misunderstanding by the programmer about what determinisms are
|
|
% compatible with I/O.
|
|
%
|
|
|
|
:- module det_errors_and_io.
|
|
|
|
:- interface.
|
|
:- import_module io.
|
|
|
|
:- pred main(io::di, io::uo) is det.
|
|
|
|
:- implementation.
|
|
|
|
:- type t
|
|
---> a
|
|
; b
|
|
; c
|
|
; d.
|
|
|
|
main(!IO) :-
|
|
bad_pred(b, !IO).
|
|
|
|
:- pred bad_pred(t::in, io::di, io::uo) is det.
|
|
|
|
bad_pred(T, !IO) :-
|
|
(
|
|
T = a,
|
|
io.write_string("T = a\n", !IO)
|
|
;
|
|
T = b,
|
|
io.write_string("T = b\n", !IO)
|
|
;
|
|
T = c,
|
|
io.write_string("T = c\n", !IO)
|
|
% ;
|
|
% T = d,
|
|
% io.write_string("T = d\n", !IO)
|
|
).
|