--| Copyright (c) 1993-2006 University of Southern California and contributors.
--| All rights reserved.
--| Your use of this work is governed under the terms of the GNU General
--| Public License version 2.

expanded class TEST1
feature
	set_n (x: INTEGER) is
		do
			n := x
		end

	m: $TYPE

	n: INTEGER
end