mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-15 17:33:38 +00:00
f32063fc75
tests/analysis_external/ext.m:
tests/analysis_external/ext2.m:
tests/dppd/bug.m:
tests/valid/determinism.m:
tests/valid/mode_merge_insts.m:
Replace `:- external' declarations with the new pragma form.
27 lines
731 B
Mathematica
27 lines
731 B
Mathematica
%---------------------------------------------------------------------------%
|
|
% vim: ts=4 sw=4 et ft=mercury
|
|
%---------------------------------------------------------------------------%
|
|
%
|
|
% XXX The Mercury compiler reports a spurious mode error for this code,
|
|
% due to the lack of support for partially instantiated data
|
|
% structures.
|
|
%
|
|
% XXX This test, which is extracted from tests/dppd/map_reduce.m,
|
|
% should go in tests/valid.
|
|
|
|
:- module bug.
|
|
|
|
:- interface.
|
|
|
|
:- pred map_reduce is semidet.
|
|
|
|
:- implementation.
|
|
|
|
:- import_module list.
|
|
|
|
map_reduce :-
|
|
map_reduce_add([[1, 2], [1, 2, 3]], [_L1, _L2]).
|
|
|
|
:- pred map_reduce_add(list(list(int))::in, list(int)::out) is det.
|
|
:- pragma external_pred(map_reduce_add/2).
|