passing arrays by name to a sub

[Stuart]

Passing arrays is potentially very useful. Basic with subs and parameters is a wonderful thing. But I'm having trouble getting the format right.
This test program illustrates the point. How should I code this simple task?

Code: [Local Link Removed for Guests]

dim my_array(20) = 1,2, 3, 4, 5, 6, 7, 8, 9, 10,11,12,13,14,15,16,17,18,19,20
dim my_other_array(20)
adim = 20

copy_array my_array(),my_other_array(),adim
'with braces, the error is "Type mismatch line 5"
'without braces the error is "No such variable line 5"
'if I put a value inside the braces the error is "Type mismatch line 5"

for p=1 to adim
wlog my_other_array(p)
next
end

sub copy_array(in_array,out_array,array_dim)
dim in_array(array_dim)
dim out_array(array_dim)
for i= 0 to dim
   out_array(i) = in_array(i)
next
end sub

[bugs]

There was an error in one of the earlier versions - what version are you using?

[Stuart]

1.51.5 currently

[bugs]

OK - that took a while to find!
I have marked the changes with comments - hope it helps. (using ver 1.52.1 but don't think it matters)

Code: [Local Link Removed for Guests]

' passing arrays

dim my_array(20) = 1,2, 3, 4, 5, 6, 7, 8, 9, 10,11,12,13,14,15,16,17,18,19,20
dim my_other_array(20)
adim = 20

'* copy_array my_array(),my_other_array(),adim
copy_array my_array(), my_other_array(),adim      'this looks like a bug - must have a space after the first comma or get syntax error

for p=0 to adim-1                                'note:- arrays are 0 to n unless use OPTION.BASE 1
  wlog my_other_array(p)
next
end

'* sub copy_array(in_array,out_array,array_dim)
sub copy_array(in_array(),out_array(),array_dim)  ' added braces
  dim in_array(array_dim)
  dim out_array(array_dim)
'*  for i= 0 to dim
  for i= 0 to array_dim                            'changed reserved word DIM to array_dim
     out_array(i) = in_array(i)
  next
end sub

[Stuart]

Thanks for looking for it, I'll give that a try.

As I didn't get beyond line 5 I hadn't found my own bugs!

[bugs]

Hi Stuart,

Understood - no criticism intended - just noted as I went along.
I retyped, copied, pasted, retyped umpteen times before the real bug surrendered. Reported in the sotware bugs forum area.

[Stuart]

It seems that there needs to be one and only one space after the first comma in the example above, at least in the code that I am using.