fork(1) 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.
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin
copy 
Standard input is empty
compilation info 
Free Pascal Compiler version 3.0.0+dfsg-10 [2016/12/12] for x86_64
Copyright (c) 1993-2015 by Florian Klaempfl and others
Target OS: Linux for x86-64
Compiling prog.pas
prog.pas(6,3) Fatal: User defined: SORRY, MATE!
prog.pas(6,3) Fatal: Compilation aborted
Error: /usr/bin/ppcx64 returned an error exitcode
stdout
copy 
Standard output is empty
https://ideone.com/67COm1
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!