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

Merged revisions 399 via svnmerge from

Browse Source 
/trunk

git-svn-id: branches/fixes_2_0@400 -
This commit is contained in:
Jonas Maebe 2005-06-13 21:56:18 +00:00
parent cfe47451f2
commit 11d429741d
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
tests/tbs/tb0005.pp
View File

@ -13,6 +13,7 @@ begin
d:=17.0;
e:=19.0;
f:=23.0;
g:=0.0;
r:=2.0;
a:= a - 2*b*e - 2*c*f - 2*d*g - Sqr(r);
writeln(a,' (must be -1010)');