#COMPILE EXE "test_numeric3.exe"
#DIM ALL
FUNCTION PBMAIN() AS LONG
    LOCAL b AS BYTE
    LOCAL l AS LONG
    LOCAL q AS QUAD
    LOCAL r AS LONG
    r = 0
    b = 10
    l = b + 5
    IF l <> 15 THEN r = 700
    q = l * 1000000
    IF q <> 15000000 THEN r = 701
    FUNCTION = r
END FUNCTION
