Re: Boolean problem

If your example was:

procedure testshift; VAR shift_cor :boolean; begin shift_cor := true; writeln('shift_cor: ',shift_cor); { shift_cor: True }

if shift_cor=true then Shift_correction; end;

then it would work as you expect

Jamie

----- Original Message ----- From: jallan To: Casper ter Kuile ; gpc Sent: Friday, July 13, 2001 1:44 AM Subject: Re: Boolean problem

Casper,

The example you've given does not set the value of shift_cor at all. It simply displays text and the value TRUE. You have to set shift_cor initially before it will have a value to test upon. ----- Original Message ----- From: Casper ter Kuile To: gpc@gnu.de Sent: Friday, July 13, 2001 1:07 AM Subject: Boolean problem

Hi,

I encounter a stange problem. The boolean variable "shift_cor" is "true"

shift_cor :boolean;

writeln('shift_cor: ',true); { shift_cor: True }

if shift_cor=true then Shift_correction;

But the if statement does not work out to be "true" as the procedure "Shift_correction" does not run. Anyone an idea what is wrong here?

Thanks!

Casper.

Casper ter Kuile, Lab. for Radiation Research (LSO), National Institute of Public Health and the Environment (RIVM) PO box 1, NL-3720 BA, Bilthoven, the Netherlands Phone +(31)-30-2742647 or +(31)-30-2742515 E-mail: casper.ter.kuile@rivm.nl Web: http://www.rivm.nl