Fix Gambas 'string2' test.

[BENCHMARKS]
* BUG: Fix Gambas 'string2' test.

benchmark/string2.gbs

@@ -1,21 +1,17 @@
 #!/usr/bin/env gbs3
 
-Public Sub Main()
+Dim S As String
+Dim I As Integer
+Dim C As String
+Dim J As Integer
 
-	Dim S As String
-  Dim I As Integer
-  Dim C As String
-  Dim J As Integer
-
-  For I = 1 To 1000000
-    For J = 65 To 90
-      C = Chr$(J)
-      S &= ".(" & C & ")"
-    Next
-  Next
-  
-  Print Len(S)
-  
-End
+For I = 1 To 1000000
+	For J = 65 To 90
+		C = Chr$(J)
+		S &= ".(" & C & ")"
+	Next
+Next
 
+Print Len(S)
 Error CStr(Jit.Time)
+