SGN bug

[wallace]

Was the SGN bug not fixed, or is there something else wrong with my code?

[whitetiger0990]

If it has been fixed (I don't know if it has) let's see your code.

[wallace]

http://forum.qbasicnews.com/viewtopic.php?t=8507

[v3cz0r]

Course it was..

Code:

    dim i as integer
    dim s as short
    dim b as byte
    dim f as single
    dim d as double
    
    d = -123456.7
    f = -12345.6
    i = -12345
    s = -1234
    b = -123
    
    print sgn(i), sgn(s), sgn(b), sgn(f), sgn(d)
    
    d = 123456.7
    f = 12345.6
    i = 12345
    s = 1234
    b = 123
    
    print sgn(i), sgn(s), sgn(b), sgn(f), sgn(d)
    
    
    print sgn(-12345), sgn(-1234), sgn(-123), sgn(-12345.6), sgn(-123456.7)
    
    print sgn(12345), sgn(1234), sgn(123), sgn(12345.6), sgn(123456.7)[/code]