mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-22 21:03:53 +00:00
fdd141bf77
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.
57 lines
2.1 KiB
Mathematica
57 lines
2.1 KiB
Mathematica
% vim: ft=mercury sw=4 ts=4 expandtab
|
|
%
|
|
% This regression test is an expanded version of the program files by Greg Duck
|
|
% in a bug report on Feb 22 2006.
|
|
|
|
:- module non_word_mutable.child.
|
|
|
|
:- interface.
|
|
|
|
:- impure pred exported_set_gv1(float::in) is det.
|
|
:- semipure pred exported_get_gv1(float::out) is det.
|
|
:- impure pred exported_set_gv2(float::in) is det.
|
|
:- semipure pred exported_get_gv2(float::out) is det.
|
|
:- impure pred exported_set_gv3(string::in) is det.
|
|
:- semipure pred exported_get_gv3(string::out) is det.
|
|
:- impure pred exported_set_gv4(string::in) is det.
|
|
:- semipure pred exported_get_gv4(string::out) is det.
|
|
:- impure pred exported_set_gv5(coord::in) is det.
|
|
:- semipure pred exported_get_gv5(coord::out) is det.
|
|
:- impure pred exported_set_gv6(coord::in) is det.
|
|
:- semipure pred exported_get_gv6(coord::out) is det.
|
|
|
|
:- implementation.
|
|
|
|
:- mutable(gv1, float, 0.0, ground, [untrailed]).
|
|
:- mutable(gv2, float, 2.3, ground, [untrailed]).
|
|
:- mutable(gv3, string, "", ground, [untrailed]).
|
|
:- mutable(gv4, string, "def", ground, [untrailed]).
|
|
:- mutable(gv5, coord, new_coord(0, 0), ground, [untrailed]).
|
|
:- mutable(gv6, coord, new_coord(2, 3), ground, [untrailed]).
|
|
|
|
:- pragma inline(exported_set_gv1/1).
|
|
:- pragma inline(exported_get_gv1/1).
|
|
:- pragma inline(exported_set_gv2/1).
|
|
:- pragma inline(exported_get_gv2/1).
|
|
:- pragma inline(exported_set_gv3/1).
|
|
:- pragma inline(exported_get_gv3/1).
|
|
:- pragma inline(exported_set_gv4/1).
|
|
:- pragma inline(exported_get_gv4/1).
|
|
:- pragma inline(exported_set_gv5/1).
|
|
:- pragma inline(exported_get_gv5/1).
|
|
:- pragma inline(exported_set_gv6/1).
|
|
:- pragma inline(exported_get_gv6/1).
|
|
|
|
exported_set_gv1(X) :- impure set_gv1(X).
|
|
exported_get_gv1(X) :- semipure get_gv1(X).
|
|
exported_set_gv2(X) :- impure set_gv2(X).
|
|
exported_get_gv2(X) :- semipure get_gv2(X).
|
|
exported_set_gv3(X) :- impure set_gv3(X).
|
|
exported_get_gv3(X) :- semipure get_gv3(X).
|
|
exported_set_gv4(X) :- impure set_gv4(X).
|
|
exported_get_gv4(X) :- semipure get_gv4(X).
|
|
exported_set_gv5(X) :- impure set_gv5(X).
|
|
exported_get_gv5(X) :- semipure get_gv5(X).
|
|
exported_set_gv6(X) :- impure set_gv6(X).
|
|
exported_get_gv6(X) :- semipure get_gv6(X).
|