mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-15 17:33:38 +00:00
341b3247aa
tests/hard_coded/bulk_compare_packed.{m,exp}:
A new test case to test comparison predicates involving bulk comparison
of packed arguments.
tests/hard_coded/Mmakefile:
Enable the new test case.
113 lines
4.7 KiB
Plaintext
113 lines
4.7 KiB
Plaintext
|
|
tx_a = tx_a
|
|
tx_a < tx_b(e00, e11, e10)
|
|
tx_a < tx_b(e10, e11, e01)
|
|
tx_a < tx_c(e00, e11, -44i8, e10)
|
|
tx_a < tx_c(e00, e11, 44i8, e10)
|
|
tx_a < tx_c(e10, e11, -55i8, e01)
|
|
tx_a < tx_c(e10, e11, 55i8, e01)
|
|
|
|
tx_b(e00, e11, e10) > tx_a
|
|
tx_b(e00, e11, e10) = tx_b(e00, e11, e10)
|
|
tx_b(e00, e11, e10) < tx_b(e10, e11, e01)
|
|
tx_b(e00, e11, e10) < tx_c(e00, e11, -44i8, e10)
|
|
tx_b(e00, e11, e10) < tx_c(e00, e11, 44i8, e10)
|
|
tx_b(e00, e11, e10) < tx_c(e10, e11, -55i8, e01)
|
|
tx_b(e00, e11, e10) < tx_c(e10, e11, 55i8, e01)
|
|
|
|
tx_b(e10, e11, e01) > tx_a
|
|
tx_b(e10, e11, e01) > tx_b(e00, e11, e10)
|
|
tx_b(e10, e11, e01) = tx_b(e10, e11, e01)
|
|
tx_b(e10, e11, e01) < tx_c(e00, e11, -44i8, e10)
|
|
tx_b(e10, e11, e01) < tx_c(e00, e11, 44i8, e10)
|
|
tx_b(e10, e11, e01) < tx_c(e10, e11, -55i8, e01)
|
|
tx_b(e10, e11, e01) < tx_c(e10, e11, 55i8, e01)
|
|
|
|
tx_c(e00, e11, -44i8, e10) > tx_a
|
|
tx_c(e00, e11, -44i8, e10) > tx_b(e00, e11, e10)
|
|
tx_c(e00, e11, -44i8, e10) > tx_b(e10, e11, e01)
|
|
tx_c(e00, e11, -44i8, e10) = tx_c(e00, e11, -44i8, e10)
|
|
tx_c(e00, e11, -44i8, e10) < tx_c(e00, e11, 44i8, e10)
|
|
tx_c(e00, e11, -44i8, e10) < tx_c(e10, e11, -55i8, e01)
|
|
tx_c(e00, e11, -44i8, e10) < tx_c(e10, e11, 55i8, e01)
|
|
|
|
tx_c(e00, e11, 44i8, e10) > tx_a
|
|
tx_c(e00, e11, 44i8, e10) > tx_b(e00, e11, e10)
|
|
tx_c(e00, e11, 44i8, e10) > tx_b(e10, e11, e01)
|
|
tx_c(e00, e11, 44i8, e10) > tx_c(e00, e11, -44i8, e10)
|
|
tx_c(e00, e11, 44i8, e10) = tx_c(e00, e11, 44i8, e10)
|
|
tx_c(e00, e11, 44i8, e10) < tx_c(e10, e11, -55i8, e01)
|
|
tx_c(e00, e11, 44i8, e10) < tx_c(e10, e11, 55i8, e01)
|
|
|
|
tx_c(e10, e11, -55i8, e01) > tx_a
|
|
tx_c(e10, e11, -55i8, e01) > tx_b(e00, e11, e10)
|
|
tx_c(e10, e11, -55i8, e01) > tx_b(e10, e11, e01)
|
|
tx_c(e10, e11, -55i8, e01) > tx_c(e00, e11, -44i8, e10)
|
|
tx_c(e10, e11, -55i8, e01) > tx_c(e00, e11, 44i8, e10)
|
|
tx_c(e10, e11, -55i8, e01) = tx_c(e10, e11, -55i8, e01)
|
|
tx_c(e10, e11, -55i8, e01) < tx_c(e10, e11, 55i8, e01)
|
|
|
|
tx_c(e10, e11, 55i8, e01) > tx_a
|
|
tx_c(e10, e11, 55i8, e01) > tx_b(e00, e11, e10)
|
|
tx_c(e10, e11, 55i8, e01) > tx_b(e10, e11, e01)
|
|
tx_c(e10, e11, 55i8, e01) > tx_c(e00, e11, -44i8, e10)
|
|
tx_c(e10, e11, 55i8, e01) > tx_c(e00, e11, 44i8, e10)
|
|
tx_c(e10, e11, 55i8, e01) > tx_c(e10, e11, -55i8, e01)
|
|
tx_c(e10, e11, 55i8, e01) = tx_c(e10, e11, 55i8, e01)
|
|
|
|
ty_a = ty_a
|
|
ty_a < ty_b(42, e00, e11, e10)
|
|
ty_a < ty_b(42, e10, e11, e01)
|
|
ty_a < ty_c(42, e00, e11, -44i8, e10)
|
|
ty_a < ty_c(42, e00, e11, 44i8, e10)
|
|
ty_a < ty_c(42, e10, e11, -55i8, e01)
|
|
ty_a < ty_c(42, e10, e11, 55i8, e01)
|
|
|
|
ty_b(42, e00, e11, e10) > ty_a
|
|
ty_b(42, e00, e11, e10) = ty_b(42, e00, e11, e10)
|
|
ty_b(42, e00, e11, e10) < ty_b(42, e10, e11, e01)
|
|
ty_b(42, e00, e11, e10) < ty_c(42, e00, e11, -44i8, e10)
|
|
ty_b(42, e00, e11, e10) < ty_c(42, e00, e11, 44i8, e10)
|
|
ty_b(42, e00, e11, e10) < ty_c(42, e10, e11, -55i8, e01)
|
|
ty_b(42, e00, e11, e10) < ty_c(42, e10, e11, 55i8, e01)
|
|
|
|
ty_b(42, e10, e11, e01) > ty_a
|
|
ty_b(42, e10, e11, e01) > ty_b(42, e00, e11, e10)
|
|
ty_b(42, e10, e11, e01) = ty_b(42, e10, e11, e01)
|
|
ty_b(42, e10, e11, e01) < ty_c(42, e00, e11, -44i8, e10)
|
|
ty_b(42, e10, e11, e01) < ty_c(42, e00, e11, 44i8, e10)
|
|
ty_b(42, e10, e11, e01) < ty_c(42, e10, e11, -55i8, e01)
|
|
ty_b(42, e10, e11, e01) < ty_c(42, e10, e11, 55i8, e01)
|
|
|
|
ty_c(42, e00, e11, -44i8, e10) > ty_a
|
|
ty_c(42, e00, e11, -44i8, e10) > ty_b(42, e00, e11, e10)
|
|
ty_c(42, e00, e11, -44i8, e10) > ty_b(42, e10, e11, e01)
|
|
ty_c(42, e00, e11, -44i8, e10) = ty_c(42, e00, e11, -44i8, e10)
|
|
ty_c(42, e00, e11, -44i8, e10) < ty_c(42, e00, e11, 44i8, e10)
|
|
ty_c(42, e00, e11, -44i8, e10) < ty_c(42, e10, e11, -55i8, e01)
|
|
ty_c(42, e00, e11, -44i8, e10) < ty_c(42, e10, e11, 55i8, e01)
|
|
|
|
ty_c(42, e00, e11, 44i8, e10) > ty_a
|
|
ty_c(42, e00, e11, 44i8, e10) > ty_b(42, e00, e11, e10)
|
|
ty_c(42, e00, e11, 44i8, e10) > ty_b(42, e10, e11, e01)
|
|
ty_c(42, e00, e11, 44i8, e10) > ty_c(42, e00, e11, -44i8, e10)
|
|
ty_c(42, e00, e11, 44i8, e10) = ty_c(42, e00, e11, 44i8, e10)
|
|
ty_c(42, e00, e11, 44i8, e10) < ty_c(42, e10, e11, -55i8, e01)
|
|
ty_c(42, e00, e11, 44i8, e10) < ty_c(42, e10, e11, 55i8, e01)
|
|
|
|
ty_c(42, e10, e11, -55i8, e01) > ty_a
|
|
ty_c(42, e10, e11, -55i8, e01) > ty_b(42, e00, e11, e10)
|
|
ty_c(42, e10, e11, -55i8, e01) > ty_b(42, e10, e11, e01)
|
|
ty_c(42, e10, e11, -55i8, e01) > ty_c(42, e00, e11, -44i8, e10)
|
|
ty_c(42, e10, e11, -55i8, e01) > ty_c(42, e00, e11, 44i8, e10)
|
|
ty_c(42, e10, e11, -55i8, e01) = ty_c(42, e10, e11, -55i8, e01)
|
|
ty_c(42, e10, e11, -55i8, e01) < ty_c(42, e10, e11, 55i8, e01)
|
|
|
|
ty_c(42, e10, e11, 55i8, e01) > ty_a
|
|
ty_c(42, e10, e11, 55i8, e01) > ty_b(42, e00, e11, e10)
|
|
ty_c(42, e10, e11, 55i8, e01) > ty_b(42, e10, e11, e01)
|
|
ty_c(42, e10, e11, 55i8, e01) > ty_c(42, e00, e11, -44i8, e10)
|
|
ty_c(42, e10, e11, 55i8, e01) > ty_c(42, e00, e11, 44i8, e10)
|
|
ty_c(42, e10, e11, 55i8, e01) > ty_c(42, e10, e11, -55i8, e01)
|
|
ty_c(42, e10, e11, 55i8, e01) = ty_c(42, e10, e11, 55i8, e01)
|