mirror of
https://github.com/Mercury-Language/mercury.git
synced 2025-12-12 12:26:29 +00:00
fa77e70a46
tests/valid/*: Renamed `*.nl' as `*.m'. Added a few new test cases. Removed a couple of duplicate test cases. Fixed up the Mmake file so that `mmake check' now works.
26 lines
250 B
Mathematica
26 lines
250 B
Mathematica
:- module stack_alloc.
|
|
|
|
:- pred in(int::in) is semidet.
|
|
:- pred out(int::out) is det.
|
|
|
|
:- external(in/1).
|
|
:- external(out/1).
|
|
|
|
:- pred p is semidet.
|
|
|
|
p :-
|
|
(
|
|
out(X),
|
|
out(Y),
|
|
p,
|
|
in(X),
|
|
in(Y)
|
|
;
|
|
out(A),
|
|
out(B),
|
|
p,
|
|
in(A),
|
|
in(B)
|
|
).
|
|
|