--| 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. -- This is a test control file test_name move-external-make-do test_description A system with a VDRD violation is compiled. Then the offending external routine is deleted and a routine with the same name but a `do' body is added to the inheriting class and compilation is resumed copy_sub Ace $TEST Ace define INHERITANCE "inherit TEST1; TEST2" define TEST_ROUTINE "" copy_sub test.e $CLUSTER test.e copy_raw test1.e $CLUSTER test1.e define TEST2_ROUTINE "try is external "C" end" copy_sub test2.e $CLUSTER test2.e compile_melted compile_result ok define INHERITANCE "inherit TEST1" define TEST_ROUTINE "try is do end" define TEST2_ROUTINE "try is external "C" end" copy_sub test.e $CLUSTER test.e copy_sub test2.e $CLUSTER test2.e compile_melted compile_result ok test_end