9687850865
* (all files)
* stripped svn header
* minor cleanups
; use following command to find out the history of files:
git log
git log --follow
git blame
git annotate
23 lines
338 B
Plaintext
23 lines
338 B
Plaintext
/* Testing Harbour If inline */
|
|
|
|
PROCEDURE Main()
|
|
LOCAL n := 1
|
|
|
|
QOut( "Testing Harbour If inline" )
|
|
|
|
if( n == 1, QOut( 1 ), QOut( 2 ) )
|
|
|
|
iif( n != NIL, QOut( "not NIL" ), )
|
|
|
|
QOut( "Now changing n to 2" )
|
|
|
|
n := 2
|
|
|
|
if( n == 1, QOut( 1 ), QOut( 2 ) )
|
|
|
|
iif( n != NIL, QOut( "not NIL" ), )
|
|
|
|
QOut( "ok!" )
|
|
|
|
RETURN
|