Re: Boolean problem - Gpc

12 Jul 2001


      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