about summary refs log blame commit diff stats
path: root/original_jonesforth/test_comparison.f
blob: f4908fbb66514b17f96811b60a0976a1848e4ea6 (plain) (tree)








































































                        
( -*- text -*- )

: TEST
	1 0 < . CR
	0 1 < . CR
	1 -1 < . CR
	-1 1 < . CR
	-1 0 < . CR
	0 -1 < . CR CR

	1 0 > . CR
	0 1 > . CR
	1 -1 > . CR
	-1 1 > . CR
	-1 0 > . CR
	0 -1 > . CR CR

	1 1 <= . CR
	0 0 <= . CR
	-1 -1 <= . CR
	1 0 <= . CR
	0 1 <= . CR
	1 -1 <= . CR
	-1 1 <= . CR
	-1 0 <= . CR
	0 -1 <= . CR CR

	1 1 >= . CR
	0 0 >= . CR
	-1 -1 >= . CR
	1 0 >= . CR
	0 1 >= . CR
	1 -1 >= . CR
	-1 1 >= . CR
	-1 0 >= . CR
	0 -1 >= . CR CR

	1 1 = . CR
	1 0 = . CR
	0 0 = . CR
	1 -1 = . CR
	-1 -1 = . CR CR

	1 1 <> . CR
	1 0 <> . CR
	0 0 <> . CR
	1 -1 <> . CR
	-1 -1 <> . CR CR

	1 0= . CR
	0 0= . CR
	-1 0= . CR CR

	1 0<> . CR
	0 0<> . CR
	-1 0<> . CR CR

	1 0< . CR
	0 0< . CR
	-1 0< . CR CR

	1 0> . CR
	0 0> . CR
	-1 0> . CR CR

	1 0<= . CR
	0 0<= . CR
	-1 0<= . CR CR

	1 0>= . CR
	0 0>= . CR
	-1 0>= . CR CR
;