mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-18 02:43:40 +00:00
55733f46e6
Estimated hours taken: 0.5
Branches: main
compiler/mercury_compile.m:
Fix Mantis bug 238.
tests/invalid/bug238.{m,err_exp}:
New test case for Mantis bug 238.
tests/invalid/Mmakefile:
tests/invalid/Mercury.options:
Enable the new test case.
26 lines
517 B
Mathematica
26 lines
517 B
Mathematica
% vim: ts=4 sw=4 et ft=mercury
|
|
%
|
|
% This is a regression test for Mantis bug 238.
|
|
%
|
|
% The symptom of that bug was a compiler abort, caused by the fact that
|
|
% the front end invoked the middle end even if the front end found the
|
|
% error in the code below.
|
|
|
|
:- module bug238.
|
|
|
|
:- interface.
|
|
|
|
:- pred foo is semidet.
|
|
|
|
:- implementation.
|
|
|
|
:- import_module list.
|
|
:- import_module solutions.
|
|
|
|
foo :-
|
|
promise_equivalent_solutions [] (
|
|
unsorted_solutions(
|
|
pred(3::out) is nondet,
|
|
[])
|
|
).
|