--| 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 TEST2 inherit ANY redefine default_create end create default_create feature default_create is do value := 47.25 end to_reference: ANY is do end set_value (v: DOUBLE) is do value := v end value: DOUBLE end