mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-22 12:53:47 +00:00
cb70db895a
Estimated hours taken: 0.25 tests/valid/Mmakefile: tests/valid/record_syntax_bug_3.m: Add a test case for my recent bug fix for record syntax.
42 lines
822 B
Mathematica
42 lines
822 B
Mathematica
% The compiler of 4/1/2001 reported a mode error for this test
|
|
% case because it did not allow reordering of goals into the middle
|
|
% of a field update expression.
|
|
:- module record_syntax_bug_3.
|
|
|
|
:- interface.
|
|
|
|
:- type t1.
|
|
|
|
:- func record_bug(t1) = t1.
|
|
|
|
:- implementation.
|
|
|
|
:- import_module int.
|
|
|
|
:- type t1
|
|
---> t1(t1_f1 :: int, t1_f2 :: t2).
|
|
|
|
:- type t2
|
|
---> t2(t2_f1 :: int).
|
|
|
|
record_bug(T0) = T :-
|
|
T = T0 ^ field1(X) ^ field2(Y) := 3,
|
|
Y = X + 1.
|
|
|
|
:- func field1(int::out, t1::in) = (t2::out) is det.
|
|
|
|
field1(T ^ t1_f1, T) = T ^ t1_f2.
|
|
|
|
:- func 'field1 :='(int, t1, t2) = t1.
|
|
|
|
'field1 :='(_, T, T2) = T ^ t1_f2 := T2.
|
|
|
|
:- func field2(int, t2) = int.
|
|
|
|
field2(Int, T2) = T2 ^ t2_f1 + Int.
|
|
|
|
:- func 'field2 :='(int, t2, int) = t2.
|
|
|
|
'field2 :='(Int, T2, Value) = T2 ^ t2_f1 := Value - Int.
|
|
|