% This is a regression test. Some versions of the compiler fail it
% because of an improper implementation of comparison for floats.

:- module float_map.

:- interface.
:- import_module io.

:- pred main(io__state::di, io__state::uo) is det.

:- implementation.

:- import_module map, float.

main(S0, S) :-
	map__init(M1),
	map__det_insert(M1, 1.0, 5, M2),
	( map__search(M2, 14.5, _) ->
		io__write_string("found it: bug\n", S0, S)
	;
		io__write_string("did not find it: ok\n", S0, S)
	).