"Compilation failed" help?

[Phlashlite]

Anybody know why this code throws a "Compilation failed" error?  I've never had one of those before.

It's probably something simple to do with my code but, I'm just too newb to see it... ...
Any help would be appreciated.

Code: QB64: [Select]

1.  'For demo______________________________________________________________________
2. DIM test(24) AS INTEGER
3. FOR x = 0 TO 24
4.     test(x) = INT(RND * 999)
5.     PRINT test(x)
6. NEXT
7.  
8. RADIX_SORT (test())
9.  
10. FOR x = 0 TO 24
11.     LOCATE 1, 5
12.     PRINT test(x)
13. NEXT
14.  
15. '_____________________________________________________________________________
16.  
17.  
18. DIM SHARED length AS INTEGER
19. length = ALGTH(ARR())
20.  
21. DIM SHARED place AS INTEGER
22.  
23.  
24. 'Function for radix sort
25. SUB RADIX_SORT (ARR())
26.  
27.     'Find largest element in the Array
28.     max = AMAX(ARR(), length)
29.  
30.     'Counting sort is performed based on place, like ones place, tens place and so on.
31.     place = 1
32.     WHILE max / place > 0
33.         CALL COUNT_SORT(ARR(), place)
34.         place = place * 10
35.     WEND
36.  
37. END SUB
38.  
39. SUB COUNT_SORT (ARR(), PLACE)
40.  
41.     DIM oput(length)
42.  
43.     'Range of the number is 0-9 for each place considered.
44.     DIM count(10)
45.  
46.     'Count number of occurrences in count array
47.     FOR i = 0 TO length
48.  
49.         index = ARR(i) \ PLACE
50.         idx = index MOD 10
51.         count(idx) = count(idx) + 1
52.  
53.     NEXT
54.  
55.     'Change count[i] so that count[i] now contains actual position of this digit in output()
56.     FOR i = 1 TO 10
57.         count(i) = count(i) + count(i - 1)
58.     NEXT
59.  
60.     'Build the output array
61.     i = length - 1
62.     WHILE i >= 0
63.  
64.         index = ARR(i) \ PLACE
65.  
66.         c = count(index MOD 10)
67.         oput(c) = oput(c) - 1
68.  
69.         idx = index MOD 10
70.         count(idx) = count(idx) - 1
71.  
72.     WEND
73.  
74.     i = 0
75.     FOR i = 0 TO length
76.         ARR(i) = oput(i)
77.     NEXT
78.  
79.  
80. END SUB
81.  
82. '______________________________________________________________________________
83. FUNCTION AMAX (ARR(), NUM)
84.     FOR i = 0 TO NUM
85.         IF i > 0 THEN
86.             x = ARR(i - 1)
87.             y = ARR(i)
88.             IF x >= y THEN
89.                 tmx = x
90.             ELSE
91.                 tmx = y
92.             END IF
93.         END IF
94.     NEXT
95.     AMAX = tmx
96. END FUNCTION
97.  
98. '______________________________________________________________________________
99. FUNCTION ALGTH (ARR())
100.     ALGTH = UBOUND(ARR) - LBOUND(ARR)
101. END FUNCTION
102.  

[SMcNeill]

My guess would be a type mismatch.

DIM test(24) AS INTEGER

...

SUB RADIX_SORT (ARR())


....

RADIX_SORT (test())


Test is an integer array.

Radix_Sort wants an undefined array, which defaults to a SINGLE type.  This causes issues.


Second issue:  Passing your array inside parentheses.

RADIX_SORT (test())

This can cause issues.  Drop those parentheses and just pass it as:

RADIX_SORT test()


Correct the type mismatch, remove the parentheses, and I bet the issue will go away.

[Phlashlite]

@SMcNeill 

I appreciate it.  I'll try that! 
I just never had that type of error before.

[Phlashlite]

My guess would be a type mismatch.
... ... ...

Correct the type mismatch, remove the parentheses, and I bet the issue will go away.

You were exactly right!  Thanks!