include alert

subroutine a_child_sub
	scalar b
	call alert
endsub

subroutine local a_local_child_sub
	scalar b
	call alert
endsub


call a_child_sub
call alert
delete(noerr) b

call a_local_child_sub
call alert
delete(noerr) b