fork download
copy 
  1. {$DEFINE TEST_A}
  2. // {$DEFINE TEST_B}
  3. // {$DEFINE TEST_C}
  4.  
  5. {$IF DEFINED(TEST_A) + DEFINED(TEST_B) + DEFINED(TEST_C) <> 1}
  6. 	{$FATAL SORRY, MATE!}
  7. {$ENDIF}
  8.  
  9. program ideone;
  10. begin
  11. 	(* your code goes here *)
  12. end.
Success #stdin #stdout 0s 340KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
https://ideone.com/beJEc8
language:
Pascal (fpc 3.0.4)
created:
6 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!