--| 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. $HEADER class TEST2 inherit ANY redefine default_create end creation default_create feature default_create is do io.putstring ("In TEST2 creation procedure%N"); end; x: separate TEST to_reference: ANY is do end end