mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-16 21:59:32 +02:00
71068ae7eb
of the jdk15 unit in that case)
* adjusted testall.sh script so it can also be used to test class
files compiled for Android (still with the JVM though)
git-svn-id: branches/jvmbackend@19835 -
51 lines
791 B
ObjectPascal
51 lines
791 B
ObjectPascal
program ttrig;
|
|
|
|
{$modeswitch exceptions}
|
|
|
|
uses
|
|
{$ifdef java}jdk15{$else}androidr14{$endif};
|
|
|
|
{$macro on}
|
|
{$define writeln:=JLSystem.fout.println}
|
|
|
|
procedure do_error(i : longint);
|
|
begin
|
|
// writeln('Error near ',i);
|
|
raise JLException.create('Error near '+UnicodeString(JLInteger.valueOf(i).toString));
|
|
end;
|
|
|
|
var
|
|
s0,s1,s2 : single;
|
|
|
|
|
|
begin
|
|
writeln('--- Testing single functions ---');
|
|
|
|
// 0.0
|
|
s0:=0.0;
|
|
|
|
s1:=sin(s0);
|
|
if s1<>0.0 then
|
|
do_error(1);
|
|
|
|
s1:=cos(s0);
|
|
if s1<>1.0 then
|
|
do_error(2);
|
|
|
|
s1:=arctan(s0);
|
|
if s1<>0.0 then
|
|
do_error(3);
|
|
|
|
// pi/2
|
|
s2:=pi/2;
|
|
|
|
s1:=sin(s2);
|
|
if s1<>1.0 then
|
|
do_error(100);
|
|
|
|
s1:=cos(s2);
|
|
{ with single precision, the result is -4.371138829E-08 }
|
|
if abs(s1-0.0)>4.371138829E-08 then
|
|
do_error(101);
|
|
end.
|