Merged revisions 399 via svnmerge from

/trunk

git-svn-id: branches/fixes_2_0@400 -

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