mirror of
https://github.com/Mercury-Language/mercury.git
synced 2025-12-14 21:35:49 +00:00
05ce757fdf
Branches: main, 11.07 Fix bug #241: a typo was preventing require_semidet scopes from being recognised. compiler/prog_io.m; Fix a typo: s/require_semi/require_semidet/ tests/valid/Mmakefile: tests/valid/require_bug.m: Add a test the above.
17 lines
351 B
Mathematica
17 lines
351 B
Mathematica
% rotd-2011-12-03 nad before didn't recongise the require_semidet
|
|
% scope.
|
|
|
|
:- module require_bug.
|
|
:- interface.
|
|
|
|
:- pred foo(int::out, int::out) is failure.
|
|
|
|
:- implementation.
|
|
|
|
foo(Y, Z) :-
|
|
require_det true,
|
|
require_semidet semidet_succeed,
|
|
require_multi (Y = 1; Y = 2),
|
|
require_nondet ((Z = 1; Z = 2), semidet_succeed),
|
|
require_failure false.
|