Crash after changing dimension of array

[jonasdovern]

I have the following problem: Consider the following procedure that I wrote for demonstration purposes:

Code: Select all

procedure testproc
	option ser[vec[vec]] array
	option integer       size
	*
	local ser[vec[vec]] larray
	local vec[vec]      lvec
	local integer       k i
	*
	dim lvec(size)
	gset larray 1 10 = lvec
	*
	do k=1,10
		do i=1,size
			dim larray(k)(i)(5)
			comp larray(k)(i) = %const(1.)
		end do i
	end do k
	gset array 1 10 = larray(t)
end procedure

RATS crashes (shuts down completely under Windows) without giving an error messages whenever I run this twice with changing "size".

Code: Select all

decl ser[vec[vec]] test
@testproc(array=test,size=5)
@testproc(array=test,size=4)

I would like the procedure to work when the output array hasn't been used before - but also when it has been used before with another dimension. Is there a way of avoiding these crashes?