mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-21 04:13:46 +00:00
11 lines
139 B
Mathematica
11 lines
139 B
Mathematica
:- module modes_erroneous.
|
|
|
|
:- type foo.
|
|
|
|
:- pred p(foo, foo).
|
|
:- mode p(ground -> ground, free -> ground).
|
|
|
|
p(_, X) :-
|
|
p(_, X).
|
|
p(_, _).
|