mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-15 09:23:44 +00:00
107a5d42d4
Like most test directories, tests/invalid contains several groups of
related tests. The names of these tests followed several different patterns:
x_1, x_2, x_3
x, x_2, x_3
x, x2, x3
This diff changes all these groups to follow the first pattern above
by renaming all the relevant tests in the groups that used to follow
one of the other patterns.
38 lines
1.1 KiB
Mathematica
38 lines
1.1 KiB
Mathematica
%---------------------------------------------------------------------------%
|
|
% vim: ts=4 sw=4 et ft=mercury
|
|
%---------------------------------------------------------------------------%
|
|
|
|
:- module user_field_access_decl_override_2.
|
|
|
|
:- interface.
|
|
|
|
:- type dummy ---> dummy.
|
|
|
|
:- implementation.
|
|
|
|
:- type foo(T)
|
|
---> foo(
|
|
f1 :: int,
|
|
f2 :: int
|
|
).
|
|
|
|
% These user-supplied declarations restrict the
|
|
% field access functions to foo(int) instead of foo(T).
|
|
%
|
|
:- func foo(int) ^ f1 = int is semidet.
|
|
:- func (foo(int) ^ f1 := int) = foo(int) is semidet.
|
|
|
|
:- func get_foo_f1(foo(T)) = int is det.
|
|
|
|
get_foo_f1(Foo) = X :-
|
|
% The user-declared function declaration should be used instead of
|
|
% an automatically generated declaration, so this will be a type error.
|
|
X = Foo ^ f1.
|
|
|
|
:- pred set_foo_f1(T::in, foo(T)::in, foo(T)::out) is det.
|
|
|
|
set_foo_f1(X, !Foo) :-
|
|
% The user-declared function declaration should be used instead of
|
|
% an automatically generated declaration, so this will be a type error.
|
|
!Foo ^ f1 := X.
|