paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-28 21:00:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* more fun testing for emulation $E switch.

Browse Source
This commit is contained in:
carl 2002-10-29 20:47:23 +00:00
parent 4ff94d240d
commit 29497cbed0
1 changed files with 41 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
tests/tbs/tb0414.pp Normal file
View File

@ -0,0 +1,41 @@
{ This tests the $E+ compiler
switch. It verifies if the
switch is correctly enabled
depending on the target OS
for m68k.
}
program tb0414;
{$ifdef amiga}
{ Emulation is off by default }
{$ifopt E-}
{$error Emulation is disabled by default for amiga!!}
{$endif}
{$endif}
{$ifdef atari}
{ Emulation is off by default }
{$ifopt E-}
{$error Emulation is disabled by default for amiga!!}
{$endif}
{$endif}
{$ifdef netbsd}
{ Emulation is on by default }
{$ifopt E+}
{$error Emulation is enabled by default for unix!!}
{$endif}
{$endif}
{$ifdef linux}
{ Emulation is on by default }
{$ifopt E+}
{$error Emulation is enabled by default for unix!!}
{$endif}
{$endif}
Begin
End.