3cf59d321a
* NEW: Files can be dropped from files managers to the project treeview.
They are automatically inserted into the project then.
[WIKI CGI SCRIPT]
* BUG: '{' and '}' are not interpreted anymore between '=='.
[BENCHMARKS]
* NEW: Add Gambas/Perl/Python benchmarks to the repository.
[INTERPRETER]
* NEW: A Stop instruction encountered inside a component is not ignored
anymore and stops the program.
* BUG: Fix the File.SetName, File.SetExt and File.SetBaseName methods.
[COMPILER]
* NEW: The preprocessor now undestands the False and True constants.
[GB.FORM]
* NEW: Clean up the Stock class icon loading algorithm.
* BUG: Fix the Gnome icon map.
[GB.FORM.STOCK]
* NEW: Support for svg stock icons.
[GB.QT4]
* BUG: Drag.Show() now works for DnD operations started outside of the
application.
[GB.GTK]
* BUG: Drag.Show() now works for DnD operations started outside of the
application.
git-svn-id: svn://localhost/gambas/trunk@3400 867c0c6c-44f3-4631-809d-bfa615b0a4ec
33 lines
436 B
Text
Executable file
33 lines
436 B
Text
Executable file
#!/usr/bin/env gbs3
|
|
|
|
Sub Test(X As Float) As Float
|
|
|
|
Dim Mu As Float = 10.0
|
|
Dim Pu, Su As Float
|
|
Dim I, J, N As Integer
|
|
Dim aPoly As New Float[100]
|
|
|
|
N = 500000
|
|
|
|
For I = 0 To N - 1
|
|
For J = 0 To 99
|
|
Mu = (Mu + 2.0) / 2.0
|
|
aPoly[J] = Mu
|
|
Next
|
|
Su = 0.0
|
|
For J = 0 To 99
|
|
Su = X * Su + aPoly[J]
|
|
Next
|
|
Pu += Su
|
|
Next
|
|
|
|
Return Pu
|
|
|
|
End
|
|
|
|
Dim I as Integer
|
|
|
|
For I = 1 To 10
|
|
Print Test(0.2)
|
|
Next
|
|
|