39 lines
764 B
Plaintext
39 lines
764 B
Plaintext
//NOTEST
|
|
// Warning: This sample must be tested using /dTEST compiler flag
|
|
|
|
#define FIRST
|
|
#define SECOND
|
|
#define THIRD
|
|
|
|
function Main()
|
|
|
|
QOut( "testing Harbour /d compiler flag" )
|
|
|
|
#ifdef TEST
|
|
QOut( "Fine, you have just tested the /d compiler flag" )
|
|
#else
|
|
QOut( "Please change hb32.bat and include /dTEST compiler flag" )
|
|
#endif
|
|
|
|
#ifdef FIRST
|
|
QOut( "FIRST is defined" )
|
|
|
|
#ifdef SECOND
|
|
QOut( "FIRST and SECOND are defined" )
|
|
|
|
#ifdef THIRD
|
|
QOut( "FIRST, SECOND and THIRD are defined" )
|
|
#else
|
|
QOut( "THIRD is not defined" )
|
|
#endif
|
|
|
|
#else
|
|
QOut( "SECOND is not defined" )
|
|
#endif
|
|
|
|
#else
|
|
QOut( "FIRST is not defined" )
|
|
#endif
|
|
|
|
return nil
|