paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-12 10:49:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

* ucomplex will be delivered with 1.1

Browse Source
This commit is contained in:
peter 2002-12-22 15:14:02 +00:00
parent 51991609e0
commit cf6c0a1a54
1 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
tests/test/toperator5.pp
View File

@ -1,3 +1,5 @@
{ %version=1.1 }
Program toperator5;
uses ucomplex;
@ -9,8 +11,8 @@ const
IM_ONE = 7.5;
IM_TWO = 15.2;
IM_THREE = 11.1;
procedure fail;
begin
WriteLn('Failed!');
@ -29,7 +31,7 @@ const
fail;
WriteLn('Success!');
end;
procedure TestComplexAdd;
var
i,j: complex;
@ -46,7 +48,7 @@ const
fail;
WriteLn('Success!');
end;
procedure TestComplexSubtract;
var
i,j: complex;
@ -63,7 +65,7 @@ const
fail;
WriteLn('Success!');
end;
procedure TestComplexMultiply;
var
@ -82,7 +84,7 @@ const
WriteLn('Success!');
end;
procedure TestComplexEqual;
var
@ -125,7 +127,10 @@ end.
{
$Log$
Revision 1.1 2002-09-08 11:54:23 carl
Revision 1.2 2002-12-22 15:14:02 peter
* ucomplex will be delivered with 1.1
Revision 1.1 2002/09/08 11:54:23 carl
* operator overloading interactive tests
}