--| 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 melted-two-level-rescue test_description A routine whose rescue clause tries to display the meaning of the exception dies with an exception trace if the original exception is two levels down, the called routine also has a rescue clause and the code is melted. Frozen code works fine. copy_sub Ace $TEST Ace copy_raw test.e $CLUSTER test.e compile_melted compile_result validity_warning TEST "Unused Local" execute_work NONE exec_output1 execute_result ok compare exec_output1 output compile_frozen compile_result ok c_compile_work c_compile_result ok execute_work NONE exec_output2 execute_result ok compare exec_output2 output test_end