harbour-core/harbour/tests/tstprag.prg

//NOTEST
/*
 * $Id$
 */

#pragma TracePragmas=On
#pragma ExitSeverity=1

/* Unknown pragmas will be ignored silently */
#pragma BadPragma=off
#pragma /Y+

PROCEDURE Main()

#pragma Shortcut=On

#pragma Shortcut= Off

#pragma Shortcut = On

#pragma Shortcut(OFF)

#pragma Shortcut( On)

#pragma Shortcut( OFF )

#pragma Shortcut( On )

#pragma Shortcut( OFF )

#pragma Shortcut( ON

   /* or #pragma /Z+ */

   IF .T. .AND. .F.
      ? "Always"
   ENDIF

   IF .F. .AND. .T.
      ? "Never"
   ENDIF

#pragma /Z-
/* or #pragma Shortcut=Off */

#pragma Exitseverity=0
#pragma Exitseverity=1
#pragma Exitseverity(0)
#pragma Exitseverity( 1 )
#pragma Exitseverity( 0 )
#pragma Exitseverity= 2
#pragma Exitseverity= 1

/* Pragmas with bad values will cause an error  */
#pragma WarningLevel=8

   RETURN