mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-23 13:23:47 +00:00
40 lines
722 B
Mathematica
40 lines
722 B
Mathematica
%---------------------------------------------------------------------------%
|
|
% vim: ts=4 sw=4 et ft=mercury
|
|
%---------------------------------------------------------------------------%
|
|
|
|
:- module unbound_inst_var.
|
|
|
|
:- interface.
|
|
|
|
:- import_module io.
|
|
|
|
:- pred main(io::di, io::uo) is det.
|
|
|
|
:- implementation.
|
|
|
|
:- import_module char.
|
|
|
|
:- type all(X) ---> a(X).
|
|
|
|
:- inst all(X) ---> a(X).
|
|
|
|
:- pred test(all(char), all(char)).
|
|
:- mode test(in(all(I)), out(all(I))) is det.
|
|
|
|
:- pred try_test is det.
|
|
|
|
test(X, X).
|
|
|
|
% :- pred main(io, io).
|
|
% :- mode main(di, uo) is det.
|
|
|
|
main(IO, IO) :-
|
|
true.
|
|
|
|
try_test :-
|
|
( C = a ; C = b ; C = c),
|
|
test(a(C), a(D)),
|
|
( D = a ; D = b ; D = c).
|
|
|
|
:- end_module unbound_inst_var.
|