paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-15 16:29:14 +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; Program toperator5;
uses ucomplex; uses ucomplex;
@ -9,8 +11,8 @@ const
IM_ONE = 7.5; IM_ONE = 7.5;
IM_TWO = 15.2; IM_TWO = 15.2;
IM_THREE = 11.1; IM_THREE = 11.1;
procedure fail; procedure fail;
begin begin
WriteLn('Failed!'); WriteLn('Failed!');
@ -29,7 +31,7 @@ const
fail; fail;
WriteLn('Success!'); WriteLn('Success!');
end; end;
procedure TestComplexAdd; procedure TestComplexAdd;
var var
i,j: complex; i,j: complex;
@ -46,7 +48,7 @@ const
fail; fail;
WriteLn('Success!'); WriteLn('Success!');
end; end;
procedure TestComplexSubtract; procedure TestComplexSubtract;
var var
i,j: complex; i,j: complex;
@ -63,7 +65,7 @@ const
fail; fail;
WriteLn('Success!'); WriteLn('Success!');
end; end;
procedure TestComplexMultiply; procedure TestComplexMultiply;
var var
@ -82,7 +84,7 @@ const
WriteLn('Success!'); WriteLn('Success!');
end; end;
procedure TestComplexEqual; procedure TestComplexEqual;
var var
@ -125,7 +127,10 @@ end.
{ {
$Log$ $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 * operator overloading interactive tests
} }