mirror of
https://github.com/Mercury-Language/mercury.git
synced 2025-12-18 15:26:31 +00:00
00fdbf9b8b
Estimated hours taken: 0.1 Branches: main tests/invalid/bad_mutable.m: tests/invalid/bad_mutable.err_exp: Fix this test case and its expected output. They weren't updated properly when the foreign_name attributes were added to mutable declarations.
25 lines
735 B
Mathematica
25 lines
735 B
Mathematica
:- module bad_mutable.
|
|
|
|
:- interface.
|
|
|
|
:- mutable(in_interface, int, 0, ground, [untrailed, thread_safe]).
|
|
|
|
:- implementation.
|
|
|
|
:- type list(T) ---> [] ; [ T | list(T) ].
|
|
|
|
:- mutable(not_a_type, no_type, 0, ground, [untrailed, thread_safe]).
|
|
|
|
:- mutable(not_an_inst, int, 0, special_ground, [untrailed, thread_safe]).
|
|
|
|
:- mutable(bad_attribute, int, 0, ground, [untrailed, thread_safe, bad_attrib]).
|
|
|
|
:- mutable(poly_type, list(T), [], ground, [untrailed, thread_safe]).
|
|
|
|
:- mutable(conflicting_trail, int, 0, ground, [untrailed, trailed]).
|
|
|
|
:- mutable(conflicting_thread, int, 0, ground, [thread_safe, not_thread_safe]).
|
|
|
|
:- mutable(multiple_foreign, int, 0, ground,
|
|
[untrailed, foreign_name("C", "one"), foreign_name("C", "two")]).
|