Conditionals nested

Smart pascal source code


// -----> SIMPLE NESTED CONDITIONALS <-------
{$IFDEF TEST}
{$IFDEF ABCD}
WriteLn('Bug 1');
{$ENDIF}
{$ENDIF}

{$Define ABCD}

{$IFDEF TEST}
{$IFDEF ABCD}
WriteLn('Bug 2');
{$ENDIF}
{$ENDIF}

{$Define TEST}

{$IFDEF TEST}
{$IFDEF ABCD}
WriteLn('Hello world');
{$ENDIF}
{$ENDIF}

{$Undef ABCD}

{$IFDEF TEST}
{$IFDEF ABCD}
WriteLn('Bug 3');
{$ENDIF}
{$ENDIF}


{ <<<<<<<<<<<< CONSOLE OUTPUTS >>>>>>>>>>>>>>>>>>>
  Hello world
}

// -----> SIMPLE NESTED CONDITIONALS II <-------

{$IFDEF DEBUG}
 {$WARNING 'Debug mode activated!'}
{$ENDIF}