mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-16 09:53:36 +00:00
33eb3028f5
tests/accumulator/*.m:
tests/analysis_*/*.m:
tests/benchmarks*/*.m:
tests/debugger*/*.{m,exp,inp}:
tests/declarative_debugger*/*.{m,exp,inp}:
tests/dppd*/*.m:
tests/exceptions*/*.m:
tests/general*/*.m:
tests/grade_subdirs*/*.m:
tests/hard_coded*/*.m:
Make these tests use four-space indentation, and ensure that
each module is imported on its own line. (I intend to use the latter
to figure out which subdirectories' tests can be executed in parallel.)
These changes usually move code to different lines. For the debugger tests,
specify the new line numbers in .inp files and expect them in .exp files.
87 lines
1.7 KiB
Mathematica
87 lines
1.7 KiB
Mathematica
%---------------------------------------------------------------------------%
|
|
% vim: ts=4 sw=4 et ft=mercury
|
|
%---------------------------------------------------------------------------%
|
|
%
|
|
% This is regression test for bug 160 in the Mantis database.
|
|
%
|
|
% The bug it tests for is in gcc. Compiling this source file in grade
|
|
% asm_fast.gc with the option --no-optimize-peep-mkword yields a .c file
|
|
% that gcc 4.4.1 generates incorrect code for at the default optimization level
|
|
% unless you give it the option --fno-tree-loop-im.
|
|
%
|
|
% Mercury.options specifies --optimize-peep-mkword for this program, so
|
|
% we should pass this test case even on systems with buggy gcc installations.
|
|
|
|
:- module bug160.
|
|
:- interface.
|
|
:- import_module io.
|
|
|
|
:- pred main(io::di, io::uo) is det.
|
|
|
|
:- implementation.
|
|
|
|
:- import_module list.
|
|
:- import_module require.
|
|
|
|
main(!IO) :-
|
|
bug(R),
|
|
io.write_string(R, !IO),
|
|
io.nl(!IO).
|
|
|
|
:- type t1
|
|
---> a
|
|
; b.
|
|
|
|
:- type t2
|
|
---> c(t3)
|
|
; d
|
|
; e.
|
|
|
|
:- type t3
|
|
---> f(t1, t1).
|
|
|
|
:- pred bug(string::out) is det.
|
|
|
|
bug(R) :-
|
|
( p ->
|
|
R = "RESULT: BAD A"
|
|
;
|
|
( q(R0) ->
|
|
R1 = R0
|
|
;
|
|
R1 = c(f(a, a))
|
|
),
|
|
% Enabling the following causes R1 to be bound to the correct value.
|
|
% trace [io(!IO)] io.print(R1, !IO),
|
|
(
|
|
R1 = c(_),
|
|
R = "RESULT: OK"
|
|
;
|
|
R1 = d,
|
|
R = "RESULT: BAD D"
|
|
;
|
|
R1 = e,
|
|
R = "RESULT: BAD E"
|
|
)
|
|
).
|
|
|
|
:- pred p is semidet.
|
|
|
|
p :-
|
|
( 1 = 2 ->
|
|
true
|
|
;
|
|
fail
|
|
).
|
|
|
|
:- pred q(t2::out) is semidet.
|
|
|
|
q(Out) :-
|
|
( 1 = 2 ->
|
|
Out = d
|
|
;
|
|
fail
|
|
).
|
|
|
|
:- end_module bug160.
|