--| 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 uninherit-any-vdpr2-sneak test_description After initial compilation, a VDPR(2) error is introduced by removing an inheritance clause for ANY, where a routine is calling `Precursor {ANY}'. The compiler does not detect the newly introduced VDPR(2) error. define PARENT "ANY redefine default_rescue end" copy_sub Ace $TEST Ace copy_sub test.e $CLUSTER test.e copy_raw test2.e $CLUSTER test2.e compile_melted compile_result ok define PARENT "" copy_sub test.e $CLUSTER test.e compile_melted compile_result validity_error TEST VDPR(2) test_end