Linux - basic

Basic
FreeBASIC Compiler - Version 0.22.0 (05-06-2011) for linux (target:linux)

declare sub test()

DIM As Integer i

for i=1 to 5
    test ()
next i

sub test ()
    DIM As Integer i
    DIM As Integer x
    DIM As double s
    DIM As double e
    DIM As double r
   
    s = Timer
    for i=1 to 100000000
    x = i / 10
    next i
    e = Timer
   
    r = (e - s) * 1000
    print r
end sub

Запуск:
> fbc testbasic.bas
> ./testbasic

Результат:
870.2189922332764
867.264986038208
860.558032989502
860.0380420684814
860.3219985961914