git-svn-id: branches/laksen/riscv_new@39641 -
@@ -1,3 +1,4 @@
+{ %OPT=-CE }
{ Old file: tbs0305.pp }
{ Finally is not handled correctly after inputting 0 }
{ this test is geared towards Double values }
program tb0643;
@@ -1,4 +1,5 @@
{ %skiptarget=go32v2 }
{$mode objfpc}
program fpu;
{$mode delphi}
{ %RESULT=207 }
{ Source provided for Free Pascal Bug Report 3160 }
{ Submitted by "Michalis Kamburelis" on 2004-06-12 }
{ %target=linux,haiku }
{ Source provided for Free Pascal Bug Report 3161 }
{ %result=217 }
{ Source provided for Free Pascal Bug Report 4100 }