[xHarbour-developers] Another long standing bug

[Enrico Maria Giordano]

FUNCTION MAIN()

? TEST()

INKEY( 0 )

RETURN NIL


STATIC FUNCTION TEST()

LOCAL nVar := 1

LOCAL lVar := .T.

BEGIN SEQUENCE
IF lVar
nVar = 2
BREAK
ENDIF

nVar = 3
END SEQUENCE

RETURN nVar

test.prg(26) Warning W0032 Variable 'NVAR' is assigned but not used in
function 'TEST(18)'

EMG

--
EMAG Software Homepage: http://www.emagsoftware.it
The EMG Music page: http://www.emagsoftware.it/emgmusic
The EMG's ZX-Spectrum Page: http://www.emagsoftware.it/spectrum
The Best of Spectrum Games: http://www.emagsoftware.it/tbosg

------------------------------------------------------------------------------