paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 06:49:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixced uninitialised variable

Browse Source 
git-svn-id: trunk@399 -
This commit is contained in:
Jonas Maebe 2005-06-13 21:53:12 +00:00
parent fd40a0fb80
commit 26646298a4
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; d:=17.0;
e:=19.0; e:=19.0;
f:=23.0; f:=23.0;
g:=0.0;
r:=2.0; r:=2.0;
a:= a - 2*b*e - 2*c*f - 2*d*g - Sqr(r); a:= a - 2*b*e - 2*c*f - 2*d*g - Sqr(r);
writeln(a,' (must be -1010)'); writeln(a,' (must be -1010)');