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