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