mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-19 03:13:40 +00:00
103 lines
1.9 KiB
Mathematica
103 lines
1.9 KiB
Mathematica
%---------------------------------------------------------------------------%
|
|
% vim: ts=4 sw=4 et ft=mercury
|
|
%---------------------------------------------------------------------------%
|
|
|
|
:- module errors2.
|
|
|
|
%---------------------------------------------------------------------------%
|
|
|
|
:- pred bind_type_param(TypeParam::input, TypeParam2::output).
|
|
|
|
bind_type_param(Argument) :-
|
|
Argument = 0.
|
|
|
|
%---------------------------------------------------------------------------%
|
|
|
|
% currently the compiler just gives a warning for this test case
|
|
|
|
:- pred unresolved_polymorphism.
|
|
|
|
unresolved_polymorphism :-
|
|
bind_type_param(Arg, Arg).
|
|
|
|
%---------------------------------------------------------------------------%
|
|
|
|
:- pred produce_string(string).
|
|
|
|
:- pred expect_int(int).
|
|
|
|
:- pred type_error.
|
|
|
|
type_error :-
|
|
produce_string(X),
|
|
expect_int(X).
|
|
|
|
:- pred type_error_2.
|
|
|
|
type_error_2 :-
|
|
produce_string(X),
|
|
expect_int(Y),
|
|
X = Y.
|
|
|
|
:- pred type_error_3.
|
|
|
|
type_error_3 :-
|
|
X = Y,
|
|
produce_string(X),
|
|
expect_int(Y).
|
|
|
|
:- type foo_type
|
|
---> foo_functor(int, character, string).
|
|
|
|
:- type bar_1_type
|
|
---> bar_functor(int, character, string).
|
|
|
|
:- type bar_2_type
|
|
---> bar_functor(character, int, string).
|
|
|
|
:- pred type_error_4.
|
|
|
|
type_error_4 :-
|
|
Y = 0,
|
|
X = foo_functor(Y, 'x', 1.0).
|
|
|
|
:- pred type_error_5.
|
|
:- type foo
|
|
---> a
|
|
; b
|
|
; c.
|
|
|
|
type_error_5 :-
|
|
Y = 'a',
|
|
X = foo_functor(0, Y, 1.0).
|
|
|
|
:- pred type_error_6.
|
|
|
|
type_error_6 :-
|
|
Y = 'a',
|
|
X = bar_functor(0, Y, 1.0).
|
|
|
|
:- pred type_error_7.
|
|
|
|
type_error_7 :-
|
|
Y = 'a',
|
|
Z = bar_functor(A, B, C),
|
|
expect_int(C).
|
|
|
|
:- use_module list, string.
|
|
|
|
:- pred type_error_8.
|
|
|
|
type_error_8 :-
|
|
from_char_list([], Str),
|
|
string.from_char_list(list.[], Str).
|
|
|
|
:- pred type_error_9.
|
|
|
|
type_error_9 :-
|
|
X = {1, "2", '3'},
|
|
Y = {"1", '2', 3},
|
|
X = Y.
|
|
|
|
%---------------------------------------------------------------------------%
|