Files
mercury/tests/valid/empty_switch.m
Zoltan Somogyi fdd141bf77 Clean up the tests in the other test directories.
tests/invalid/*.{m,err_exp}:
tests/misc_tests/*.m:
tests/mmc_make/*.m:
tests/par_conj/*.m:
tests/purity/*.m:
tests/stm/*.m:
tests/string_format/*.m:
tests/structure_reuse/*.m:
tests/submodules/*.m:
tests/tabling/*.m:
tests/term/*.m:
tests/trailing/*.m:
tests/typeclasses/*.m:
tests/valid/*.m:
tests/warnings/*.{m,exp}:
    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 tests
    that check compiler error messages, expect the new line numbers.

browser/cterm.m:
browser/tree234_cc.m:
    Import only one module per line.

tests/hard_coded/boyer.m:
    Fix something I missed.
2015-02-16 12:32:18 +11:00

33 lines
853 B
Mathematica

%---------------------------------------------------------------------------%
% vim: ts=4 sw=4 et ft=mercury
%---------------------------------------------------------------------------%
%
% This is a regression test. The compiler should eliminate both arms
% of the second switch, since they can't succeed, which means that
% X (or HeadVar__1) is not used in the second switch, which leads
% liveness to say that X dies at the end of the first switch.
% However, some versions of the compiler didn't turn the switch
% with no arms into a fail, which caused the compiler to abort
% with an internal error when trying to flush the switch variable.
:- module empty_switch.
:- interface.
:- pred s(int).
:- mode s(in) is failure.
:- implementation.
s(X) :-
(
X = 1
;
X = 2
),
(
X = 3
;
X = 4
).