* fixced uninitialised variable

git-svn-id: trunk@399 -

tests/tbs/tb0005.pp

@@ -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)');