mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-18 10:53:40 +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.
20 lines
279 B
Mathematica
20 lines
279 B
Mathematica
:- module det_switch.
|
|
|
|
:- type enum ---> a ; b ; c.
|
|
|
|
:- pred p(enum, int) is det.
|
|
:- mode p(in, out) is det.
|
|
:- mode p(out, in) is semidet.
|
|
:- mode p(out, out) is multi.
|
|
|
|
p(a, 1).
|
|
p(b, 2).
|
|
p(c, 3).
|
|
|
|
:- pred q(enum, int) is det.
|
|
:- mode q(in, out) is semidet.
|
|
|
|
q(a, 1).
|
|
q(b, 2).
|
|
|