indexing
	description: "Objects that ..."
	author: ""
	date: "$Date$"
	revision: "$Revision$"

class
	TEST_LOOP_STATEMENT_01

feature -- Access

a_function:STRING is
  --
  local
  	i,j,k:INTEGER
  	a,b,c:REAL
  	bo,ba:BOOLEAN
  do

		from
			i:=0
			j:=10
		until
			bo
		loop
			i:=i+1
		end

	end
end