a4a357a18b
* /harbour/* -> /*
* moved whole Harbour source tree one level up to
avoid single 'harbour' top dir
27 lines
354 B
Plaintext
27 lines
354 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/* 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
|