Files
harbour-core/harbour/tests/testid.prg
Viktor Szakats 989253ba51 2011-02-17 15:01 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
* contrib/hbrun/hbrun.prg
    + Added GTWVT on win builds.

  * src/rtl/gtcrs/gtcrs.c
    ! Typo in comment.

  * src/rtl/errapi.c
    ! Deleted old TOFIX most pbly not relevant anymore.

  * tests/testid.prg
    ! Deleted old TOFIX and formatting.
2011-02-17 14:02:09 +00:00

45 lines
866 B
Plaintext

/*
* $Id$
*/
#ifndef TEST
#warning Warning: This sample must be tested using /dTEST compiler flag
#endif
#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 use /dTEST compiler flag" )
QOut( "Or run 'set HB_USER_PRGFLAGS=/dTEST' if you are using the GNU Make System" )
#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