[fpc-pascal] why fpc do not use a known return function value

[misu kun]

thanks ,
 even if you remove c and call test() inside writeln for example,
still the same thing .