mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-22 12:53:47 +00:00
dc31460341
Estimated hours taken: 0.5 Added a test for the case where there are pragma(c_code, ...) decs for different modes of the same pred. two_pragma_c_codes.m : Added above test case.
21 lines
413 B
Mathematica
21 lines
413 B
Mathematica
% A test for the case where we have pragma(c_code, ...) decs for different
|
|
% modes of the same pred.
|
|
|
|
:- module two_pragma_c_codes.
|
|
|
|
:- interface.
|
|
|
|
:- pred c_int_unify(int, int).
|
|
|
|
|
|
:- implementation.
|
|
|
|
:- mode c_int_unify(in, out) is det.
|
|
|
|
:- mode c_int_unify(out, in) is det.
|
|
|
|
:- pragma(c_code, c_int_unify(Int0::in, Int::out), "Int = Int0;").
|
|
|
|
:- pragma(c_code, c_int_unify(Int::out, Int0::in), "Int = Int0;").
|
|
|