t_id
968
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
| tr_id | run | tr_ok | tr_skip | tr_result |
|---|---|---|---|---|
| 443679301 | 934968 | True | False | Successfully run |
Record count: 1
{ Source provided for Free Pascal Bug Report 2589 }
{ Submitted by "Al Led" on 2003-07-23 }
{ e-mail: alled@volny.cz }
{$mode objfpc}
program Test;
uses SysUtils;
var
__ReadData, __Calculate : boolean;
begin
__ReadData := true;
while __ReadData do
begin
// read data from input...
__readdata:=false;
__Calculate := false;
try
// **********************************************
// next construction with Continue statement
// causes linking error
// but only if next code contains another
// while...do loop [!!!]
if not __Calculate then // no more calcs ->
Continue; // skip rest and read
// next data...
// **********************************************
// another required operations, checks ->
// maybe __Calculate := false;
// [!!!]
while __Calculate do
begin
// do something... ->
// -> save results...
// checks -> maybe __Calculate := false;
end;
except
on E:exception do
raise Exception.Create('Err : ' + E.Message);
end; // try..except
end; // while __ReadData...
end.